Update tests to run via devtools::test()

Merck · Dec 13, 2023 · 054b397 · 054b397
1 parent 50067c4
commit 054b397
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 1 deletion.
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,