Nothing

```
nrm<-function(A) {
buff3<-dim(A)
n1<-buff3[1]
m1<-buff3[2]
d<-apply(A^2,2,sum)
w<-d>1e-30
N<-matrix(0,n1,m1)
if(sum(w)>0){
a1<-A[,w]
a2<-matrix(1,n1,1)*d[w]^.5
N[,w]<-a1/a2[col(a1)]
}
}
```

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