- 金錢
- 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(" H: l6 x! \& b* i1 A# `0 H* u
makeLearner("classif.lda", id = "lda"),2 s1 Q6 q6 a5 R0 p) E% p8 L. F! }
makeLearner("classif.rpart", id = "rpart"),
0 m+ h6 P, L: f! l2 ` makeLearner("classif.randomForest", id = "randomForest")
! R' ~/ ~$ t6 F- J' y- K; v)
( b. {& p! t8 B
/ U, `) i0 C% {# m## Get additional Tasks from package mlbench& _% j/ x2 X0 ?
ring.task = convertMLBenchObjToTask("mlbench.ringnorm", n = 10)2 c7 k* |# ]8 I2 F1 H i L) w
wave.task = convertMLBenchObjToTask("mlbench.waveform", n = 10); E: m$ {) g9 N3 w9 }5 W; e) l
" D/ r) j w. Y# G% I' atasks = list(iris.task, sonar.task, pid.task, ring.task, wave.task)
( N1 n" y% a& ?& u9 o' _- W- o) Ardesc = makeResampleDesc("CV", iters = 3)
$ d3 }% J$ _ M6 {+ y$ Zmeas = list(mmce, ber, timetrain)
- v6 D8 C/ L& P6 Mbmr = benchmark(lrns, tasks, rdesc, meas, show.info = FALSE)
! z# ?* E4 x4 qbmr
( Y6 r- y$ W5 L8 R6 E$ d! @5 GplotBMRBoxplots(bmr, measure = ber, style = "violin", pretty.names = FALSE) +. j% j" [" t9 s h
aes(color = learner.id) +
1 t d# A4 i5 r! V4 E theme(strip.text.x = element_text(size = 8)) |
|