Nothing
Standard_Normalization <- function(x) {
x = as.matrix(x);
mean = apply(x, 2, mean)
sd = apply(x, 2, sd)
sd[sd==0] = 1
xNorm = t((t(x) - mean) / sd)
return(xNorm)
}
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.