- 金錢
- 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(8 r6 d& B+ l! U, I f' ^4 L
makeLearner("classif.lda", id = "lda"),' V; p, y* Z. `/ [& O
makeLearner("classif.rpart", id = "rpart"),
/ \% g# y6 _' U: J l" [& R makeLearner("classif.randomForest", id = "randomForest")
Y- z5 ~* Y/ u4 })5 M: m# Z5 e' w- ]% `7 F
6 t% t( {4 s& @8 q; i" o8 k- i8 H## Get additional Tasks from package mlbench0 o) H6 |1 P' q
ring.task = convertMLBenchObjToTask("mlbench.ringnorm", n = 10)
0 b6 V8 `8 |) p) t, W* E. ?wave.task = convertMLBenchObjToTask("mlbench.waveform", n = 10)0 C/ R- t9 @& x' v( T! I1 x+ k
1 Q: J: `% U! a8 K- O8 [& q
tasks = list(iris.task, sonar.task, pid.task, ring.task, wave.task)
. F( b& J6 z1 r9 Q! r" ~6 N2 w2 Xrdesc = makeResampleDesc("CV", iters = 3)
; V7 x4 @3 u, y c- Rmeas = list(mmce, ber, timetrain)# A2 q1 ?0 `3 X0 r. h m
bmr = benchmark(lrns, tasks, rdesc, meas, show.info = FALSE)
5 \8 S S) t/ m& D4 hbmr
* k; S9 I( Z( `" I+ U0 A1 WplotBMRBoxplots(bmr, measure = ber, style = "violin", pretty.names = FALSE) +
0 X9 t" L2 L1 h l @) e6 l; | aes(color = learner.id) +
) V& I- `. u$ |3 v+ s/ R2 j+ l theme(strip.text.x = element_text(size = 8)) |
|