1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
|
checkLearnerBeforeTrain = function(task, learner, weights) {
getColNames = function(task, property) {
.data = getTaskData(task, functionals.as = "matrix")
has.it = vlapply(.data, function(x) any(property(x)))
clipString(collapse(colnames(.data)[has.it], ", "), 50L)
}
td = getTaskDesc(task)
if (td$type != learner$type) {
stopf("Task '%s' is '%s', but learner '%s' is for '%s'!", td$id, td$type, learner$id, learner$type)
}
if (td$has.missings && !hasLearnerProperties(learner, "missings")) {
wrong.cols = getColNames(task, is.na)
stopf("Task '%s' has missing values in '%s', but learner '%s' does not support that!", td$id, wrong.cols, learner$id)
}
if (td$n.feat["numerics"] > 0L && !hasLearnerProperties(learner, "numerics")) {
wrong.cols = getColNames(task, is.numeric)
stopf("Task '%s' has numeric inputs in '%s', but learner '%s' does not support that!", td$id, wrong.cols, learner$id)
}
if (td$n.feat["factors"] > 0L && !hasLearnerProperties(learner, "factors")) {
wrong.cols = getColNames(task, is.factor)
stopf("Task '%s' has factor inputs in '%s', but learner '%s' does not support that!", td$id, wrong.cols, learner$id)
}
if (td$n.feat["ordered"] > 0L && !hasLearnerProperties(learner, "ordered")) {
wrong.cols = getColNames(task, function(x) class(x)[1] == "ordered")
stopf("Task '%s' has ordered factor inputs in '%s', but learner '%s' does not support that!", td$id, wrong.cols, learner$id)
}
if (td$n.feat["functionals"] > 1 && hasLearnerProperties(learner, "single.functional") &&
!hasLearnerProperties(learner, "functionals")) {
stopf("Task '%s' has more than one functional inputs,
but learner '%s' does not support that!", td$id, learner$id)
}
if (!(missing(weights) || is.null(weights)) && !hasLearnerProperties(learner, "weights")) {
stopf("Weights vector passed to train, but learner '%s' does not support that!", learner$id)
}
if (td$has.weights && !hasLearnerProperties(learner, "weights")) {
warningf("Task '%s' contains weights but these are not used by learner '%s'!", td$id, learner$id)
}
if (td$type == "classif") {
if (length(td$class.levels) == 1L) {
if (!hasLearnerProperties(learner, "oneclass")) {
stopf("Task '%s' is a one-class-problem, but learner '%s' does not support that!", td$id, learner$id)
}
} else if (length(td$class.levels) == 2L) {
if (!hasLearnerProperties(learner, "twoclass")) {
stopf("Task '%s' is a two-class-problem, but learner '%s' does not support that!", td$id, learner$id)
}
} else {
if (!hasLearnerProperties(learner, "multiclass")) {
stopf("Task '%s' is a multiclass-problem, but learner '%s' does not support that!", td$id, learner$id)
}
}
}
invisible(NULL)
}
|
