- 金錢
- 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 G2 K7 I$ o3 k' A( R& Y" ]' i makeLearner("classif.lda", id = "lda"),
- O& ~- l5 g& R! e makeLearner("classif.rpart", id = "rpart"),4 m* d3 m4 ` | _. |" n, W8 q
makeLearner("classif.randomForest", id = "randomForest")
* c% K2 A' H; }: M" I- q" t); S& Y4 W4 \2 b, a7 X
# E F8 s3 N- S: d## Get additional Tasks from package mlbench: p4 v0 r# a' o8 N
ring.task = convertMLBenchObjToTask("mlbench.ringnorm", n = 10)
4 I3 h% i0 |) N$ Y! Vwave.task = convertMLBenchObjToTask("mlbench.waveform", n = 10)
6 m& w! B Q; Y6 Y: T3 n& Q# n9 c% y
1 Y4 Q1 e: t# [" s( @& ?0 wtasks = list(iris.task, sonar.task, pid.task, ring.task, wave.task)* j0 O3 K. j4 e" v: A* O8 Z
rdesc = makeResampleDesc("CV", iters = 3)# I4 n2 u A+ V% k" a' C0 r# M
meas = list(mmce, ber, timetrain)1 C) d) v* v. p( F$ l
bmr = benchmark(lrns, tasks, rdesc, meas, show.info = FALSE)
% o8 J) ?9 b, Z, q; c; Sbmr6 S% M3 _! S+ t# ~
plotBMRBoxplots(bmr, measure = ber, style = "violin", pretty.names = FALSE) +( W2 s# U( q1 V/ e) r5 k( R
aes(color = learner.id) +
# U& @! [; d, I7 E theme(strip.text.x = element_text(size = 8)) |
|