- 金錢
- 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(
/ ]4 ?! F0 i- p0 z- \ makeLearner("classif.lda", id = "lda"),# M6 [; n: P# _& i3 M2 L0 j D
makeLearner("classif.rpart", id = "rpart"),
, g3 k1 t$ p7 X |3 Y2 R. E makeLearner("classif.randomForest", id = "randomForest")
, S! k! U0 \4 b% F) B& I)9 g( ?" p N0 ]4 D5 Z( I1 _- {
; ^ k9 E5 E7 x7 p9 ~' q9 a$ U* v
## Get additional Tasks from package mlbench
4 K" ?% K. _) i1 q j( I* q: lring.task = convertMLBenchObjToTask("mlbench.ringnorm", n = 10)9 Q1 n- {5 Q6 x6 [8 g" K2 P
wave.task = convertMLBenchObjToTask("mlbench.waveform", n = 10)
* Q6 I! M, a0 B' U# Z* C, H+ Z2 {# m& A" \
tasks = list(iris.task, sonar.task, pid.task, ring.task, wave.task)2 p7 `+ Q* W) c
rdesc = makeResampleDesc("CV", iters = 3). y, }: o$ D! I- m
meas = list(mmce, ber, timetrain): g& K2 k4 [( ^# {" P6 Z! a0 p
bmr = benchmark(lrns, tasks, rdesc, meas, show.info = FALSE)* ?# Y& _6 w% {) G1 }
bmr8 v* L+ Z2 H0 \2 u9 ^5 Q" l3 K
plotBMRBoxplots(bmr, measure = ber, style = "violin", pretty.names = FALSE) +
( M) D+ l; o: j) Q9 ~, w aes(color = learner.id) +
' \7 U9 v" h- ^: C theme(strip.text.x = element_text(size = 8)) |
|