- 金錢
- 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(" y3 i9 _ _8 s1 L |3 T
makeLearner("classif.lda", id = "lda"),4 w m- `8 B& E0 o: {
makeLearner("classif.rpart", id = "rpart"),
( L/ n4 ]( a3 e' I2 ? makeLearner("classif.randomForest", id = "randomForest")
( t' R2 M# q4 h, C" w)( _, R8 h6 ~6 i: W, w$ P* M# T
% T* }( F7 X, |$ F# X
## Get additional Tasks from package mlbench$ n! |6 Q& B# G. y( l y2 [
ring.task = convertMLBenchObjToTask("mlbench.ringnorm", n = 10)
; e$ V% G0 y+ Fwave.task = convertMLBenchObjToTask("mlbench.waveform", n = 10)% B2 a" a/ T- a$ b6 O" k5 }
3 M5 m& W( ~1 otasks = list(iris.task, sonar.task, pid.task, ring.task, wave.task)
% q/ O: `& d5 G5 P2 o% e4 |rdesc = makeResampleDesc("CV", iters = 3)
1 ~' w d! Z8 v/ D# Vmeas = list(mmce, ber, timetrain)' ~. z$ n |, X1 D& J+ ~/ R
bmr = benchmark(lrns, tasks, rdesc, meas, show.info = FALSE)
& D- c$ \- k4 @) c/ G' {, jbmr6 r% r" Y$ t) Y
plotBMRBoxplots(bmr, measure = ber, style = "violin", pretty.names = FALSE) +- d1 N3 O U$ b7 h
aes(color = learner.id) +
& Q! t- z! K* v, x7 m theme(strip.text.x = element_text(size = 8)) |
|