Update table content

Author: koenderks

R/commonMachineLearningClassification.R

@@ -323,8 +323,10 @@
     } else {
       table$title <- gettext("Model Summary: Multinomial Regression Classification")
     }
+    family <- classificationResult[["family"]]
+    family <- paste0(toupper(substr(family, 1, 1)), substr(family, 2, nchar(family)))
     row <- data.frame(
-      family = classificationResult[["family"]],
+      family = family,
       nTrain = nTrain,
       nTest = classificationResult[["ntest"]],
       testAcc = classificationResult[["testAcc"]]

tests/testthat/test-mlclassificationlogisticmultinomial.R

@@ -39,7 +39,7 @@ test_that("Class Proportions table results match", {
 test_that("Model Summary: Multinomial Regression Classification table results match", {
 	table <- results[["results"]][["classificationTable"]][["data"]]
 	jaspTools::expect_equal_tables(table,
-		list("multinomial", 30, 120, 1))
+		list("Multinomial", 30, 120, 1))
 })
 
 test_that("Confusion Matrix table results match", {