logregression footnote only for enter

jasp-stats · May 7, 2024 · 8877993 · 8877993
1 parent 772eb59
commit 8877993
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/R/regressionlogistic.R b/R/regressionlogistic.R
@@ -354,8 +354,10 @@ RegressionLogisticInternal <- function(jaspResults, dataset = NULL, options, ...
       rows <- vector("list", length(glmObj))
 
       for (midx in seq_along(glmObj)) {
-        .linregAddPredictorsInModelFootnote(jaspResults[["modelSummary"]], 
-                                            options[["modelTerms"]][[midx]][["components"]], midx)
+
+        if (options$method == "enter")
+          .linregAddPredictorsInModelFootnote(jaspResults[["modelSummary"]], 
+                                              options[["modelTerms"]][[midx]][["components"]], midx)
         mObj <- glmObj[[midx]]
         if (midx > 1) {
           if (options$method == "forward" ||