Nothing
## samples/raw
msr <-
function(x, name, make.unique = FALSE, ...) {
if (is.null(x$samp))
stop("'x$samp' must nut be 'NULL'")
if (missing(name))
name <- dimnames(x)$taxa
rval <- data.frame(x$xtab[, name], x$samp, ...)
if (make.unique && name %in% colnames(x$samp)) {
colnames(rval) <- c(paste("t.", name, sep = ""),
paste("s.", colnames(x$samp), sep = ""))
} else colnames(rval) <- c(name, colnames(x$samp))
rval
}
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.