Nothing
cen <- function (X, w = rep(1, nrow(X))/nrow(X))
{
X <- as.matrix(X)
n <- nrow(X)
p <- ncol(X)
wm <- t(w) %*% X
e <- matrix(rep(1, n), ncol = 1)
Xc <- X - e %*% wm
return(Xc)
}
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.