### Drug-combination trial ###
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)
nxt.comb <- next.comb.kb(target=0.3, npts=n, ntox=y, dose.curr=c(2, 2))
summary_kb(nxt.comb)
Run the code above in your browser using DataLab