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.**

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.