- 金錢
- 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(
$ c% n% b0 i1 ], U& [- I- j7 z1 F makeLearner("classif.lda", id = "lda"),2 t. f! L! j5 T' p
makeLearner("classif.rpart", id = "rpart"),
" x( k" u2 n6 s; j6 i/ K! v: U makeLearner("classif.randomForest", id = "randomForest")
7 |* ]% u- Y% O, d& [)$ | D7 F( I: K! I* s1 I
: N0 W( \9 e4 X7 u* e x, a
## Get additional Tasks from package mlbench
/ @' ?0 a9 G$ R9 S! Uring.task = convertMLBenchObjToTask("mlbench.ringnorm", n = 10)
1 T, B# h& E+ h; z9 z' Q2 Hwave.task = convertMLBenchObjToTask("mlbench.waveform", n = 10)6 y% `' E6 V, G
- [4 B! V4 J5 _: ?
tasks = list(iris.task, sonar.task, pid.task, ring.task, wave.task)
0 D$ ?' t2 a6 t; Q! jrdesc = makeResampleDesc("CV", iters = 3)7 t, \. m' `, B/ Q2 W; ]
meas = list(mmce, ber, timetrain)+ }5 J2 \, \$ Y4 r
bmr = benchmark(lrns, tasks, rdesc, meas, show.info = FALSE)
! e- R# R: ?' a1 P, m$ wbmr2 @+ J9 g( E! ^% r9 H# _" @: p
plotBMRBoxplots(bmr, measure = ber, style = "violin", pretty.names = FALSE) +* o8 d2 N. S( n# ^
aes(color = learner.id) +
. a9 |5 L9 \& B" } theme(strip.text.x = element_text(size = 8)) |
|