sPwRtrigger {triggerstrategy}

Power of testing the secondary hypothesis using Trigger strategy

Description

This function computes the power of testing the secondary hypothesis using Trigger strategy

Usage

sPwRtrigger(
  alpha,
  alpha0,
  t0,
  t1,
  tc0 = t0,
  tc1 = t1,
  delta0,
  delta1,
  rho = 0,
  iuse0 = 1,
  iuse1 = 1,
  phi0 = rep(1, length(alpha)),
  phi1 = rep(1, length(alpha)),
  usingRhoForBoundary = FALSE
)

Arguments

alpha

a number shows the overall error rate

alpha0

a number shows the error rate assigned to the primary endpoint initially

t0

a vector shows the information times of the primary endpoint

t1

a vector shows the information times of the secondary endpoint

tc0

a vector shows the calendar times of the primary endpoint

tc1

a vector shows the calendar times of the secondary endpoint

delta0

a value of delta for hypothesis H0

delta1

a value of delta for hypothesis H1

rho

a number shows the correlation between the primary and secondary endpoints

iuse0

an integer shows the type of group sequential boundaries used for the primary endpoint

iuse1

an integer shows the type of group sequential boundaries used for the secondary endpoint

phi0

a parameter for the power family or the HSD gamma family for the primary endpoint

phi1

a parameter for the power family or the HSD gamma family for the secondary endpoint

usingRhoForBoundary

an indicator whether using the informaiton of rho to calculate the boundary, default is FALSE (not using)

Value

a value of the probability that H1 is rejected, the power, using the trigger strategy

References

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.

Examples

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.5
delta0 <- 1
delta1 <- 3
sPwRtrigger(alpha=alpha, alpha0=alpha0,
    t0=t0, t1=t1, tc0=tc0, tc1=tc1,
    delta0=delta0, delta1=delta1,
    rho=rho, iuse0=1, iuse1=iuse1,
    phi0=phi0, phi1=phi1,
    usingRhoForBoundary=FALSE)