- 金錢
- 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(: z# T2 m9 q% J& D2 ~& b
makeLearner("classif.lda", id = "lda"),( X* P$ n* g+ @( o1 z9 Z! H
makeLearner("classif.rpart", id = "rpart"),
4 `& ~0 t$ B" x e# F# j% m makeLearner("classif.randomForest", id = "randomForest")
, F( u5 D% X$ r. Q# h% })- a1 ~' p! t+ U/ R/ X5 l
+ S$ g7 H; S2 D& Z5 M7 \
## Get additional Tasks from package mlbench8 d3 L" h1 m, J( `% R2 L
ring.task = convertMLBenchObjToTask("mlbench.ringnorm", n = 10)
# i& a5 C6 x( _" u# [* p$ F) L2 f8 y5 Iwave.task = convertMLBenchObjToTask("mlbench.waveform", n = 10)
6 {! m% x3 }! {! W! c, I
2 D/ l# ]8 |- Q1 r2 ^4 vtasks = list(iris.task, sonar.task, pid.task, ring.task, wave.task)- _1 q$ b" q+ K* ]" R5 f9 `" _- T
rdesc = makeResampleDesc("CV", iters = 3)
) ]) @1 ?# u# K7 Z+ E; ]) fmeas = list(mmce, ber, timetrain)4 a! Y: J% D3 b( J
bmr = benchmark(lrns, tasks, rdesc, meas, show.info = FALSE)! s B& K8 f* L% v5 ]
bmr
3 \- f- _4 N% M* `5 X1 jplotBMRBoxplots(bmr, measure = ber, style = "violin", pretty.names = FALSE) +
3 b, o( U5 M4 j/ P' l' p1 a aes(color = learner.id) +' l+ o; Q/ z. m6 q2 L
theme(strip.text.x = element_text(size = 8)) |
|