R/fii2fi.R

fii2fi <-
function(DESIGN,fii,fi){
	Dsup <- fastEucCalc(fii,fi)
	minD <- apply(Dsup,1,min)
	Group_Assigned=Re(Dsup==repmat(minD,1,ncol(DESIGN)))
	return(list(distances=Dsup,assignments=Group_Assigned,confusion=t(Group_Assigned) %*% DESIGN))
}

Try the TExPosition package in your browser

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

TExPosition documentation built on May 2, 2019, 7:27 a.m.