# NOT RUN {
# Studies simulation
# }
# NOT RUN {
# (Computation takes around 45 minutes using a processor including 40
# cores and a read only memory of 378 Go)
joint.simul <- jointSurroPenalSimul(nb.dataset = 10, nbSubSimul=600,
ntrialSimul=30, LIMparam = 0.001, LIMlogl = 0.001,
LIMderiv = 0.001, nb.mc = 200, nb.gh = 20,
nb.gh2 = 32, true.init.val = 1, print.iter=F)
# results
summary(joint.simul, d = 3, R2boot = 1) # bootstrap
summary(joint.simul, d = 3, R2boot = 0) # Delta-method
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab