- 金錢
- 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(
: g! |. i' v( n3 |" W) v makeLearner("classif.lda", id = "lda"),- |6 ?: ]. J2 Z5 O$ }% L5 B
makeLearner("classif.rpart", id = "rpart"),
5 W# }2 j7 S7 { makeLearner("classif.randomForest", id = "randomForest")
$ @7 E* w! a- t0 U9 g) V0 ^6 ~# ])
+ ?% f' P' h! p' F; Q" S/ S% l3 G \6 p9 n$ N' [0 [- z5 M
## Get additional Tasks from package mlbench
/ U2 R0 P! N" bring.task = convertMLBenchObjToTask("mlbench.ringnorm", n = 10)
/ j4 j' F/ }! g, Y# i- Ewave.task = convertMLBenchObjToTask("mlbench.waveform", n = 10)% {3 ^( u, b* M7 ~
4 i+ j# [( a$ b0 ^3 y; O. ?tasks = list(iris.task, sonar.task, pid.task, ring.task, wave.task)
' X$ O5 F4 ?* L& m0 Q) k8 vrdesc = makeResampleDesc("CV", iters = 3)% p4 K9 o( d! M2 U; a2 ?
meas = list(mmce, ber, timetrain)6 n0 l9 f) c o* [
bmr = benchmark(lrns, tasks, rdesc, meas, show.info = FALSE)
3 l0 w! U; H/ o6 N# Rbmr
" C; Q" M3 c) g! y W9 gplotBMRBoxplots(bmr, measure = ber, style = "violin", pretty.names = FALSE) +
. R0 k; P) m: U/ ]- { aes(color = learner.id) +- q: P# `6 x B# L8 a* x$ n
theme(strip.text.x = element_text(size = 8)) |
|