Nothing
plot.awl1pca <- function(x, ...) {
if(!inherits(x,"awl1pca"))
stop("Not an awl1pca object")
if(ncol(x$scores) == 1)
stop("Need scores in at least two dimensions")
plot(x$scores[,1:2])
}
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.