View source: R/toBinomialExact.R
toBinomialExact | R Documentation |
Translate survival design bounds to exact binomial bounds
toBinomialExact(x, observedEvents = NULL)
x |
An object of class |
observedEvents |
If NULL (default), targeted timing of analyses will come from |
The exact binomial routine gsBinomialExact
has requirements that may not be satisfied
by the initial asymptotic approximation.
Thus, the approximations are updated to satisfy the following requirements of gsBinomialExact
:
a
(the efficacy bound) must be positive, non-decreasing, and strictly less than n.I
b
(the futility bound) must be positive, non-decreasing, strictly greater than a
n.I - b
must be non-decreasing and >= 0
An object of class gsBinomialExact
.
gsBinomialExact
# The following code derives the group sequential design using the method
# of Lachin and Foulkes
x <- gsSurv(
k = 3, # 3 analyses
test.type = 4, # Non-binding futility bound 1 (no futility bound) and 4 are allowable
alpha = .025, # 1-sided Type I error
beta = .1, # Type II error (1 - power)
timing = c(0.45, 0.7), # Proportion of final planned events at interims
sfu = sfHSD, # Efficacy spending function
sfupar = -4, # Parameter for efficacy spending function
sfl = sfLDOF, # Futility spending function; not needed for test.type = 1
sflpar = 0, # Parameter for futility spending function
lambdaC = .001, # Exponential failure rate
hr = 0.3, # Assumed proportional hazard ratio (1 - vaccine efficacy = 1 - VE)
hr0 = 0.7, # Null hypothesis VE
eta = 5e-04, # Exponential dropout rate
gamma = 10, # Piecewise exponential enrollment rates
R = 16, # Time period durations for enrollment rates in gamma
T = 24, # Planned trial duration
minfup = 8, # Planned minimum follow-up
ratio = 3 # Randomization ratio (experimental:control)
)
# Convert bounds to exact binomial bounds
toBinomialExact(x)
# Update bounds at time of analysis
toBinomialExact(x, observedEvents = c(20,55,80))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.