- 金錢
- 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(
. k& r. E. L7 p' W% \0 c makeLearner("classif.lda", id = "lda"),! u3 p5 [- A3 S
makeLearner("classif.rpart", id = "rpart"),
+ s, E1 q q; |3 k; X9 ]( m makeLearner("classif.randomForest", id = "randomForest")
1 ^/ H+ [2 g$ m% ~)2 j$ \1 P0 l* B& s8 |: H* M1 P
7 m* Y" x' g+ r: _& J: j
## Get additional Tasks from package mlbench3 U; v, U; |- R
ring.task = convertMLBenchObjToTask("mlbench.ringnorm", n = 10)
7 A7 N, n+ Z* p" j" d' Nwave.task = convertMLBenchObjToTask("mlbench.waveform", n = 10)
/ W8 @* Q) e, Z. P& |# \( h6 U. ~$ [( p- d2 z
tasks = list(iris.task, sonar.task, pid.task, ring.task, wave.task)9 g7 J" n, _) H* X
rdesc = makeResampleDesc("CV", iters = 3)" @0 L% E$ x. S7 e* W2 h" @
meas = list(mmce, ber, timetrain)
: ]! _3 R5 G( u& ybmr = benchmark(lrns, tasks, rdesc, meas, show.info = FALSE)) u% w/ I0 I& W; g2 z' l& f( t! C
bmr, P7 k4 G1 W* h& g2 Y
plotBMRBoxplots(bmr, measure = ber, style = "violin", pretty.names = FALSE) +, b P" v w# I+ P1 \- j x
aes(color = learner.id) +
- F# \5 a W, r) V theme(strip.text.x = element_text(size = 8)) |
|