Nothing

```
matrix.invroot.calculation <-
function(V){
E=eigen(V)
E.vector=E$vectors
V.inv.root=E.vector%*%diag(1/sqrt(E$values))%*%t(E.vector)
rm(E.vector,E)
V.inv.root
}
```

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