- 金錢
- 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(& M: `5 i8 G2 `4 q3 b! V9 E
makeLearner("classif.lda", id = "lda"),
( M0 L7 b# ^' M6 B2 @ makeLearner("classif.rpart", id = "rpart"),8 f7 k( N2 b3 S4 @$ H; v8 C8 u
makeLearner("classif.randomForest", id = "randomForest"). c" s4 M- w2 K9 _
)9 |" o3 K1 a$ z7 n- z2 y! [
( w" v0 E3 M7 |7 S; O6 ?
## Get additional Tasks from package mlbench0 C/ J2 j+ k& r/ R' I
ring.task = convertMLBenchObjToTask("mlbench.ringnorm", n = 10)
+ k* d. y+ X) e C2 Iwave.task = convertMLBenchObjToTask("mlbench.waveform", n = 10)
7 B3 G: d' I7 a; M6 T/ b' d) ?2 S- {, b; s- ~, i
tasks = list(iris.task, sonar.task, pid.task, ring.task, wave.task)
! M/ \6 q( j A" brdesc = makeResampleDesc("CV", iters = 3)
- ?" t* r7 Q- H- R+ q Zmeas = list(mmce, ber, timetrain)
% f( t. K+ C' @' @: Dbmr = benchmark(lrns, tasks, rdesc, meas, show.info = FALSE)$ R- T$ M$ P1 K. n+ j) i
bmr
* f" ~ U9 Z7 I9 e( p K0 ?, FplotBMRBoxplots(bmr, measure = ber, style = "violin", pretty.names = FALSE) +
6 }1 a- N4 ? H$ V8 a- z" u% | aes(color = learner.id) +! B8 n" B# v9 q5 I3 V+ B
theme(strip.text.x = element_text(size = 8)) |
|