## determine the dose level for the next cohort of new patients
cys <- c(0, 1, 0); cns <- c(3, 6, 0)
decision <- rCFO.next(target=0.2, cys=cys, cns=cns, currdose=3)
summary(decision)
cys <- c(NA, 3, 0); cns <- c(NA, 3, 0)
decision <- rCFO.next(target=0.2, cys=cys, cns=cns, currdose=1)
summary(decision)
cys <- c(0, 3, NA); cns <- c(3, 3, NA)
decision <- rCFO.next(target=0.2, cys=cys, cns=cns, currdose=7)
summary(decision)
Run the code above in your browser using DataLab