primaryBoundaryVec: Calculate the Primary Boundaries

primaryBoundaryVecR Documentation

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.