- 金錢
- 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(2 p7 }* ]5 b5 x1 I1 h
makeLearner("classif.lda", id = "lda"),
" n$ [, i( g- `. s. w- V/ A makeLearner("classif.rpart", id = "rpart"),
1 e1 E5 h8 [, J8 K V makeLearner("classif.randomForest", id = "randomForest")( G0 ^5 u- p# V
)- H( e7 @ o: j1 N+ Z9 ]
$ z4 f. O8 y8 ^( p! U## Get additional Tasks from package mlbench8 x2 V/ C" y3 \& g; Q
ring.task = convertMLBenchObjToTask("mlbench.ringnorm", n = 10)# R2 t+ F% H" j/ S# q
wave.task = convertMLBenchObjToTask("mlbench.waveform", n = 10)2 K2 X/ Z! i; g; T, ]
6 u" R/ }# u% o+ y
tasks = list(iris.task, sonar.task, pid.task, ring.task, wave.task)% L; ?9 C# x3 s( N t
rdesc = makeResampleDesc("CV", iters = 3)
, f+ n: c. W5 k; L6 Nmeas = list(mmce, ber, timetrain)* Q$ e' D y9 ^$ n7 O
bmr = benchmark(lrns, tasks, rdesc, meas, show.info = FALSE)
: ^/ p3 [ m: M7 `( Y1 fbmr- u- V- W& b$ ~' n2 J* y
plotBMRBoxplots(bmr, measure = ber, style = "violin", pretty.names = FALSE) +! J+ p7 v+ m5 y
aes(color = learner.id) +
' O6 d* r* j; Y: u1 Y2 x/ f theme(strip.text.x = element_text(size = 8)) |
|