R/NHFaux.R

In IndTestPP: Tests of Independence and Analysis of Dependence Between Point Processes in Time

Defines functions NHFaux

Documented in NHFaux

NHFaux <-
function(r,L, lambdaD,posD,typeD, T)
{

	posLW<-L[(L>=r)&(L<=(T-r))]

	L1D<-(1-min(lambdaD)/lambdaD)

	L1L0<-sapply(posLW, FUN = prodN2, r=r,L1D=L1D,posD=posD, typeD=typeD)


	NHF<-sum(L1L0)/length(posLW)

	return(NHF)

}

Try the IndTestPP package in your browser