- 金錢
- 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(% v% F4 Z. o# m" R8 s0 y; v
makeLearner("classif.lda", id = "lda"),& P( d& A8 M3 y
makeLearner("classif.rpart", id = "rpart"),
9 T/ x6 a6 q9 N2 U5 B6 r4 d5 U makeLearner("classif.randomForest", id = "randomForest")
$ \; T6 O2 D2 v)( Q1 A+ o" B Y0 J8 S3 Q
( S( \* u5 m) P- B+ S. b8 z* M
## Get additional Tasks from package mlbench
) [5 w8 H& w' ^! \; V/ L( K& ]ring.task = convertMLBenchObjToTask("mlbench.ringnorm", n = 10)
, x( M7 E* {' \1 F% Xwave.task = convertMLBenchObjToTask("mlbench.waveform", n = 10)
3 }5 m* ?3 W" A6 Z8 b6 R+ N- r6 [, a8 V& v2 n7 m! d0 a1 O4 J
tasks = list(iris.task, sonar.task, pid.task, ring.task, wave.task)
) V9 |( U% u7 O6 F7 Yrdesc = makeResampleDesc("CV", iters = 3)
, w; |, U6 y/ Q/ Y) v, vmeas = list(mmce, ber, timetrain)
; A7 K$ [7 O$ A- A& G. @) w5 w+ @bmr = benchmark(lrns, tasks, rdesc, meas, show.info = FALSE)
0 |1 L* H! ?4 n& _5 n: R1 hbmr3 X& p# d Z" `/ ?' {# x5 g
plotBMRBoxplots(bmr, measure = ber, style = "violin", pretty.names = FALSE) +- R- S1 H ? {0 B/ [
aes(color = learner.id) +
i: n' V j% b2 {$ h7 h9 F1 j' ]. C theme(strip.text.x = element_text(size = 8)) |
|