Summarizes the efficacy and futility bounds for each analysis.
Examples
library(gsDesign2)
x <- gs_design_ahr(info_frac = c(.25, .75, 1), analysis_time = c(12, 25, 36))
gs_bound_summary(x)
#> Analysis Value Efficacy Futility
#> 1 IA 1: 31% Z 3.8728 -1.6993
#> 2 N: 439 p (1-sided) 0.0001 0.9554
#> 3 Events: 99 ~HR at bound 0.4600 1.4060
#> 4 Month: 12 P(Cross) if HR=1 0.0001 0.0446
#> 5 P(Cross) if AHR=0.8 0.0025 0.0032
#> 6 IA 2: 77% Z 2.3100 1.0889
#> 7 N: 527 p (1-sided) 0.0104 0.1381
#> 8 Events: 248 ~HR at bound 0.7455 0.8707
#> 9 Month: 25 P(Cross) if HR=1 0.0105 0.8620
#> 10 P(Cross) if AHR=0.7 0.6348 0.0599
#> 11 Final Z 2.0161 2.0143
#> 12 N: 527 p (1-sided) 0.0219 0.0220
#> 13 Events: 323 ~HR at bound 0.7990 0.7992
#> 14 Month: 36 P(Cross) if HR=1 0.0243 0.9756
#> 15 P(Cross) if AHR=0.7 0.9000 0.1001
x <- gs_design_wlr(info_frac = c(.25, .75, 1), analysis_time = c(12, 25, 36))
gs_bound_summary(x)
#> Analysis Value Efficacy Futility
#> 1 IA 1: 25% Z 4.2955 -2.0871
#> 2 N: 436 p (1-sided) 0.0000 0.9816
#> 3 Events: 99 ~HR at bound 0.4213 1.5219
#> 4 Month: 12 P(Cross) if HR=1 0.0000 0.0184
#> 5 P(Cross) if wAHR=0.8 0.0004 0.0012
#> 6 IA 2: 76% Z 2.3156 1.1034
#> 7 N: 523 p (1-sided) 0.0103 0.1349
#> 8 Events: 246 ~HR at bound 0.7442 0.8687
#> 9 Month: 25 P(Cross) if HR=1 0.0103 0.8651
#> 10 P(Cross) if wAHR=0.7 0.6323 0.0610
#> 11 Final Z 2.0151 2.0151
#> 12 N: 523 p (1-sided) 0.0219 0.0219
#> 13 Events: 321 ~HR at bound 0.7985 0.7985
#> 14 Month: 36 P(Cross) if HR=1 0.0242 0.9758
#> 15 P(Cross) if wAHR=0.7 0.9000 0.1000