R/redundancy.R

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

Try the MEET package in your browser

Any scripts or data that you put into this service are public.

MEET documentation built on May 2, 2019, 1:45 p.m.