- 金錢
- 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(: w9 Y% J% j( T* } J# }- Q2 c
makeLearner("classif.lda", id = "lda"),
' Y8 ^, V+ y5 z' k6 U4 M makeLearner("classif.rpart", id = "rpart"),
+ ]) S" D3 a0 k1 ^& P makeLearner("classif.randomForest", id = "randomForest")6 {+ \0 D* N1 H& W7 h
)
! n! D# G! l" Q+ r s2 J$ X# Z6 Y& E0 m* {& ]& k; _
## Get additional Tasks from package mlbench
. f; n5 l v0 f" F% q- Jring.task = convertMLBenchObjToTask("mlbench.ringnorm", n = 10)7 V# t) o8 z @& A: [: Y
wave.task = convertMLBenchObjToTask("mlbench.waveform", n = 10)) [- j: ?$ C$ @3 H- z, \
6 c2 h" f( B2 f5 c# L1 }
tasks = list(iris.task, sonar.task, pid.task, ring.task, wave.task): T; t+ h# Z+ R7 c8 X- R1 Q8 k8 x
rdesc = makeResampleDesc("CV", iters = 3): M$ t' O( z. M
meas = list(mmce, ber, timetrain)( Z5 j. A- a0 O
bmr = benchmark(lrns, tasks, rdesc, meas, show.info = FALSE)9 R8 V+ h \; c9 [: R' j
bmr" v+ A: K/ y1 {) b5 t
plotBMRBoxplots(bmr, measure = ber, style = "violin", pretty.names = FALSE) + @/ b$ J0 H; L$ I4 w t
aes(color = learner.id) +7 P& A+ |* m0 Q' N/ e
theme(strip.text.x = element_text(size = 8)) |
|