- 金錢
- 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 B: h+ k2 X( w) B makeLearner("classif.lda", id = "lda"),
2 ?7 R" A3 {3 J9 h8 R makeLearner("classif.rpart", id = "rpart"),
6 n! @& R# @8 R z9 |8 T makeLearner("classif.randomForest", id = "randomForest")
5 A/ l) U# r# E/ `# D2 h% `: M)
( i1 Y. G2 }- z+ }5 A# j. c3 T; B7 T
## Get additional Tasks from package mlbench9 n% V0 F+ X, n$ k7 ]! K0 N4 G2 I
ring.task = convertMLBenchObjToTask("mlbench.ringnorm", n = 10)1 t) s2 z* D" ` m" n2 L1 _
wave.task = convertMLBenchObjToTask("mlbench.waveform", n = 10)* P: `! p7 p# W- F0 b6 h, \
1 b: X9 |. _, ~2 p/ y
tasks = list(iris.task, sonar.task, pid.task, ring.task, wave.task)
+ D# [. A, p4 s$ hrdesc = makeResampleDesc("CV", iters = 3)- w2 M) K3 H0 v+ ^
meas = list(mmce, ber, timetrain)
- j0 s3 y1 U3 H9 j8 K5 r4 U4 ybmr = benchmark(lrns, tasks, rdesc, meas, show.info = FALSE)) E( I& M) G7 Y' m, I
bmr
& g! B9 M7 S0 q" A3 @6 WplotBMRBoxplots(bmr, measure = ber, style = "violin", pretty.names = FALSE) +8 Z W0 \$ [8 ~& t
aes(color = learner.id) +% g6 `1 [7 u# n. O% c( h0 B
theme(strip.text.x = element_text(size = 8)) |
|