- 金錢
- 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(
4 e6 \+ _) a# L8 o! d, m# B1 g makeLearner("classif.lda", id = "lda"),8 P$ w4 @# }! a( m
makeLearner("classif.rpart", id = "rpart"),' X: I; X. A S' D4 Y3 I
makeLearner("classif.randomForest", id = "randomForest")
A5 g) b; c/ ^: g)# }' \& g% Z: c; m; k
% ~8 N, T3 F& _
## Get additional Tasks from package mlbench
~/ Y$ C1 `* Y# T) n1 vring.task = convertMLBenchObjToTask("mlbench.ringnorm", n = 10)
' Z1 I+ b/ O) G# o' _wave.task = convertMLBenchObjToTask("mlbench.waveform", n = 10)
2 H& V8 X2 D# j! q4 a$ C9 I: ^( |
tasks = list(iris.task, sonar.task, pid.task, ring.task, wave.task)
$ C# V y& p0 R- _7 N+ A3 y- ardesc = makeResampleDesc("CV", iters = 3)% z6 o" Z1 F4 c" R8 E0 R2 W) b
meas = list(mmce, ber, timetrain)
" L( T9 F4 ^- l1 j }bmr = benchmark(lrns, tasks, rdesc, meas, show.info = FALSE)- A; F4 D$ z/ J4 S' I7 Z3 t
bmr* I I" c" }1 j9 Q% D/ E5 ^& M
plotBMRBoxplots(bmr, measure = ber, style = "violin", pretty.names = FALSE) +
3 e* Q% `% A; F4 _* n& ~ aes(color = learner.id) +
. V: E1 F5 x, t6 }8 D, a. d theme(strip.text.x = element_text(size = 8)) |
|