- 金錢
- 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(: q7 ^7 z% ]4 `# y6 b) \8 b
makeLearner("classif.lda", id = "lda"),( v R) }) m1 ~; O4 |
makeLearner("classif.rpart", id = "rpart"),
# d. K7 J5 x! n" [$ S& W makeLearner("classif.randomForest", id = "randomForest")
7 A7 ?" ?8 l$ m3 ~8 O- M3 m* f$ M$ x* \)4 @5 B* a8 o' R6 w$ t
2 P" U* N" p! o## Get additional Tasks from package mlbench
. x$ q2 `$ Z6 B _ring.task = convertMLBenchObjToTask("mlbench.ringnorm", n = 10)8 @+ x6 ^' I$ j
wave.task = convertMLBenchObjToTask("mlbench.waveform", n = 10)6 J: a" z1 Y2 Z0 n
Z& z f9 N1 v& F/ H1 I
tasks = list(iris.task, sonar.task, pid.task, ring.task, wave.task); v4 {+ j- o5 N# P7 d0 \
rdesc = makeResampleDesc("CV", iters = 3)
( X9 |. \+ O1 w4 |, w/ lmeas = list(mmce, ber, timetrain)
1 `& v- U2 n2 y+ X4 Z$ M. wbmr = benchmark(lrns, tasks, rdesc, meas, show.info = FALSE)
; w/ @2 O9 v8 _+ |1 Z% Q$ c/ S" s$ {bmr
" y+ i/ \7 Q( n0 TplotBMRBoxplots(bmr, measure = ber, style = "violin", pretty.names = FALSE) +7 W5 o5 B5 ?1 O
aes(color = learner.id) +9 F- N7 \! j$ W. } y
theme(strip.text.x = element_text(size = 8)) |
|