R/mincontri.R

In forensim: Statistical tools for the interpretation of forensic DNA mixtures

Defines functions mincontri

Documented in mincontri

#Hinda Haned,  december 10th 2008



mincontri<-
function(mix,loc=NULL)
{ 
if(is.null(loc))
{
	tmp <- mix@mix.all
	tmp2 <- max(sapply(tmp,length))/2
	return(ceiling(tmp2))
}

else{
	tmp <- mix@mix.all[loc]
	tmp2 <- max(sapply(tmp,length))/2
	return(ceiling(tmp2))
}

}

Try the forensim package in your browser