- 金錢
- 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(. G( n& _2 y! R! K s z
makeLearner("classif.lda", id = "lda"),
* h7 h- s. E, p7 w- a makeLearner("classif.rpart", id = "rpart"), p* R& A f$ _! j+ Y1 Z) r. k( o
makeLearner("classif.randomForest", id = "randomForest")
" l( Q/ m( u' B+ C)
* ~$ g8 _5 R' s0 x5 I! }7 z& Z i% ?) m, n. L" m: W7 |
## Get additional Tasks from package mlbench6 m, j# E! e, C& D0 w
ring.task = convertMLBenchObjToTask("mlbench.ringnorm", n = 10)
3 [+ G9 d' a P: f5 y( W; ]wave.task = convertMLBenchObjToTask("mlbench.waveform", n = 10)6 q; j- V5 t# j
/ o; p4 i3 E/ w: V; |
tasks = list(iris.task, sonar.task, pid.task, ring.task, wave.task)% {; A$ o! \) u" d5 [# B- m$ B d3 T
rdesc = makeResampleDesc("CV", iters = 3)
; H4 e) Q1 n8 h+ [/ f, v7 Omeas = list(mmce, ber, timetrain)' G# O- g( \ g2 L; N$ S W( S
bmr = benchmark(lrns, tasks, rdesc, meas, show.info = FALSE)# ~2 R) @! t9 B9 K) R/ \
bmr
/ ?- j# Q: `- @2 cplotBMRBoxplots(bmr, measure = ber, style = "violin", pretty.names = FALSE) +) \# j$ ]4 V k* i/ d$ j% `
aes(color = learner.id) +
* |" K" ]' d1 ~9 H3 m theme(strip.text.x = element_text(size = 8)) |
|