R/MLD.R

MLD <-
function(samps){
	mld<-(1/length(samps))*sum(log(mean(samps, na.rm = TRUE)/samps), na.rm = TRUE)
	return(mld)
}

Try the binequality package in your browser

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

binequality documentation built on May 2, 2019, 9:58 a.m.