Nothing
## ============================
## Methods for stsmeant objects
## ============================
print.stslist.meant <- function(x, digits=2, ...) {
cn <- colnames(x)
## Conversion for printing without attributes
x <- as.matrix(x[1:nrow(x),1:ncol(x)])
colnames(x) <- cn
NextMethod("print", digits=digits,...)
}
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.