R/MLD.R

MLD <-
function(samps){
	mld<-(1/length(samps))*sum(log(mean(samps, na.rm = TRUE)/samps), na.rm = TRUE)
	return(mld)
}
scarpino/binequality documentation built on May 29, 2019, 3:25 p.m.