- 金錢
- 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($ K0 I9 ?$ v" ?: C8 J# s
makeLearner("classif.lda", id = "lda"),/ v( R! ^# t5 H; i# D+ o% i
makeLearner("classif.rpart", id = "rpart"),
b! Q( [) d1 A makeLearner("classif.randomForest", id = "randomForest")
* s; z" O3 `' j B' W+ W)
$ {/ c S2 ?1 H6 t3 n) D$ m2 r$ Z
& @* }) X C5 j) K## Get additional Tasks from package mlbench
/ O4 t2 F9 V. e3 yring.task = convertMLBenchObjToTask("mlbench.ringnorm", n = 10)
- v. {7 c' m2 P( Lwave.task = convertMLBenchObjToTask("mlbench.waveform", n = 10)2 d( i- _+ K6 j: L& ^7 o
( f E( q% Q& Z8 s/ N# M$ R7 Ttasks = list(iris.task, sonar.task, pid.task, ring.task, wave.task)
* K. }7 k5 j2 Mrdesc = makeResampleDesc("CV", iters = 3)
0 Q- _4 [- h' n$ M+ s, ^6 hmeas = list(mmce, ber, timetrain)
# r( c- D, _6 ~! C* v+ o" Xbmr = benchmark(lrns, tasks, rdesc, meas, show.info = FALSE)
2 V) n7 k' L: O- \: U2 G: sbmr
( H7 q9 r8 n: N1 l3 J% o2 r% E: KplotBMRBoxplots(bmr, measure = ber, style = "violin", pretty.names = FALSE) +
# D) _0 c5 b$ V- A' F, X/ \) J j aes(color = learner.id) +
: M) g/ [: D0 z theme(strip.text.x = element_text(size = 8)) |
|