- 金錢
- 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(
: \" _& Q4 ~/ @& D- w makeLearner("classif.lda", id = "lda"),
1 P& E- L- A0 ^2 C( w! c2 u# J makeLearner("classif.rpart", id = "rpart"),
' j& I, Y3 d2 y' D) E( e makeLearner("classif.randomForest", id = "randomForest")' B& h5 ^* x) g- {9 m4 v% z+ H
). l( s, ?3 v& L3 J; U! t
7 |; Y H+ b$ p4 q) K## Get additional Tasks from package mlbench. f5 s1 @" P/ K' H* w6 Q
ring.task = convertMLBenchObjToTask("mlbench.ringnorm", n = 10)
" v4 R' b, G7 _( Uwave.task = convertMLBenchObjToTask("mlbench.waveform", n = 10), N+ E5 G3 q7 N0 L2 W% w8 X; I* N
! V" O8 \; N# H& N/ N! Ftasks = list(iris.task, sonar.task, pid.task, ring.task, wave.task)
4 R) ?0 n+ x1 }) @rdesc = makeResampleDesc("CV", iters = 3)* Y) d5 i8 i5 \1 ^9 P
meas = list(mmce, ber, timetrain)
% `; x. t% r' N S/ gbmr = benchmark(lrns, tasks, rdesc, meas, show.info = FALSE)' J' j2 u# ~+ H+ f; [4 C
bmr
; @, v9 O7 v. v' @plotBMRBoxplots(bmr, measure = ber, style = "violin", pretty.names = FALSE) +
" Q: L7 z" p0 Z3 F3 d9 i+ I: P aes(color = learner.id) +
9 [. {7 u$ o9 x4 D7 I' y/ a theme(strip.text.x = element_text(size = 8)) |
|