Nothing

```
redundancy <-function(HX,HXmax,Herror,finite,correction=TRUE){
R<-1-(HX/HXmax)
if (correction) { R<-correction.redundancy(r=R,HXmax,Herror,finite)}
R
}
```

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