R/NHKaux2.R

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

NHKaux2 <-
function(ri, lambdaC, lambdaD,  posC, typeC, posD, typeD, T, typeEst)
{
	Ku<-sapply(c(1:length(posC)), FUN =NHKaux3 ,lambdaC=lambdaC, lambdaD=lambdaD,
		posC=posC, typeC=typeC,	 posD=posD, typeD=typeD, T=T,ri=ri, typeEst=typeEst)
	Kr<-sum(Ku)
	return(Kr)
}