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 = 20, n.cors = 2, trueps = rst.sce,
size.cohort=3, size.level=12,
prob.mdl="NONPARA");
sum.simu <- summary2(rst.simu)
Run the code above in your browser using DataLab