R/PsimNHPc.R

Defines functions PsimNHPc

Documented in PsimNHPc

PsimNHPc <-
function(i,lambdaiM, fixed.seed)
{
	if (!is.null(fixed.seed)) fixed.seed<-fixed.seed+i
	aux<-simNHPc(lambda = lambdaiM[,i], fixed.seed = fixed.seed)$posNH
	return(aux)
}

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.