###### Trial Design #####
get.boundary(target=0.3, ncohort=10, cohortsize=3)
###### Obtain operating characteristics #####
get.oc(target=0.3, p.true=c(0.05, 0.15, 0.3, 0.45, 0.6), ncohort=10, cohortsize=3, ntrial=1000)
##### Select the MTD when the trial is completed #####
n<-c(3, 3, 15, 9, 0)
y<-c(0, 0, 4, 4, 0)
select.mtd(target=0.3, ntox=y, npts=n)
Run the code above in your browser using DataLab