From 3253047f2bbedf0214d9771f13c4d5bd503910aa Mon Sep 17 00:00:00 2001
From: keaven <keaven_anderson@merck.com>
Date: Tue, 3 Sep 2024 05:54:23 -0400
Subject: [PATCH] fixed ratio usage, added w_max to saved input

---
 R/fixed_design_mb.R | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/R/fixed_design_mb.R b/R/fixed_design_mb.R
index 9c27bf0f..87e23fb4 100644
--- 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,