-
Notifications
You must be signed in to change notification settings - Fork 6
/
referenceLearner.R
43 lines (34 loc) · 1.51 KB
/
referenceLearner.R
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
reference1.lrn.par.set = makeLrnPsSets(learner = makeLearner("classif.ranger", predict.type = "prob"),
param.set = makeParamSet(
makeIntegerParam("num.trees", lower = 2000, upper = 2000, default = 2000)
)
)
reference2.lrn.par.set = makeLrnPsSets(learner = makeLearner("classif.featureless", predict.type = "prob"),
param.set = makeParamSet(
makeDiscreteParam("method", values = "majority", default = "majority")
)
)
tasks = listOMLTasks(number.of.classes = 2L, number.of.missing.values = 0,
data.tag = "study_14", estimation.procedure = "10-fold Crossvalidation")
for (i in 1:nrow(tasks)) {
fixed.task = function() list(id = tasks$task.id[i], name = tasks$name[i])
runBot(10, sample.learner.fun = sampleRandomLearner,
sample.task.fun = fixed.task, sample.configuration.fun = sampleRandomConfiguration,
lrn.ps.sets = reference1.lrn.par.set, upload = TRUE,
path = "reference", extra.tag = "referenceV1")
unlink("reference", recursive = TRUE)
runBot(10, sample.learner.fun = sampleRandomLearner,
sample.task.fun = fixed.task, sample.configuration.fun = sampleRandomConfiguration,
lrn.ps.sets = reference2.lrn.par.set, upload = TRUE,
path = "reference", extra.tag = "referenceV1")
unlink("reference", recursive = TRUE)
}
overview = getMlrRandomBotOverview("referenceV1")
print(overview)
a = listOMLRuns(tag = "referenceV1")
getRunDf("referenceV1")
tbl.results = getRunTable("referenceV1")
print(tbl.results)
for(i in 1:nrow(a)){
deleteOMLObject(a$run.id[i], object = "run")
}