Calculate the Primary Boundaries
Primary boundaries are calculated, including the standard approach and the error spending approach.
primaryBoundaryVec(alpha, tVec, OBF = TRUE, LanDeMets = FALSE, digits = 2, printOut = TRUE, initIntvl = c(1, 8))
alpha |
significance level for the primary endpoint. |
tVec |
information (vector). |
OBF |
type of procedures. |
LanDeMets |
type of procedures. |
digits |
number of digits for output, |
printOut |
|
initIntvl |
parameter for function uniroot (two numbers) for function primaryBoundary or function ldPrimaryBoundary |
OBF and POC boundaries (primary endpoints) (vector).
Jiangtao Gou
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.
#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)
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.