minor fix

MHaringa · Oct 2, 2024 · e8def23 · e8def23
1 parent e0ae0bd
commit e8def23
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/model_refinement.R b/R/model_refinement.R
@@ -591,8 +591,8 @@ update_glm <- function(x, intercept_only = FALSE) {
 
         for (i in seq_along(mult_lst)) {
           risk_factor_name <- unique(mult_lst[[i]]$risk_factor)
-          names(x)[names(mult_lst[[i]]) == "level"] <- risk_factor_name
-          names(x)[names(mult_lst[[i]]) == "estimate"] <- paste0(
+          names(mult_lst[[i]])[names(mult_lst[[i]]) == "level"] <- risk_factor_name
+          names(mult_lst[[i]])[names(mult_lst[[i]]) == "estimate"] <- paste0(
             risk_factor_name, "_rst99"
           )
           mult_lst[[i]]$risk_factor <- NULL