diff --git a/DESCRIPTION b/DESCRIPTION index da74d95b..5848f281 100644 --- 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 = "keaven_anderson@merck.com", role = c("aut")), person("Yilong", "Zhang", email = "elong0527@gmail.com", role = c("aut")), diff --git a/R/fixed_design_rd.R b/R/fixed_design_rd.R index cbc7939b..272e751f 100644 --- 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 index b61b5465..e6da368b 100644 --- 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,