- 金錢
- 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(
! S; S$ D, f# d. u9 x/ C" E makeLearner("classif.lda", id = "lda")," @0 L. g+ D2 ]5 U: C
makeLearner("classif.rpart", id = "rpart"),2 B) a% x, F! c2 b; B
makeLearner("classif.randomForest", id = "randomForest")- F: q" R( Y' K8 ~$ X: q2 a
)
. ?0 A0 F9 h; t5 l {) j, v* D* u* p' q% A4 |' R
## Get additional Tasks from package mlbench2 L" n3 ]" ]% `/ h8 }
ring.task = convertMLBenchObjToTask("mlbench.ringnorm", n = 10)/ N# @) I" b7 u, X: ^( W( d* @
wave.task = convertMLBenchObjToTask("mlbench.waveform", n = 10)' W& a$ l0 b5 ^1 {# I
" ~' R2 i) u, o+ {! p6 s* ]
tasks = list(iris.task, sonar.task, pid.task, ring.task, wave.task)4 ?0 J+ ~& L+ y2 q2 s/ F1 e
rdesc = makeResampleDesc("CV", iters = 3)
7 r6 z3 N$ S: Smeas = list(mmce, ber, timetrain)$ m* @. s e' B+ N$ Y9 i
bmr = benchmark(lrns, tasks, rdesc, meas, show.info = FALSE); D" D) F1 H) L& V
bmr
/ H& {% }! o5 a, Y! E% ~plotBMRBoxplots(bmr, measure = ber, style = "violin", pretty.names = FALSE) +
, _0 N/ Q) h. |9 ^8 g3 f- n aes(color = learner.id) +
8 R. z' `1 g9 G4 ^: J* f theme(strip.text.x = element_text(size = 8)) |
|