tests/testit/test-developer-gs_power_wlr.R

In gsDesign2: Group Sequential Design with Non-Constant Effect

assert("Validate 2-sided symetric design", {
  x <- gs_power_wlr(enroll_rate = define_enroll_rate(duration = 12, rate = 50),
                    analysis_time = NULL, event = c(100, 200, 300),
                    upper = gs_spending_bound,
                    upar = list(sf = gsDesign::sfLDOF, total_spend = 0.025),
                    lower = gs_spending_bound,
                    lpar = list(sf = gsDesign::sfLDOF, total_spend = 0.025),
                    binding = TRUE, h1_spending = FALSE)

  upper_z <- x$bound$z[x$bound$bound == "upper"]
  lower_z <- x$bound$z[x$bound$bound == "lower"]
  (upper_z %==% -lower_z)

})