examples/Rules-class-NextBestMTD.R

In 0liver0815/onc-crmpack-test: Object-Oriented Implementation of CRM Designs

# 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)
                             })