- 金錢
- 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( s- F' T5 C! w2 N
makeLearner("classif.lda", id = "lda"),
# I" X- ?! Q5 }7 a1 q/ C$ M makeLearner("classif.rpart", id = "rpart")," o1 V: ?3 b, D
makeLearner("classif.randomForest", id = "randomForest")$ M3 `. \& x* Q$ A7 P% K
)& o$ c! l2 t6 U/ f: w
$ @4 n7 K3 }! S/ C# G
## Get additional Tasks from package mlbench2 E7 i7 N) Y+ O- U
ring.task = convertMLBenchObjToTask("mlbench.ringnorm", n = 10)
; F' q" `7 N# U# Cwave.task = convertMLBenchObjToTask("mlbench.waveform", n = 10)
& ?6 C: b/ A# c( P6 P: ]/ [
( Q) a, q3 a/ R. E8 Ktasks = list(iris.task, sonar.task, pid.task, ring.task, wave.task)( W2 q8 c7 x" y! K! [9 r* W; G: D
rdesc = makeResampleDesc("CV", iters = 3)
4 M. j o9 ]% B( ~5 A; e' @meas = list(mmce, ber, timetrain)
2 p0 S' ?2 L; Q; n3 \# {bmr = benchmark(lrns, tasks, rdesc, meas, show.info = FALSE)
1 D2 y _9 L* K$ E6 Y7 S3 Vbmr
, I5 S. Q, a( ]3 ?. M* U. y& @plotBMRBoxplots(bmr, measure = ber, style = "violin", pretty.names = FALSE) +
& T9 s/ ?1 v: w) h2 \ aes(color = learner.id) +
3 Q# v+ c: O2 O W theme(strip.text.x = element_text(size = 8)) |
|