Stopping for consensus
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.
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.
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)
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.