Nothing
MVA.plot <- function(x,type=c("scores","loadings","correlations","biplot","pairs",
"trajectories"),...) {
type <- match.arg(type)
x <- MVA.ident(x)
f <- switch(type,scores=MVA.scoreplot,loadings=MVA.loadplot,correlations=MVA.corplot,
biplot=MVA.biplot,pairs=MVA.pairplot,trajectories=MVA.trajplot)
f(x,...)
}
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.