Merge pull request #202 from Merck/201-futility-bound-is-missing

fix futility bound
Merck · Mar 24, 2023 · c846bca · c846bca
2 parents 6e32041 + 52e2df2
commit c846bca
Show file tree

Hide file tree

Showing 2 changed files with 2 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.0.7
+Version: 1.0.8
 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/gs_power_ahr.R b/R/gs_power_ahr.R
@@ -182,7 +182,7 @@ gs_power_ahr <- function(enroll_rate = tibble(
 
   # Check if it is two-sided design or not
   if (identical(lower, gs_b) && (!is.list(lpar))) {
-    if (all(test_lower) == FALSE) {
+    if (all(test_lower == FALSE)) {
       two_sided <- FALSE
       lpar <- rep(-Inf, n_analysis)
     } else {