X-Git-Url: https://git.auder.net/?p=agghoo.git;a=blobdiff_plain;f=R%2Fchecks.R;h=a19d55fce756ab005bfe9c711ee1e0cfe6365205;hp=e105dfab4019af6b133c4271cfcca83c7ab0be54;hb=17ea2f13e0c32c107db20677750bd7a98bb7e0f8;hpb=afa676609daba103e43d6d4654560ca4c1c9b38b

diff --git a/R/checks.R b/R/checks.R
index e105dfa..a19d55f 100644
--- 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) {