Nothing
standarize = function( M ) {
d = ncol(M)
T = matrix(colMeans(M), nrow = nrow(M), ncol = ncol(M), byrow = TRUE)
C = cov(M)
E = eigen(C)
V = E$vectors
if ( d > 1 )
D = diag(E$values)
else
D = E$values
S = V%*%sqrt(D)%*%t(V)
return (t(solve(S)%*%t(M - T)))
}
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.