Nothing
quick.norm <-
function(A,mod=2){
if (mod==1){
t(apply(A,1,function(i){
if (sum(i)==0) {return(i)}
else {i/sqrt(sum(i^2))}}))
} else if (mod==2){
t(apply(A,1,function(i){
if (sum(i)==0) {return(i)}
else {i/sum(i)}}))
}
}
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.