View source: R/Rfun_sBoundsPh2.R
sBoundsPh2 | R Documentation |
This function computes the critical boundaries for the secondary endpoint in the partially hierarchical group sequential design.
sBoundsPh2(
alpha,
alpha0,
t0,
t1,
tc0 = t0,
tc1 = t1,
rho = 0,
iuse0 = 1,
iuse1h = 1,
iuse1t = 1,
phi0 = rep(1, length(alpha)),
phi1h = rep(1, length(alpha)),
phi1t = rep(1, length(alpha))
)
alpha |
a value of overall type I error rate |
alpha0 |
a value of the type I error rate for testing H0 |
t0 |
a vector of information times for H0 |
t1 |
a vector of information times for H1 |
tc0 |
a vector of calendar times for H0 |
tc1 |
a vector of calendar times for H1 |
rho |
a value of the correlation between the test statistics for H0 and H1. |
iuse0 |
a value of the type of error spending function for H0, ranging from 1 to 4 |
iuse1h |
a value of the type of error spending function for H1 first half, ranging from 1 to 4 |
iuse1t |
a value of the type of error spending function for H1 second half, ranging from 1 to 4 |
phi0 |
a value of the parameter of error spending function for H0 |
phi1h |
a value of the parameter of error spending function for H1 first half |
phi1t |
a value of the parameter of error spending function for H1 second half |
a list of two vectors: bd
critical boundaries, er
error spent until each stage
Jiangtao Gou
Gou, J. (2023). Trigger strategy in repeated tests on multiple hypotheses. Statistics in Biopharmaceutical Research, 15(1), 133-140. Gou, J. (2022). Sample size optimization and initial allocation of the significance levels in group sequential trials with multiple endpoints. Biometrical Journal, 64(2), 301-311.
alpha <- 0.05
alpha0 <- 0.03
iuse0 <- 4
iuse1h <- 4
iuse1t <- 4
phi0 <- -4
phi1h <- 1
phi1t <- 1
tc0 <- c(3,6,9,12)
tc1 <- c(6,12,18,24)
t0 <- c(0.3,0.6,0.9,1)
t1 <- (1:4)/4
rho <- 0
sBoundsPh2(alpha, alpha0,
t0, t1, tc0, tc1,
rho, iuse0, iuse1h, iuse1t,
phi0, phi1h, phi1t)
alpha <- 0.025
alpha0 <- 0.01
iuse0 <- 4
iuse1 <- 4
phi0 <- -4
phi1 <- -4
tc0 <- c(3,6,9,12,18)
tc1 <- c(6,12,18,36)
t0 <- (1:5)/5
t1 <- (1:4)/4
rho <- 0.0;
sBoundsPh2(alpha, alpha0,
t0, t1, tc0, tc1,
rho, iuse0, iuse1h=iuse1, iuse1t=iuse1,
phi0, phi1h=phi1, phi1t=phi1)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.