Nothing

```
rowVars = function(x, ...) {
sqr = function(x) x*x
n = rowSums(!is.na(x))
n[n<=1] = NA
return(rowSums(sqr(x-rowMeans(x, ...)), ...)/(n-1))
}
rowSds = function(x, ...)
sqrt(rowVars(x, ...))
```

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