defaultLoss_classif <- function(y1, y2) {
if (is.null(dim(y1)))
# Standard case: "hard" classification
defaultLoss_classif <- function(y1, y2) {
if (is.null(dim(y1)))
# Standard case: "hard" classification
checkTask <- function(task, target) {
if (!is.null(task))
task <- match.arg(task, c("classification", "regression"))
checkTask <- function(task, target) {
if (!is.null(task))
task <- match.arg(task, c("classification", "regression"))