- 金錢
- 35
- 威望
- 339
- 貢獻值
- 0
- 推廣值
- 0
- 性別
- 保密
- 在線時間
- 2 小時
- 最後登錄
- 2022-5-27
- 主題
- 5
- 精華
- 0
- 閱讀權限
- 30
- 註冊時間
- 2012-6-6
- 帖子
- 51
TA的每日心情 | 怒 2022-5-27 16:35 |
---|
簽到天數: 152 天 [LV.7]常住居民III - 推廣值
- 0
- 貢獻值
- 0
- 金錢
- 35
- 威望
- 339
- 主題
- 5
|
lrns = list(
# `* u- A) X$ R$ V6 ]+ q1 N. \ makeLearner("classif.lda", id = "lda"),6 i' [/ D' M" U6 b N
makeLearner("classif.rpart", id = "rpart"),. i1 {; o$ {+ j' x8 p+ c
makeLearner("classif.randomForest", id = "randomForest")
+ a9 D6 r' V @- n)/ ]0 M5 Z8 j8 {- C; g
2 [. @! B3 \& M3 o$ q
## Get additional Tasks from package mlbench
5 y& y" u# F$ p- t7 @% vring.task = convertMLBenchObjToTask("mlbench.ringnorm", n = 10)4 X: K1 v: K: N3 j! ^9 p5 c7 p2 q
wave.task = convertMLBenchObjToTask("mlbench.waveform", n = 10)
: x8 J5 }( w7 h- W# P
; R, ^, g- k: `7 t, H6 otasks = list(iris.task, sonar.task, pid.task, ring.task, wave.task)
; h/ P. T( U2 ?/ Trdesc = makeResampleDesc("CV", iters = 3)
4 o" O3 j: T" r) Xmeas = list(mmce, ber, timetrain)- Y4 _% W3 O5 c: ]9 J9 r" a" W6 \
bmr = benchmark(lrns, tasks, rdesc, meas, show.info = FALSE)
4 W+ K( E5 M& g* ]bmr8 p& d! |+ M+ F ]& c9 y1 U$ N9 M
plotBMRBoxplots(bmr, measure = ber, style = "violin", pretty.names = FALSE) +# O3 s0 u5 v8 \# O2 P0 ]
aes(color = learner.id) +
( _ s- P% w/ E% K/ x& b theme(strip.text.x = element_text(size = 8)) |
|