## Consider a 3x5 drug combination phase I trial aiming to find the MTD with
## a target toxicity rate of 0.3. Assume that the current dose is (2, 2),
## matrix n contains the number of patients treated at each combinations,
## and matrix y the number of patients experienced dose-limiting toxicity
## at each combinations.
n<-matrix(c(3, 0, 0, 0, 0, 7, 6, 0, 0, 0, 0, 0, 0, 0, 0), ncol=5, byrow=TRUE)
y<-matrix(c(0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0), ncol=5, byrow=TRUE)
conduct.comb(target=0.3, npts=n, ntox=y, dose.curr=c(2, 2))
Run the code above in your browser using DataLab