cns <- matrix(c(3, 3, 0,
0, 6, 0,
0, 0, 0),
nrow = 3, ncol = 3, byrow = TRUE)
cys <- matrix(c(0, 1, 0,
0, 2, 0,
0, 0, 0),
nrow = 3, ncol = 3, byrow = TRUE)
currdose <- c(2,3)
decision <- CFO2d.next(target = 0.3, cys, cns, currdose = currdose, seed = 1)
summary(decision)
cns <- matrix(c(NA, NA, NA,
NA, 6, 0,
NA, 0, 0),
nrow = 3, ncol = 3, byrow = TRUE)
cys <- matrix(c(NA, NA, NA,
NA, 6, 0,
NA, 0, 0),
nrow = 3, ncol = 3, byrow = TRUE)
currdose <- c(1,1)
decision <- CFO2d.next(target = 0.3, cys, cns, currdose = currdose, seed = 1)
summary(decision)
Run the code above in your browser using DataLab