Nothing
"pca"<-
function(mat, cent = TRUE, scle = FALSE)
{
mat <- as.matrix(mat)
if((!cent) & (!scle))
z <- svd(mat)
else z <- svd(scale(mat, center = cent, scale = scle))
d <- diag(z$d)
pcs <- z$u %*% d
list(pcs = pcs, d = d, v = z$v)
}
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.