- 金錢
- 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(
* i! O. R- I. |+ y" i makeLearner("classif.lda", id = "lda"),/ n5 _0 r& r9 \. U# M
makeLearner("classif.rpart", id = "rpart"),
/ U. u! [* v% _0 F% u makeLearner("classif.randomForest", id = "randomForest")8 \2 n: ?5 ~. x$ N% r. }) P
)
8 w' D R0 G3 ~% X
" h- ?; K8 q! Z0 f## Get additional Tasks from package mlbench' W/ } ^4 f2 z* M& m' ?4 j# H% J* N
ring.task = convertMLBenchObjToTask("mlbench.ringnorm", n = 10)
- C+ u" H% v! S" r( Gwave.task = convertMLBenchObjToTask("mlbench.waveform", n = 10)( r0 | D) h0 o2 k3 C
% I+ e" G9 y+ _' {! Xtasks = list(iris.task, sonar.task, pid.task, ring.task, wave.task)$ Y, |9 L9 t9 s& q
rdesc = makeResampleDesc("CV", iters = 3)8 Y: z* }9 i. [' X. V2 j
meas = list(mmce, ber, timetrain), |+ W5 C6 k: _% b% {6 F' i
bmr = benchmark(lrns, tasks, rdesc, meas, show.info = FALSE), M, e: E1 P# B1 C0 k" j- B" ~
bmr/ E! V: [$ k$ y: d
plotBMRBoxplots(bmr, measure = ber, style = "violin", pretty.names = FALSE) +
3 _% [' j5 p2 F. E8 L/ h6 a' U aes(color = learner.id) +
4 p$ V' m4 [- ?( `. w- ^ theme(strip.text.x = element_text(size = 8)) |
|