Fix footnote issue

jasp-stats · May 27, 2024 · 7427dee · 7427dee
1 parent 84dc9eb
commit 7427dee
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/regressionlogistic.R b/R/regressionlogistic.R
@@ -495,10 +495,10 @@ RegressionLogisticInternal <- function(jaspResults, dataset = NULL, options, ...
     }
   }
 
-  predVar   <- as.character(glmObj[[1]][["terms"]])[2]
-  predLevel <- levels(glmObj[[1]][["data"]][[predVar]])[2]
+  predVar   <- options[["dependent"]]
+  predLevel <- levels(dataset[[predVar]])[2]
 
-  jaspResults[["estimatesTable"]]$addFootnote(gettextf("%1$s level '%2$s' coded as class 1.", .unv(predVar), predLevel))
+  jaspResults[["estimatesTable"]]$addFootnote(gettextf("%1$s level '%2$s' coded as class 1.", predVar, predLevel))
 }
 
 .reglogisticEstimatesBootstrapFill <- function(jaspResults, dataset, options){