R/NHFaux.R

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

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

IndTestPP documentation built on May 29, 2017, 5:19 p.m.