R/buscar.R

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

buscar <-
function (x, lambda, lambdacum) 
{
    posNHi <- sum(lambdacum <= x) 
    if (posNHi>0)    posNH<-(posNHi+(x-lambdacum[posNHi])/lambda[posNHi+1])
    else posNH<-x/lambda[posNHi+1]
	
    return(posNH)
}