tests/testthat/test_gs_spending_bound.r

In keaven/gsdmvn: Group sequential design with non-constant effect

library(gsdmvn)
context("Testing gs_spending_bound()")

test_that("gs_spending_bound() does not execute as expected", {
  expect_true(is.numeric(b <- gs_spending_bound()))
  expect_true(is.numeric(a <- gs_spending_bound(efficacy=FALSE)))
  hgm1_0 <- h1(theta=0, I = 1, a = a, b = b)
  hgm1_1 <- h1(theta=.1, I = 1, a = a, b = b)
  expect_true(is.numeric(b2 <- gs_spending_bound(k = 2, hgm1 = hgm1_0)))
  expect_true(is.numeric(a2 <- gs_spending_bound(k = 2, hgm1 = hgm1_1, efficacy = FALSE)))
})
test_that("gs_spending_bound() does not work for large sample size", {

})