R/mincontri.R

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

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

forensim documentation built on May 30, 2017, 2:34 a.m.