Update tests to run via devtools::test()

Merck · Dec 13, 2023 · 4275bbc · 4275bbc
1 parent 50067c4
commit 4275bbc
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: gsDesign2
 Title: Group Sequential Design with Non-Constant Effect
-Version: 1.1.0
+Version: 1.1.0.1
 Authors@R: c(
     person("Keaven", "Anderson", email = "[email protected]", role = c("aut")),
     person("Yilong", "Zhang", email = "[email protected]", role = c("aut")),

diff --git a/R/fixed_design_rd.R b/R/fixed_design_rd.R
@@ -99,7 +99,8 @@ fixed_design_rd <- function(
       alpha = alpha, beta = 1 - power, ratio = ratio,
       upper = gs_b, upar = qnorm(1 - alpha),
       lower = gs_b, lpar = -Inf,
-      rd0 = rd0, weight = "unstratified"
+      rd0 = rd0, weight = "unstratified",
+      h1_spending = FALSE
     )
   }
   # get the output of MaxCombo

diff --git a/tests/testthat/test-independent-gs_power_ahr.R b/tests/testthat/test-independent-gs_power_ahr.R
@@ -1,5 +1,7 @@
 # Test 1: compare with gsDesign under proportional hazard ####
 
+library(gsDesign)
+
 x <- gsSurv(
   k = 2,
   test.type = 1,