primaryBoundaryVec: Calculate the Primary Boundaries

Description Usage Arguments Value Author(s) References Examples

View source: R/refinedBoundaries.R

Description

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

Usage

1
2
primaryBoundaryVec(alpha, tVec, OBF = TRUE, LanDeMets = FALSE, nRep = 100,
  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.

nRep

number of replica

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. (2017+). A gatekeeping procedure to test a primary and a secondary endpoint in a group sequential design with multiple interim looks. Biometrics, to appear.

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
#require(mvtnorm)
#K = 4
#alpha = 0.025
#tVec = (1:K)/K
#boundaryVector <- primaryBoundaryVec(alpha,tVec,initIntvl=c(1,4),
#   OBF=TRUE,LanDeMets=FALSE,nRep=1,digits=3,printOut=TRUE)
#boundaryVector <- primaryBoundaryVec(alpha,tVec,initIntvl=c(1,4),
#   OBF=FALSE,LanDeMets=FALSE,nRep=1,digits=3,printOut=TRUE)
#boundaryVector <- primaryBoundaryVec(alpha,tVec,initIntvl=c(1,8),
#   OBF=TRUE,LanDeMets=TRUE,nRep=1,digits=3,printOut=TRUE)
#boundaryVector <- primaryBoundaryVec(alpha,tVec,initIntvl=c(1,4),
#   OBF=FALSE,LanDeMets=TRUE,nRep=1,digits=3,printOut=TRUE)

gsrsb documentation built on May 29, 2017, 7:12 p.m.