rst.sce <- vtScenario(tox = c(0.05, 0.05, 0.08),
res = c(0.2, 0.3, 0.5),
rho = 1)
rst.simu <- vtSingleTrial(trueps = rst.sce, size.cohort=3, size.level=12,
prob.mdl="NONPARA");
Run the code above in your browser using DataLab