primaryBoundaryVec: Calculate the Primary Boundaries

In gsrsb: Group Sequential Refined Secondary Boundary

Calculate the Primary Boundaries

Description

Primary boundaries are calculated, including the standard approach and the error spending approach.

Usage

primaryBoundaryVec(
  alpha,
  tVec,
  OBF = TRUE,
  LanDeMets = FALSE,
  digits = 2,
  printOut = TRUE,
  initIntvl = c(1, 8)
)

Arguments

alpha	significance level for the primary endpoint.
tVec	information (vector).
OBF	type of procedures. TRUE for OBF, FALSE for POC.
LanDeMets	type of procedures. TRUE for Lan-Demets type boundaries, FALSE for original boundaries.
digits	number of digits for output,
printOut	TRUE for printing the boundaries.
initIntvl	parameter for function uniroot (two numbers) for function primaryBoundary or function ldPrimaryBoundary

Value

OBF and POC boundaries (primary endpoints) (vector).

Author(s)

Jiangtao Gou

References

Jennison, C. and Turnbull, B. W. (2000). Group Sequential Methods with Applications to Clinical Trials. Chapman and Hall/CRC, New York.

Lan, K. K. G., and Demets, D. L. (1983). Discrete sequential boundaries for clinical trials. Biometrika 70, 659-663.

O'Brien, P. C., and Fleming, T. R. (1979). A multiple testing procedure for clinical trials. Biometrics 35, 549-556.

Pocock, S. J. (1977). Group sequential methods in the design and analysis of clinical trials. Biometrika 64, 191-199.

Tamhane, A. C., Gou, J., Jennison, C., Mehta, C. R., and Curto, T. (2018). A gatekeeping procedure to test a primary and a secondary endpoint in a group sequential design with multiple interim looks. Biometrics, 74(1), 40-48.

Examples

require(mvtnorm)
K <- 4
alpha <- 0.025
tVec <- (1:K)/K
boundaryVector <- primaryBoundaryVec(alpha,tVec,initIntvl=c(1,4),
   OBF=TRUE,LanDeMets=FALSE,digits=3,printOut=TRUE)
boundaryVector <- primaryBoundaryVec(alpha,tVec,initIntvl=c(1,4),
   OBF=FALSE,LanDeMets=FALSE,digits=3,printOut=TRUE)
boundaryVector <- primaryBoundaryVec(alpha,tVec,initIntvl=c(1,8),
   OBF=TRUE,LanDeMets=TRUE,digits=3,printOut=TRUE)
boundaryVector <- primaryBoundaryVec(alpha,tVec,initIntvl=c(1,4),
   OBF=FALSE,LanDeMets=TRUE,digits=3,printOut=TRUE)

gsrsb documentation built on July 9, 2023, 6:02 p.m.