fixed a minor bug in variable importance names

09538a77 · Nathalie Vialaneix · c08411bd · 09538a77
Commit 09538a77 authored 2 years ago by Nathalie Vialaneix
--- a/R/helpers_sfcb.R
+++ b/R/helpers_sfcb.R
@@ -90,7 +90,7 @@ predict_rf <- function(summaries, target, input_groups, selection = "none",
    }
    return(out)
  }, simplify = FALSE)
-  names(orig_importance) <- names(summaries)
+  names(orig_importance) <- summary_names
  
  out <- list("mse" = all_mse, "importances" = orig_importance)