### Drug-combination trial ###
p.true <- matrix(c(0.01, 0.03, 0.10, 0.20, 0.30,
0.03, 0.05, 0.15, 0.30, 0.60,
0.08, 0.10, 0.30, 0.60, 0.75), byrow=TRUE, ncol=5)
oc.comb <- get.oc.comb.kb(target=0.3, p.true=p.true, ncohort=20, cohortsize=3,
n.earlystop=12, startdose=c(1, 1), ntrial=100)
Run the code above in your browser using DataLab