two.stage <-list(f=two.stage.cont)
param <- list(plab="b", pval = c(0.15,0.25,0.3,0.31))
t.X <- simt(two.stage,"chp10/two-stage-inp.csv", param,pdfout=TRUE)
two.stage.delay <-list(f=two.stage.cont.delay,x0=two.stage.x0)
param <- list(plab="nd", pval = c(2,5,6,7))
t.X <- simt(two.stage.delay,"chp10/two-stage-delay-inp.csv",
param,pdfout=TRUE)
Run the code above in your browser using DataLab