add info_scale as part of the input from gs_design_ahr and gs_power_ahr

Author: LittleBeannie

R/gs_design_ahr.R

@@ -360,6 +360,7 @@ gs_design_ahr <- function(
     enroll_rate = enroll_rate, fail_rate = fail_rate,
     alpha = alpha, beta = beta, ratio = ratio,
     info_frac = info_frac, analysis_time = analysis_time,
+    info_scale = info_scale,
     upper = upper, upar = upar,
     lower = lower, lpar = lpar,
     test_upper = test_upper, test_lower = test_lower,

R/gs_power_ahr.R

@@ -261,6 +261,7 @@ gs_power_ahr <- function(
   input <- list(
     enroll_rate = enroll_rate, fail_rate = fail_rate,
     event = event, analysis_time = analysis_time,
+    info_scale = info_scale,
     upper = upper, upar = upar,
     lower = lower, lpar = lpar,
     test_lower = test_lower, test_upper = test_upper,