- 金錢
- 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(7 n2 T! [! e1 `9 ^$ J" W
makeLearner("classif.lda", id = "lda"),( j" r7 P) ?; \9 e" Y# P; v
makeLearner("classif.rpart", id = "rpart"),9 L) A8 {( h8 j6 n& N
makeLearner("classif.randomForest", id = "randomForest")
J5 m! v1 Z3 W2 ]/ A% ]) t)
9 y4 {+ U& Y; I1 s
$ G, j. i7 T" B; R. F9 `0 c( X## Get additional Tasks from package mlbench' @0 B- h9 j5 ~ w; A9 _; h8 I% {
ring.task = convertMLBenchObjToTask("mlbench.ringnorm", n = 10)$ x* H2 _8 J. D
wave.task = convertMLBenchObjToTask("mlbench.waveform", n = 10)
9 C0 F$ y' s" }9 R5 ]* j# g% t4 g$ G! F3 E% a" Q
tasks = list(iris.task, sonar.task, pid.task, ring.task, wave.task)
( q6 ^0 M b. }' trdesc = makeResampleDesc("CV", iters = 3)$ o% j$ T" m2 E a6 f! N
meas = list(mmce, ber, timetrain)7 k9 r' ] X; @6 w* }
bmr = benchmark(lrns, tasks, rdesc, meas, show.info = FALSE)8 [$ {# T4 g8 X+ T) \, u
bmr
# Z% B* T4 I& V) }. ]1 c9 YplotBMRBoxplots(bmr, measure = ber, style = "violin", pretty.names = FALSE) +& _' p" @' e h; Q3 G) f
aes(color = learner.id) +
2 D! b/ l- W8 S4 k theme(strip.text.x = element_text(size = 8)) |
|