- 金錢
- 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(
! n# P/ ^" D$ ^" p% L7 j3 X makeLearner("classif.lda", id = "lda"),
! t: p$ Z+ L; W0 T: u makeLearner("classif.rpart", id = "rpart"),0 c+ x6 n. S1 V o, H
makeLearner("classif.randomForest", id = "randomForest")) g9 s9 F. p3 e/ H
)
E3 C: b. }8 W! q
! V( n Y: e. a h& S- c& ?; c5 h## Get additional Tasks from package mlbench
) K: L4 V. H3 J. Y0 p+ O1 ?4 u8 o4 hring.task = convertMLBenchObjToTask("mlbench.ringnorm", n = 10)
& J, G) ~; ^( \6 l( `- W2 uwave.task = convertMLBenchObjToTask("mlbench.waveform", n = 10)! L* ^5 G4 l( l$ c1 L
- V1 Y" s6 o- v3 F$ m' r' u
tasks = list(iris.task, sonar.task, pid.task, ring.task, wave.task)" \7 r# B9 H$ K; E, D3 c! X6 u2 u
rdesc = makeResampleDesc("CV", iters = 3)
& g5 \6 M( b' r2 a3 U* a1 Wmeas = list(mmce, ber, timetrain)
( C3 C3 ~. }! Rbmr = benchmark(lrns, tasks, rdesc, meas, show.info = FALSE)
7 t, V" {9 u9 P0 rbmr! B' H& f0 t# x/ }( \9 @( m
plotBMRBoxplots(bmr, measure = ber, style = "violin", pretty.names = FALSE) +
* ?* M: c* f4 K" w' C/ K% k aes(color = learner.id) + S8 j2 [ K" G+ \4 P, u" U2 T$ q
theme(strip.text.x = element_text(size = 8)) |
|