- 金錢
- 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(
9 G$ n, ^5 b8 Z" u9 e6 w makeLearner("classif.lda", id = "lda"),$ R: m2 |" N, s0 }- \9 Z0 [
makeLearner("classif.rpart", id = "rpart"),
; U5 ?' n# s( N0 U7 w9 s! Y makeLearner("classif.randomForest", id = "randomForest")
2 E- J" V0 [3 R+ `)( `+ w4 |# Y/ u; i
% u. }5 T- ~- W! h# R/ t- c## Get additional Tasks from package mlbench
9 v7 X" R. F' z5 t# E& Tring.task = convertMLBenchObjToTask("mlbench.ringnorm", n = 10)& a5 L3 M0 v5 a0 ]) Q/ d ~
wave.task = convertMLBenchObjToTask("mlbench.waveform", n = 10)
- e, a1 t9 P3 Q( W4 p' h% ^7 D$ D( Y; \$ w% j% H( L, a
tasks = list(iris.task, sonar.task, pid.task, ring.task, wave.task)
* D8 `3 W: r) u X7 C" irdesc = makeResampleDesc("CV", iters = 3)
9 F( H3 [* b: d9 @/ B z( o/ ~meas = list(mmce, ber, timetrain)
$ |0 i8 |" l% ]) b* W1 D6 Rbmr = benchmark(lrns, tasks, rdesc, meas, show.info = FALSE)2 i* J" I( N5 S) c# Z
bmr0 N# F" I* ?% g3 R& G
plotBMRBoxplots(bmr, measure = ber, style = "violin", pretty.names = FALSE) +
7 V# k" p( o$ q aes(color = learner.id) +
2 X5 g1 p, b. F1 }1 h. l theme(strip.text.x = element_text(size = 8)) |
|