Update

Author: koenderks

R/commonMachineLearningClassification.R

@@ -119,7 +119,7 @@
     "rpart" = gettext("Decision Tree Classification"),
     "svm" = gettext("Support Vector Machine Classification"),
     "naivebayes" = gettext("Naive Bayes Classification"),
-    "logistic" = gettext("Logistic / Multinomial Regression")
+    "logistic" = gettext("Logistic / Multinomial Regression Classification")
   )
   tableTitle <- gettextf("Model Summary: %1$s", title)
   table <- createJaspTable(tableTitle)
@@ -318,6 +318,11 @@
     )
     table$addRows(row)
   } else if (type == "logistic") {
+    if (classificationResult[["family"]] == "binomial") {
+      table$title <- gettext("Model Summary: Logistic Regression Classification")
+    } else {
+      table$title <- gettext("Model Summary: Multinomial Regression Classification")
+    }
     row <- data.frame(
       family = classificationResult[["family"]],
       nTrain = nTrain,

R/mlClassificationLogistic.R

@@ -168,11 +168,12 @@ mlClassificationLogistic <- function(jaspResults, dataset, options, ...) {
     table[["upper"]] <- coefs[, "upper"]
   }
   if (options[["formula"]]) {
+    one_cat <- levels(factor(classificationResult[["train"]][[options[["target"]]]]))[2]
     if (options[["intercept"]]) {
-      regform <- paste0("logit(", options[["target"]], ") = ", round(as.numeric(coefs[, 1])[1], 3))
+      regform <- paste0("logit(p<sub>", options[["target"]], " = ", one_cat, "</sub>) = ", round(as.numeric(coefs[, 1])[1], 3))
       start <- 2
     } else {
-      regform <- paste0("logit(", options[["target"]], ") = ")
+      regform <- paste0("logit(p<sub>", options[["target"]], " = ", one_cat, "</sub>) = ")
       start <- 1
     }
     for (i in start:nrow(coefs)) {

inst/Description.qml

@@ -100,7 +100,7 @@ Description
 	Analysis
 	{
 		menu:	qsTr("Logistic / Multinomial")
-		title:	qsTr("Logistic / Multinomial Classification")
+		title:	qsTr("Logistic / Multinomial Regression Classification")
 		func: 	"mlClassificationLogistic"
 	}
 	Analysis