- 金錢
- 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(
% n7 T' ?) m, [& x8 g makeLearner("classif.lda", id = "lda"),/ \9 `% K$ L% F8 K( c/ j
makeLearner("classif.rpart", id = "rpart"),
1 H8 N5 h. G* P! M: K makeLearner("classif.randomForest", id = "randomForest")
% R4 r9 j, _) d8 c. X). h' w7 x9 x% ]1 l
9 b) o5 a( c, t: K" h) J6 C## Get additional Tasks from package mlbench t; w+ t. h! N% n
ring.task = convertMLBenchObjToTask("mlbench.ringnorm", n = 10)
, i$ w9 ^: {' _4 `' \/ _( R9 U6 m- iwave.task = convertMLBenchObjToTask("mlbench.waveform", n = 10); d0 A* u) }4 C
$ ^2 g) J* R( o- }: g8 J- N
tasks = list(iris.task, sonar.task, pid.task, ring.task, wave.task)
: Q1 v; @, Z4 ?2 crdesc = makeResampleDesc("CV", iters = 3)- e! q- K( a1 N( ^5 U
meas = list(mmce, ber, timetrain)+ p/ T1 p! b/ |9 P& p: W! l
bmr = benchmark(lrns, tasks, rdesc, meas, show.info = FALSE)3 l0 f1 ~* V! E
bmr0 @5 b8 \' L( E
plotBMRBoxplots(bmr, measure = ber, style = "violin", pretty.names = FALSE) +
0 b' X9 J( b) l, S, E$ {0 c aes(color = learner.id) +
, S" ^' P6 m% i( @% [ theme(strip.text.x = element_text(size = 8)) |
|