Description Usage Arguments Details Examples
View source: R/stopping_delegates.R
This is a function for use with applied_crm for the stop_func argument. The rule will suggest stopping in the scenario that a particular number of patients has already been treated at the current recommended MTD.
| 1 | stop_for_consensus_reached(x, req_at_mtd)
 | 
| x | An object of class 'mtd'. | 
| req_at_mtd | An integer; the number of patients required at current estimate of MTD to suggest stopping for consensus. | 
This function is an example of a possible stopping function to be used with applied_crm, it will modifiy the 'mtd' class object produced by applied_crm to include a logical value under the name 'stop' indicting whether or not the trial should stop. The package dtpcrm contains a few of these functions for possible use with applied_crm.
| 1 2 3 4 5 6 7 8 9 10 11 | prior  <- c(0.1, 0.3, 0.5)
target <- 0.2
tox    <- c(0, 0, 1, 0, 1, 1)
level  <- c(1, 1, 1, 2, 2, 2)
stop_rule <- function(x){
  x <- stop_for_consensus_reached(x, req_at_mtd = 6)
}
crm <- applied_crm(prior, target, tox, level, no_skip_esc = TRUE, no_skip_deesc = TRUE,
                   global_coherent_esc = TRUE, stop_func = stop_rule)
 | 
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.