View source: R/getExpectedSecondStageInformation.R
getExpectedSecondStageInformation | R Documentation |
Calculate the expected second-stage information using the optimal conditional error function with specific assumptions.
getExpectedSecondStageInformation(
design,
likelihoodRatioDistribution = NULL,
...
)
design |
An object of class |
likelihoodRatioDistribution |
The distribution to be used for the effect size of the likelihood ratio in the calculation of the expected second-stage information. Options are
The default is |
... |
Additional parameters required for the specification of |
The expected second-stage information is calculated as:
\mathbb{E}(I_{2})=\int_{\alpha_1}^{\alpha_0}\frac{\nu(\alpha_2(p_1)) \cdot l(p_1)}{\Delta_1^2} dp_1,
where
\alpha_1, \alpha_0
are the first-stage efficacy and futility boundaries
\alpha_2(p_1)
is the optimal conditional error calculated for p_1
l(p_1)
is the "true" likelihood ratio under which to calculate the expected sample size. This can be different from the likelihood ratio used to calibrate the optimal conditional error function.
\Delta_1
is the assumed treatment effect to power for, expressed as a mean difference. It may depend on the interim data (i.e., p_1
) in case useInterimEstimate = TRUE
was specified for the design object.
\nu(\alpha_2(p_1)) = (\Phi^{-1}(1-\alpha_2(p_1))+\Phi^{-1}(CP))^2
is a factor calculated for the specific assumptions about the optimal conditional error function and the target conditional power CP
.
Expected second-stage information.
Brannath, W. & Bauer, P. (2004). Optimal conditional error functions for the control of conditional power. Biometrics. https://www.jstor.org/stable/3695393
getDesignOptimalConditionalErrorFunction()
, getSecondStageInformation()
# Get a design
design <- getDesignOptimalConditionalErrorFunction(
alpha = 0.025, alpha1 = 0.001, alpha0 = 0.5, conditionalPower = 0.9,
delta1 = 0.25, likelihoodRatioDistribution = "fixed", deltaLR = 0.25,
firstStageInformation = 80, useInterimEstimate = FALSE,
)
# Calculate expected information under correct specification
getExpectedSecondStageInformation(design)
# Calculate expected information under the null hypothesis
getExpectedSecondStageInformation(
design = design, likelihoodRatioDistribution = "fixed", deltaLR = 0
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.