- 金錢
- 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(
! x, J1 l% Q& S: h$ h makeLearner("classif.lda", id = "lda"),
* d( n. ~, }5 `* ^! |9 ` makeLearner("classif.rpart", id = "rpart"),0 s' g' R" B1 Y0 `' S8 E9 x. j
makeLearner("classif.randomForest", id = "randomForest")
; J. N- c0 ?- @3 F) g0 E) L; \* Y: y0 p0 E; w
% v8 U; r2 J- e9 k a5 F7 o## Get additional Tasks from package mlbench( Z5 z: s% O. k m
ring.task = convertMLBenchObjToTask("mlbench.ringnorm", n = 10)# K) ]* A7 |- B" Q2 A' z
wave.task = convertMLBenchObjToTask("mlbench.waveform", n = 10)6 R D% x. Z1 ^
0 `$ A% ^" O& I" {4 e
tasks = list(iris.task, sonar.task, pid.task, ring.task, wave.task)
$ m2 s M! ~/ A8 Jrdesc = makeResampleDesc("CV", iters = 3)
$ _; F2 V7 I r! z) @; tmeas = list(mmce, ber, timetrain)+ u2 F D3 N C" B! s# W7 {% h
bmr = benchmark(lrns, tasks, rdesc, meas, show.info = FALSE)
, ?) ?4 y }( s+ Cbmr
/ [ s# U% p/ g, B1 k% A3 l% AplotBMRBoxplots(bmr, measure = ber, style = "violin", pretty.names = FALSE) +
# K! g7 {4 T3 `8 r. X aes(color = learner.id) +
7 L# O6 T7 q/ Y2 V theme(strip.text.x = element_text(size = 8)) |
|