cent.X <-
function(X){
X<-as.matrix(X)
mean.X = colMeans(X)
cov.X = rowSums((t(X)-mean.X)^2)
t((t(X)-mean.X)/sqrt(cov.X))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.