Nothing
knitr::opts_chunk$set( collapse = TRUE, comment = "#>" )
library(bfboin)
A good starting point to test that get.oc.bf()
is working as expected is that it should produce the same result (within simulation error) as BOIN::get.oc()
when the response rates are all set to zero (thus effectively turning off the backfilling component of the design).
get.oc.bf(ntrial = 10000, seed = 9, target = 0.25, p.true = c(0.1, 0.5), ncohort = 10, cohortsize = 3, n.earlystop = 9, startdose = 1, titration = FALSE, cutoff.eli = 0.95, extrasafe = TRUE, offset = 0.1, boundMTD=FALSE, n.cap = 12, end.backfill = TRUE, n.per.month = 1, dlt.window = 1, p.response.true = c(0.00001, 0.00001)) BOIN::get.oc(target = 0.25, p.true = c(0.1, 0.5), ncohort = 10, cohortsize = 3, n.earlystop = 9, startdose = 1, titration = FALSE, cutoff.eli = 0.95, extrasafe = TRUE, offset = 0.1, boundMTD=FALSE, ntrial = 10000, seed = 6)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.