- 金錢
- 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(
/ V" Q' ]8 b s6 E% g makeLearner("classif.lda", id = "lda"),
' `2 U2 a- J5 P4 o' X makeLearner("classif.rpart", id = "rpart"),% N$ X- d5 e y, [, B6 @6 D
makeLearner("classif.randomForest", id = "randomForest")/ c+ H- Z; m6 e, A
)+ e0 l& y! [5 w3 Q* U" O" g
U# i7 i5 C8 V
## Get additional Tasks from package mlbench
/ E( {5 O7 _( z9 H& L4 X0 Yring.task = convertMLBenchObjToTask("mlbench.ringnorm", n = 10)
; d& h& D- s6 z' ^wave.task = convertMLBenchObjToTask("mlbench.waveform", n = 10)
3 J) Q; {: ?/ C r
5 D% H2 ]1 C% F* S1 d( qtasks = list(iris.task, sonar.task, pid.task, ring.task, wave.task)% @) K5 Y& L- d, O
rdesc = makeResampleDesc("CV", iters = 3)" ^7 }/ l' P3 ^! S
meas = list(mmce, ber, timetrain)2 `: U8 _- a: K
bmr = benchmark(lrns, tasks, rdesc, meas, show.info = FALSE). u7 M% A9 I5 X7 p' `: _. s5 }2 b. @7 {
bmr6 A' }$ a3 z Q. A" F6 y8 x, w
plotBMRBoxplots(bmr, measure = ber, style = "violin", pretty.names = FALSE) +. N# M' _3 O- S( E# g- t
aes(color = learner.id) +( L- \# i( H; N; i% q
theme(strip.text.x = element_text(size = 8)) |
|