- 金錢
- 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(
& l7 f- o9 V$ E makeLearner("classif.lda", id = "lda"),
$ ~/ a$ Q% |& _# `$ L" ?% j makeLearner("classif.rpart", id = "rpart"),6 U; S3 o: q. p9 j* O: c! N6 j
makeLearner("classif.randomForest", id = "randomForest")* l) K! o. g. V- \4 `: r
)
8 b4 W" m, K. `+ g$ @1 P
% F4 P! y( T" b. `% ~" r+ e/ I## Get additional Tasks from package mlbench% l: T# u' P5 h1 t3 @. D w
ring.task = convertMLBenchObjToTask("mlbench.ringnorm", n = 10)
0 `' |% [/ L: b( A9 h# [0 |wave.task = convertMLBenchObjToTask("mlbench.waveform", n = 10)
1 r3 |" o! Z8 A% h3 i
! L% V% z4 L- X& q4 n% j, L5 Itasks = list(iris.task, sonar.task, pid.task, ring.task, wave.task)$ z" Y3 S/ I" ]8 S; V
rdesc = makeResampleDesc("CV", iters = 3)2 e' K; R6 _' N; ] O! P
meas = list(mmce, ber, timetrain)
3 `- D; I2 U I0 Bbmr = benchmark(lrns, tasks, rdesc, meas, show.info = FALSE)
0 u l- N# B% h8 h! i9 vbmr9 c9 |' ~% M8 u+ u2 ?2 W7 h1 T1 e
plotBMRBoxplots(bmr, measure = ber, style = "violin", pretty.names = FALSE) +' v: q( q- ^* u. T4 {
aes(color = learner.id) +
3 X, R% X" B. z* S theme(strip.text.x = element_text(size = 8)) |
|