Nothing
"sumsqscale" <-
function(mat){
s <- sign(mat)
sq <- mat^2
ssq <- apply(sq, 2, sum)
for (i in 1:ncol(mat)) sq[,i] <- sq[,i] / ssq[i]
return (s*sqrt(sq))
}
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.