- 金錢
- 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(. L; h/ G9 ]/ {( k- l9 W
makeLearner("classif.lda", id = "lda"),) t. U8 s$ K6 v- \ {
makeLearner("classif.rpart", id = "rpart"),6 ~; _, ]" G1 M( b- ]: R
makeLearner("classif.randomForest", id = "randomForest")0 k0 _8 p4 j9 l: e4 T+ V4 W
)& n' N$ j$ f5 Q3 y5 C; o' ~8 c7 V
; R( |" O v, H Z2 t3 o0 k" \## Get additional Tasks from package mlbench# w) L0 z4 ^# w- U
ring.task = convertMLBenchObjToTask("mlbench.ringnorm", n = 10)0 |' s" n* f6 {7 C) P
wave.task = convertMLBenchObjToTask("mlbench.waveform", n = 10)
" K) o2 |2 j* I2 O
! I, i$ V7 p ~. g% T- f! k! stasks = list(iris.task, sonar.task, pid.task, ring.task, wave.task)
( Q! [7 P. _1 H2 y( k* m; M; Grdesc = makeResampleDesc("CV", iters = 3)
4 T! [9 X6 `& A9 u A1 V; Wmeas = list(mmce, ber, timetrain); r# E- `' S$ ]* p, g' j
bmr = benchmark(lrns, tasks, rdesc, meas, show.info = FALSE)
0 c# y' i8 X) Abmr
- U% Z ^. E7 N: mplotBMRBoxplots(bmr, measure = ber, style = "violin", pretty.names = FALSE) +5 J) ^, r# g D6 X
aes(color = learner.id) +
8 K }, u) E8 b& Q- g! W2 y theme(strip.text.x = element_text(size = 8)) |
|