- 金錢
- 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(
. t! M& g! c! F makeLearner("classif.lda", id = "lda"),- p. ]5 e: I3 Q) x$ n0 [
makeLearner("classif.rpart", id = "rpart"),
. V% W3 O2 J' X) c& I makeLearner("classif.randomForest", id = "randomForest")
% c9 Q9 Y0 s# k6 d)
0 c, M8 \" f. |8 Q% W' h+ s( ]8 P
/ a) q, R/ j8 y# ?" L## Get additional Tasks from package mlbench2 x" \* N6 n1 n% F, c' J; \" v
ring.task = convertMLBenchObjToTask("mlbench.ringnorm", n = 10)
* O- d' @# G' F( _; i. ]$ N) j5 e' Hwave.task = convertMLBenchObjToTask("mlbench.waveform", n = 10)6 o) `# g0 N. F! d: n% D: Z
$ T5 g X& u; M0 m3 [- C Mtasks = list(iris.task, sonar.task, pid.task, ring.task, wave.task)6 ^3 B4 U& X! q0 K2 m
rdesc = makeResampleDesc("CV", iters = 3)$ Z7 q# K# m1 Z5 y- c9 t' A
meas = list(mmce, ber, timetrain)/ r7 [% L- p% g9 g( Y. d$ T
bmr = benchmark(lrns, tasks, rdesc, meas, show.info = FALSE)4 A8 H# @6 S/ S" c6 j D
bmr9 y" f1 y" ^8 {9 p" v& j
plotBMRBoxplots(bmr, measure = ber, style = "violin", pretty.names = FALSE) +
1 u8 K* n- W5 ~1 s1 `5 g9 Y" o# ~ aes(color = learner.id) +
4 H5 S) C6 q# n e0 I4 L6 J theme(strip.text.x = element_text(size = 8)) |
|