tests/testthat/test_gs_b.r

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

library(gsdmvn)
context("Testing direct bound specification()")

test_that("Test that gs_b() returns intended values", {
  expect_equal(1:3, gs_b(1:3))
  expect_equal(2, gs_b(1:3, k = 2))
})