Skip to content

Commit 3e1e3de

Browse files
committed
make the updated info_scale same as the original design when it is alpha-updating only
1 parent db550b0 commit 3e1e3de

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

R/gs_update_ahr.R

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -305,7 +305,7 @@ gs_update_ahr <- function(
305305
# futility bound calculation if different from `info`
306306
# impacts futility hypothesis bound calculation.
307307
info1 = x$analysis$info,
308-
info_scale = "h0_h1_info",
308+
info_scale = x$input$info_scale,
309309
upper = x$input$upper, upar = upar_update,
310310
test_upper = x$input$test_upper,
311311
lower = x$input$lower, lpar = x$input$lpar,
@@ -325,7 +325,7 @@ gs_update_ahr <- function(
325325
# futility bound calculation if different from `info`
326326
# impacts futility hypothesis bound calculation.
327327
info1 = NULL,
328-
info_scale = "h0_h1_info",
328+
info_scale = x$input$info_scale,
329329
upper = x$input$upper, upar = upar_update,
330330
test_upper = x$input$test_upper,
331331
lower = x$input$lower, lpar = x$input$lpar,

0 commit comments

Comments
 (0)