Skip to content

Commit

Permalink
make the updated info_scale same as the original design when it is …
Browse files Browse the repository at this point in the history 
…alpha-updating only
  • Loading branch information
@LittleBeannie
LittleBeannie committed Oct 16, 2024
1 parent db550b0 commit 3e1e3de
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions R/gs_update_ahr.R
View file
Original file line number Diff line number Diff line change
Expand Up @@ -305,7 +305,7 @@ gs_update_ahr <- function(
# futility bound calculation if different from `info`
# impacts futility hypothesis bound calculation.
info1 = x$analysis$info,
info_scale = "h0_h1_info",
info_scale = x$input$info_scale,
upper = x$input$upper, upar = upar_update,
test_upper = x$input$test_upper,
lower = x$input$lower, lpar = x$input$lpar,
Expand All @@ -325,7 +325,7 @@ gs_update_ahr <- function(
# futility bound calculation if different from `info`
# impacts futility hypothesis bound calculation.
info1 = NULL,
info_scale = "h0_h1_info",
info_scale = x$input$info_scale,
upper = x$input$upper, upar = upar_update,
test_upper = x$input$test_upper,
lower = x$input$lower, lpar = x$input$lpar,
Expand Down

0 comments on commit 3e1e3de

Please sign in to comment.