fix state with casewise diagnostics

jasp-stats · May 7, 2024 · 2baed2f · 2baed2f
1 parent 929a7be
commit 2baed2f
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git a/R/commonglm.R b/R/commonglm.R
@@ -798,7 +798,7 @@
   } else {
 
 
-    depType <- if (isFALSE(logisticRegression))  "number" else "string"
+    depType <- if (is.numeric(dataset[[options[["dependent"]]]]))  "number" else "string"
     influenceTable$addColumnInfo(name = "caseN", title = "Case Number", type = "integer")
     influenceTable$addColumnInfo(name = "stdResidual", title = gettext("Std. Residual"),   type = "number", format = "dp:3")
     influenceTable$addColumnInfo(name = "dependent",   title = options$dependent,          type = depType)

diff --git a/R/regressionlogistic.R b/R/regressionlogistic.R
@@ -22,16 +22,16 @@ RegressionLogisticInternal <- function(jaspResults, dataset = NULL, options, ...
     .reglogisticCheckErrors(dataset, options)
   }
   # Output tables
-  model <- .reglogisticComputeModel(   jaspResults, dataset, options, ready)
+  .reglogisticComputeModel(            jaspResults, dataset, options, ready)
   .reglogisticModelSummaryTable(       jaspResults, dataset, options, ready)
   .reglogisticEstimatesTable(          jaspResults, dataset, options, ready)
   .reglogisticEstimatesTableBootstrap( jaspResults, dataset, options, ready)
   .reglogisticMulticolliTable(         jaspResults, dataset, options, ready)
   .reglogisticFactorDescriptivesTable( jaspResults, dataset, options, ready)
 
-  if (options$residualCasewiseDiagnostic && is.null(jaspResults[["influenceTable"]])) {
-    finalModel <- model[[length(options[["modelTerms"]])]]
-    .glmInfluenceTable(jaspResults, finalModel, dataset, options, ready, position = 5, logisticRegression = TRUE)
+  if (options$residualCasewiseDiagnostic) {
+    finalModel <- jaspResults[["glmRes"]][["object"]][[length(options[["modelTerms"]])]]
+    .glmInfluenceTable(jaspResults, finalModel, dataset, options, ready, position = 5)
     .regressionExportResiduals(jaspResults, finalModel, dataset, options, ready = ready)
   }