- 金錢
- 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 L0 |' l8 R) ]& ]6 r1 l' t$ G+ J
makeLearner("classif.lda", id = "lda"),- ^# t# X/ Z% r# m2 Q- ~
makeLearner("classif.rpart", id = "rpart"),
3 y6 ]3 o O/ _2 @# ^ makeLearner("classif.randomForest", id = "randomForest")! i E$ ?. Y% Z. Z, Y
)' x" R4 B- D0 W8 `
, l9 g) Q) s: O3 ^
## Get additional Tasks from package mlbench" q7 Z& A+ f3 i1 B# A4 X! a
ring.task = convertMLBenchObjToTask("mlbench.ringnorm", n = 10)' e% U6 f5 [5 O8 p/ j& b
wave.task = convertMLBenchObjToTask("mlbench.waveform", n = 10)( y% _/ O( A/ T
. m# u% u1 F, \8 R/ D0 ^+ G; b+ I
tasks = list(iris.task, sonar.task, pid.task, ring.task, wave.task)6 F& Z! ~0 W" } Q9 Y$ V0 {3 O
rdesc = makeResampleDesc("CV", iters = 3): Q0 z: k9 ]3 L L
meas = list(mmce, ber, timetrain)1 R4 H3 h7 S7 N& j% _$ ?
bmr = benchmark(lrns, tasks, rdesc, meas, show.info = FALSE)
$ Z! A; V! w/ P2 ~+ Abmr
1 e2 P7 x& m( H& F' n- ~$ X" e! S( dplotBMRBoxplots(bmr, measure = ber, style = "violin", pretty.names = FALSE) ++ p8 a8 \- e4 c; I* U( v Y, o$ c! ~
aes(color = learner.id) +& e/ Q, D# |4 Q1 S
theme(strip.text.x = element_text(size = 8)) |
|