Nothing
Plot.pca <-
function(pcx,pcy,scaling, test.outlier=TRUE) {
Plot.pca.score(pcx,pcy,scaling)
Plot.pca.loading(pcx,pcy,scaling)
if (test.outlier) {outlier(pcx, pcy, scaling)}
}
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.