design <- gsDesign::gsDesign(k = 2, n.fix = 100, 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.5, NA, -0.2, 2.2),
blinded_info = c(50, 100, 50, 100),
unblinded_info = c(50, 100, 50, 100)
)
check_gs_bound(sim_df, design)
Run the code above in your browser using DataLab