- 金錢
- 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(
8 N1 r! R d6 z! _ makeLearner("classif.lda", id = "lda"),
: A! l" R! _2 v, ^8 p makeLearner("classif.rpart", id = "rpart"),. t: n b) n5 W0 t$ G9 d5 v
makeLearner("classif.randomForest", id = "randomForest")
0 t) L! U7 ^6 J)
4 g0 L7 ^+ F; _( ^5 S. M; J; ^" k* c
## Get additional Tasks from package mlbench1 O3 v3 A/ J6 \8 S) W$ C, V
ring.task = convertMLBenchObjToTask("mlbench.ringnorm", n = 10). Y. E; ?- m1 ?. m. T0 o
wave.task = convertMLBenchObjToTask("mlbench.waveform", n = 10)5 H- n/ s3 b0 [1 }2 ?
7 d6 W% X7 l5 {9 F m
tasks = list(iris.task, sonar.task, pid.task, ring.task, wave.task)
- O, @% j3 Q7 O$ k% erdesc = makeResampleDesc("CV", iters = 3)
. Y+ Q* _1 x n [( `meas = list(mmce, ber, timetrain)
- R; E9 U @+ H) f1 E5 d V/ kbmr = benchmark(lrns, tasks, rdesc, meas, show.info = FALSE)! L) G8 V$ q+ \: n6 y$ x
bmr
/ x0 \, d$ ^1 mplotBMRBoxplots(bmr, measure = ber, style = "violin", pretty.names = FALSE) +5 u9 u+ p' W1 J# \2 K, K$ y- K
aes(color = learner.id) +& C/ O$ {/ d+ [6 |
theme(strip.text.x = element_text(size = 8)) |
|