View source: R/CFOeff.selectobd.R
CFOeff.selectobd | R Documentation |
Select the optimal biological dose (OBD) when the real single-drug trials is completed
CFOeff.selectobd(target, txs, tys, tns, prior.para, mineff, effearly.stop)
target |
the target DLT rate. |
txs |
the cumulative counts of efficacy outcomes at all dose levels. |
tys |
the cumulative counts of DLTs observed at all dose levels. |
tns |
the cumulative counts of patients treated at all dose levels. |
prior.para |
the prior parameters for two beta distributions, where set as |
mineff |
the lowest acceptable efficacy rate. |
effearly.stop |
the threshold value for early stopping due to low efficacy. The trial would be terminated
early if |
The CFOeff.selectobd()
function returns a list object comprising the following elements:
OBD: the selected OBD. OBD = 99
indicates that all tested doses are overly toxic or having low efficacy.
MTD: MTD here is get by using function CFO.selectmtd
. MTD is used as the upper bound of the admissible set.
OBD.probs: the probability that each dose level would be selected as OBD. The probability indicates that q_k
corresponds
to dose level k
being the highest in the admissible set. q_k
is efficacy probability correspond to dose level k here.
Jialu Fang, Ninghao Zhang, Wenliang Wang, and Guosheng Yin
Jin H, Yin G (2022). CFO: Calibration-free odds design for phase I/II clinical trials.
Statistical Methods in Medical Research, 31(6), 1051-1066.
target <- 0.3; mineff<- 0.3
txs <- c(3, 1, 7, 11, 26); tys <- c(0, 0, 0, 0, 6); tns <- c(6, 3, 12, 17, 36)
prior.para = list(alp.prior.eff = 0.5, bet.prior.eff = 0.5)
effearly.stop <- 0.95
result <- CFOeff.selectobd(target, txs, tys, tns, prior.para, mineff, effearly.stop)
summary(result)
##Low efficacy
target <- 0.3; mineff<- 0.3
txs = c(0, 0, 0, 0, 0); tys = c(2, 1, 1, 1, 6); tns = c(36, 23, 22, 27, 36)
prior.para = list(alp.prior.eff = 0.5, bet.prior.eff = 0.5)
effearly.stop <- 0.95
result <- CFOeff.selectobd(target, txs, tys, tns, prior.para, mineff, effearly.stop)
summary(result)
##High toxicity
target <- 0.3; mineff<- 0.3
txs = c(3, 1, 7, 11, 26); tys = c(36, 23, 22, 27, 36); tns = c(36, 23, 22, 27, 36)
prior.para = list(alp.prior.eff = 0.5, bet.prior.eff = 0.5)
effearly.stop <- 0.95
result <- CFOeff.selectobd(target, txs, tys, tns, prior.para, mineff, effearly.stop)
summary(result)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.