Update mlClassificationLogisticMultinomial.R

koenderks · koenderks · commit 775b9485ad58 · 2024-09-10T20:19:19.000+02:00
diff --git a/R/mlClassificationLogisticMultinomial.R b/R/mlClassificationLogisticMultinomial.R
@@ -15,7 +15,7 @@
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
 #
 
-mlClassificationLogistic <- function(jaspResults, dataset, options, ...) {
+mlClassificationLogisticMultinomial <- function(jaspResults, dataset, options, ...) {
 
   # Preparatory work
   dataset <- .mlClassificationReadData(dataset, options)
@@ -63,7 +63,7 @@ mlClassificationLogistic <- function(jaspResults, dataset, options, ...) {
 #   .mlClassificationPlotBoundaries(dataset, options, jaspResults, ready, position = 12, type = "logistic")
 }
 
-.logisticRegressionClassification <- function(dataset, options, jaspResults, ready) {
+.logisticMultinomialClassification <- function(dataset, options, jaspResults, ready) {
   # Import model formula from jaspResults
   formula <- jaspResults[["formula"]]$object
   # Split the data into training and test sets

Original file line number	Diff line number	Diff line change
`@@ -15,7 +15,7 @@`
`15`	`15`	`# along with this program. If not, see <http://www.gnu.org/licenses/>.`
`16`	`16`	`#`
`17`	`17`
`18`		`-mlClassificationLogistic <- function(jaspResults, dataset, options, ...) {`
	`18`	`+mlClassificationLogisticMultinomial <- function(jaspResults, dataset, options, ...) {`
`19`	`19`
`20`	`20`	`# Preparatory work`
`21`	`21`	`dataset <- .mlClassificationReadData(dataset, options)`
`@@ -63,7 +63,7 @@ mlClassificationLogistic <- function(jaspResults, dataset, options, ...) {`
`63`	`63`	`# .mlClassificationPlotBoundaries(dataset, options, jaspResults, ready, position = 12, type = "logistic")`
`64`	`64`	`}`
`65`	`65`
`66`		`-.logisticRegressionClassification <- function(dataset, options, jaspResults, ready) {`
	`66`	`+.logisticMultinomialClassification <- function(dataset, options, jaspResults, ready) {`
`67`	`67`	`# Import model formula from jaspResults`
`68`	`68`	`formula <- jaspResults[["formula"]]$object`
`69`	`69`	`# Split the data into training and test sets`