Nothing
plot.PVE <- function(x,xlab="Number of Features",ylab="PVE",...) {
if (!inherits(x,"PVE")) {
stop("'x' must be of class 'PVE'")
}
plot(x=x$J,y=x$PVEs,xlab=xlab,ylab=ylab,...)
}
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.