## Select the MTD based on the trial data
n<-c(3, 3, 15, 9, 0) #the number of patients treated at 5 investigational doses
y<-c(0, 0, 4, 4, 0) #the number of patients experienced toxicity at 5 doses
select.mtd(target=0.3, ntox=y, npts=n)
Run the code above in your browser using DataLab