Nothing
make.eqn <- function(model.filename, eqn.filename) {
model <- .read.MPT.model(model.filename)
model.df <- .make.model.df(model)
write.table(dim(model.df)[1], eqn.filename, row.names = FALSE, col.names = FALSE)
write.table(model.df, eqn.filename, append = TRUE, quote = FALSE, row.names = FALSE, col.names = FALSE)
}
make.mdt <- function(data, mdt.filename, index, prefix = "dataset") {
my.con <- file(mdt.filename, open = "w")
if (is.vector(data)) {
df <- data.frame(seq_len(length(data)), data)
colnames(df) <- c(prefix, index)
write.table(df, file = my.con, row.names = FALSE, quote = FALSE)
writeLines("===", con = my.con)
}
if (is.matrix(data) | is.data.frame(data)) {
if (!is.null(dimnames(data))) warning("Uses dimnames(data)[[1]] as index.")
for (c in seq_len(nrow(data))) {
df <- data.frame(seq_len(length(data[c,])), unlist(data[c,]))
if (!is.null(dimnames(data))) colnames(df) <- c(prefix, dimnames(data)[[1]][c])
else colnames(df) <- c(prefix, c)
if (c == 1) {
suppressWarnings(write.table(df, file = my.con, row.names = FALSE, quote = FALSE))
writeLines("===", con = my.con)
} else {
suppressWarnings(write.table(df, file = my.con, row.names = FALSE, quote = FALSE, append = TRUE))
writeLines("===", con = my.con)
}
}
}
close(my.con)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.