- 金錢
- 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 o$ |; S( @( ?
makeLearner("classif.lda", id = "lda"),; p a3 p1 K/ C c' c( {
makeLearner("classif.rpart", id = "rpart"),( W' O) e1 u f$ |. t5 r5 z7 Q% T% @5 v
makeLearner("classif.randomForest", id = "randomForest")
( G$ k3 {( q0 n6 C1 K5 i W0 Q)
2 o, U3 n2 p* f+ ~- h6 r3 m; L. m6 \* b2 k" Z0 H V4 W
## Get additional Tasks from package mlbench
- E5 `$ ?2 b: }. g9 J& X4 M0 y6 Fring.task = convertMLBenchObjToTask("mlbench.ringnorm", n = 10)
3 V' Q4 m, r; r }5 }wave.task = convertMLBenchObjToTask("mlbench.waveform", n = 10)
. d7 U# K& S" b5 ], D$ @) s3 k6 p/ C% W5 W3 P" d0 a- g
tasks = list(iris.task, sonar.task, pid.task, ring.task, wave.task)
4 n) Y! u. Q: I& K7 C$ F1 hrdesc = makeResampleDesc("CV", iters = 3)
9 k7 t+ N1 M" }7 f& ^ umeas = list(mmce, ber, timetrain)
# ^$ w0 T9 R7 pbmr = benchmark(lrns, tasks, rdesc, meas, show.info = FALSE)/ }4 m# f9 ?8 o. j: @( I
bmr! P0 R1 u; X! b" h
plotBMRBoxplots(bmr, measure = ber, style = "violin", pretty.names = FALSE) +4 N) u4 I4 e% i0 H" l, t+ q
aes(color = learner.id) +
- b; V3 ^4 i- M. o6 ~+ d$ i theme(strip.text.x = element_text(size = 8)) |
|