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