tests/testthat/test-independent-gs_spending_combo.R

In gsDesign2: Group Sequential Design with Non-Constant Effect

test_that("gs_spending_combo spend output identical as gsDesign spending", {
  info_frac <- c(.6, .8, 1)
  alpha <- 0.02
  par_test <- gsDesign::gsDesign(
    alpha = alpha,
    k = length(info_frac),
    test.type = 1,
    sfu = gsDesign::sfLDOF, timing = info_frac
  )$upper$spend
  spend_test <- cumsum(par_test)

  par <- list(sf = gsDesign::sfLDOF, total_spend = alpha)
  spend_combo <- gsDesign2::gs_spending_combo(par, info = info_frac)

  expect_equal(spend_test, spend_combo)
})