- 金錢
- 35
- 威望
- 339
- 貢獻值
- 0
- 推廣值
- 0
- 性別
- 保密
- 在線時間
- 2 小時
- 最後登錄
- 2022-5-27
- 主題
- 5
- 精華
- 0
- 閱讀權限
- 30
- 註冊時間
- 2012-6-6
- 帖子
- 51
![Rank: 3](static/image/common/star_level2.gif) ![Rank: 3](static/image/common/star_level1.gif)
TA的每日心情![](source/plugin/dsu_paulsign/img/emot/nu.gif) | 怒 2022-5-27 16:35 |
---|
簽到天數: 152 天 [LV.7]常住居民III - 推廣值
- 0
- 貢獻值
- 0
- 金錢
- 35
- 威望
- 339
- 主題
- 5
|
lrns = list(# t3 g' J' p2 M5 u3 c# c
makeLearner("classif.lda", id = "lda"),
' M" v+ p* e- l0 J; j( y6 m0 r makeLearner("classif.rpart", id = "rpart"),
, ?9 ?2 i0 r. U ~6 f9 p$ i makeLearner("classif.randomForest", id = "randomForest")( o8 a# N& f9 N
): d9 k% W$ A1 ]7 y
- y+ H+ K8 `. _# s4 F: b) r## Get additional Tasks from package mlbench2 C; t0 M! D+ I4 x2 p8 s
ring.task = convertMLBenchObjToTask("mlbench.ringnorm", n = 10)# s6 ~% ?8 ~1 E6 H! I
wave.task = convertMLBenchObjToTask("mlbench.waveform", n = 10)3 c& q* X" j* |! z+ b
/ r" D4 h% O7 \tasks = list(iris.task, sonar.task, pid.task, ring.task, wave.task)
) Q! ]7 F8 Q5 g1 Nrdesc = makeResampleDesc("CV", iters = 3)
: x/ i' M7 ^% {% Lmeas = list(mmce, ber, timetrain)+ K+ n0 |6 c4 Q# I" T% N/ D: g
bmr = benchmark(lrns, tasks, rdesc, meas, show.info = FALSE): ]6 K8 Q+ t R* t2 m1 b
bmr
8 m+ ^0 t$ I) }# W2 a: hplotBMRBoxplots(bmr, measure = ber, style = "violin", pretty.names = FALSE) +8 a+ K' c; i! }3 W
aes(color = learner.id) +
# v& |4 F6 |; w' K( I/ d theme(strip.text.x = element_text(size = 8)) |
|