# NOT RUN {
## get the operating characteristics for BOIN single agent trial
oc <- get.oc(target=0.3, p.true=c(0.05, 0.15, 0.3, 0.45, 0.6),
ncohort=20, cohortsize=3, ntrial=1000)
summary(oc) # summarize design operating characteristics
plot(oc) # plot flowchart of the BOIN design and design operating characteristics, including
# selection percentage, number of patients, and observed toxicities at each dose
## perform titration at the begining of the trial to accelerate dose escalation
oc <- get.oc(target=0.3, p.true=c(0.05, 0.15, 0.3, 0.45, 0.6),
titration=TRUE, ncohort=20, cohortsize=3, ntrial=1000)
summary(oc) # summarize design operating characteristics
plot(oc) # plot flowchart of the BOIN design and design operating characteristics
# }
Run the code above in your browser using DataLab