- 金錢
- 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(9 @0 G6 G& f% X4 j, {* Z3 t* z
makeLearner("classif.lda", id = "lda"),
/ j0 B# u& n/ F* ~$ A( I) l& L makeLearner("classif.rpart", id = "rpart"),
7 x( F6 |" w0 t3 ] makeLearner("classif.randomForest", id = "randomForest")/ m. @0 O& q: ~
)! N0 x$ w/ B. ^
: `8 g1 s. k1 ]' W## Get additional Tasks from package mlbench: v& z: S& N+ o* c- u
ring.task = convertMLBenchObjToTask("mlbench.ringnorm", n = 10)! {! b; |1 P+ D6 p. \$ m4 q
wave.task = convertMLBenchObjToTask("mlbench.waveform", n = 10)' `- k; ~4 z" T9 O) [
6 P# `3 T5 a" G' s* S3 G" P
tasks = list(iris.task, sonar.task, pid.task, ring.task, wave.task)
6 ?/ V0 e! o! ?' Qrdesc = makeResampleDesc("CV", iters = 3)
0 A" c8 s. }3 x! `" |) }+ vmeas = list(mmce, ber, timetrain)% w1 ^, u; [0 R+ z3 B4 n8 {: L
bmr = benchmark(lrns, tasks, rdesc, meas, show.info = FALSE)% s. ~( X( k1 Q) S
bmr5 I! u; e1 @. G% R$ @
plotBMRBoxplots(bmr, measure = ber, style = "violin", pretty.names = FALSE) +
* W& Q* M' B# H# v) P3 m aes(color = learner.id) +
$ E3 O4 x0 `# m% S, _6 @. F1 l theme(strip.text.x = element_text(size = 8)) |
|