Some fixes + refactoring

[agghoo.git] / R / checks.R

diff --git a/R/checks.R b/R/checks.R
index e105dfa..a19d55f 100644 (file)
--- a/R/checks.R
+++ b/R/checks.R
@@ -1,3 +1,5 @@
+# Internal usage: check and fill arguments with default values.
+
 defaultLoss_classif <- function(y1, y2) {
   if (is.null(dim(y1)))
     # Standard case: "hard" classification
@@ -80,7 +82,7 @@ checkDaTa <- function(data, target) {
 checkTask <- function(task, target) {
   if (!is.null(task))
     task <- match.arg(task, c("classification", "regression"))
-  task <- ifelse(is.numeric(target), "regression", "classification")
+  ifelse(is.numeric(target), "regression", "classification")
 }
 
 checkModPar <- function(gmodel, params) {