From 8877993783177b13e40404b0ab8a4cb18e0ebfd9 Mon Sep 17 00:00:00 2001 From: Johnny Date: Tue, 7 May 2024 16:58:21 +0200 Subject: [PATCH] logregression footnote only for enter --- R/regressionlogistic.R | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/R/regressionlogistic.R b/R/regressionlogistic.R index f1aae796..aaed4f13 100644 --- 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" ||