# NOT RUN {
# Calculation of the point estimation and 95% intervals based on 1000 simulations
#of the number of accurrences in each marginal process of a bivariate Neyman-Scot process
# in the time interval [100,200]
#NumI calculates the number of occurrences in interval I in each element of the list posNH
set.seed(123)
lambdai<-runif(1000,0.01,0.02)
aux<-IntMPP(funMPP.name="DepNHNeyScot", funMPP.args=list(lambdaParent=lambdai,d=2,
lambdaNumP=c(2,1), dplot=FALSE), fun.name="NumI", fun.args = list(I=c(100,200)),
fixed.seed = 125)
# Calculation of the point estimation and a 95% interval based on 1000 simulations
#of the first occurrence time in a multivariate CPSP with d=3
#firstt calculates the minimim occurrence time of all the elements in the list posNH
#set.seed(124)
#lambdaij<-runif(1000,0.005,0.02)
#set.seed(125)
#lambdaijk<-runif(1000,0.001,0.02)
#lambdaiM<-cbind(lambdai,lambdai, lambdai, lambdaij, lambdaij, lambdaij, lambdaijk)
#aux<-IntMPP(funMPP.name="DepNHCPSP",funMPP.args=list(lambdaiM=lambdaiM,d=3,dplot=FALSE),
# fun.name="firstt", fixed.seed = 125)
# }
Run the code above in your browser using DataLab