R/nMenr.R

Defines functions nMenr

Documented in nMenr

nMenr <-
function(ri,nearestpD, punt, T)
{
	aux<-((punt>=ri)&(punt<=(T-ri)))
	nMenri<-sum(nearestpD[aux]<=ri)
	puntr<-sum(aux)
	return(c(nMenri,puntr))
}

Try the IndTestPP package in your browser

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

IndTestPP documentation built on Aug. 29, 2020, 1:06 a.m.