Merge pull request #463 from Merck/462-fix-ratio-implementation-for-f…

…ixed_design_mb fixed ratio usage, added w_max to saved input
Merck · Sep 6, 2024 · f73370c · f73370c
2 parents ea548ac + 3253047
commit f73370c
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/fixed_design_mb.R b/R/fixed_design_mb.R
@@ -84,7 +84,7 @@ fixed_design_mb <- function(
   # Save inputs ----
   input <- list(
     alpha = alpha, power = power, ratio = ratio, study_duration = study_duration,
-    tau = tau,
+    tau = tau, w_max = w_max,
     enroll_rate = enroll_rate,
     fail_rate = fail_rate
   )
@@ -97,7 +97,7 @@ fixed_design_mb <- function(
     d <- gs_power_wlr(
       enroll_rate = enroll_rate,
       fail_rate = fail_rate,
-      ratio = 1,
+      ratio = ratio,
       weight = weight,
       upper = gs_b, upar = qnorm(1 - alpha),
       lower = gs_b, lpar = -Inf,
@@ -110,7 +110,7 @@ fixed_design_mb <- function(
       beta = 1 - power,
       enroll_rate = enroll_rate,
       fail_rate = fail_rate,
-      ratio = 1,
+      ratio = ratio,
       weight = weight,
       upper = gs_b, upar = qnorm(1 - alpha),
       lower = gs_b, lpar = -Inf,