- 金錢
- 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(& A4 e& b+ G& x4 I
makeLearner("classif.lda", id = "lda"),# l3 V8 b+ j% T5 D1 K
makeLearner("classif.rpart", id = "rpart"),
8 E# }' K5 F/ u' [! @ k makeLearner("classif.randomForest", id = "randomForest")
# x/ U1 ^' d6 X$ N' O( F)
2 ^% W; o) o. Q c# ^/ a6 E
% M$ r. ]. T: N7 ^3 q## Get additional Tasks from package mlbench8 X. h: L P) P$ ^" G7 j" _
ring.task = convertMLBenchObjToTask("mlbench.ringnorm", n = 10)& R1 Z4 d) N& p8 ~" j4 E: K5 s) f
wave.task = convertMLBenchObjToTask("mlbench.waveform", n = 10)
8 w5 m0 c4 x$ i7 v% t5 a8 V k& F3 i6 X! W u* J, |5 f
tasks = list(iris.task, sonar.task, pid.task, ring.task, wave.task)
+ E' j, }) e9 g0 w* a$ ^. _rdesc = makeResampleDesc("CV", iters = 3)
# A' ~: J- ]; u& {3 U+ mmeas = list(mmce, ber, timetrain)
3 g5 \% Q& b9 D: G1 ?& y% z0 Rbmr = benchmark(lrns, tasks, rdesc, meas, show.info = FALSE)+ v1 x% r' b: s2 S% i
bmr# b0 D& U' j- }# D+ j
plotBMRBoxplots(bmr, measure = ber, style = "violin", pretty.names = FALSE) +
" A* I0 A' @: K' c aes(color = learner.id) +
) r% M. z0 P& c6 y1 U7 d/ i+ v8 B# b theme(strip.text.x = element_text(size = 8)) |
|