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.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.