design <- gsDesign::gsDesign(k = 2, n.fix = 80, test.type = 2, timing = c(0.5, 1))
sim_df <- data.frame(
sim = c(1, 1, 2, 2),
analysis = c(1, 2, 1, 2),
z_stat = c(2.4, NA, -0.5, 1.9),
blinded_info = c(40, 80, 40, 80),
unblinded_info = c(40, 80, 40, 80),
n_enrolled = c(30, 60, 30, 60),
events_total = c(12, 25, 10, 22)
)
bounds_checked <- check_gs_bound(sim_df, design)
summarize_gs_sim(bounds_checked)
Run the code above in your browser using DataLab