R/FE2.R

"FE2" <-
function(u,v,x,y)
{n<-length(u);
	secdirac2<-matrix(nrow=n, ncol=1);
	for(i in 1:n)
		secdirac2[i]<-dirac2(u[i], v[i], x, y);
		FE2<-1/n*sum(secdirac2[1:n])
		resultFE2<-FE2
}

Try the fgac package in your browser

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

fgac documentation built on May 2, 2019, 6:07 a.m.