Nothing
print.metabdata <- function(x, ...)
{
x$output <- editcolnames(x$output)
if (dim(x$output)[2] > 5) {
prettydata <- cbind(
head(x$output)[1:10], rep('...',dim(head(x$output))[1])
)
colnames(prettydata)[11] <- '...'
print (prettydata)
cat("\nOnly the first few rows and columns are printed.\n")
} else {
print(head(x$output))
cat("\nOnly the first few rows are printed.\n")
}
cat("\nGroups:\n")
print(x$groups)
cat("\nSamples:\n")
print(x$samples)
}
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.