# In the example below the MTD is defined as the dose for which prob(DLE)=0.33 and
# we will use the 25th quantile of the posterior of MTD as our next best dose.
mtdNextBest <- NextBestMTD(target=0.33,
derive=
function(mtdSamples){
quantile(mtdSamples, probs=0.25)
})
Run the code above in your browser using DataLab