差分
このページの2つのバージョン間の差分を表示します。
両方とも前のリビジョン 前のリビジョン | 最新のリビジョン 両方とも次のリビジョン | ||
mselab:2014:stat:week3:r1 [2015/01/27 11:22] watalu |
mselab:2014:stat:week3:r1 [2015/01/27 11:24] watalu |
||
---|---|---|---|
行 48: | 行 48: | ||
bank.ada.p <- predict(bank.ada, | bank.ada.p <- predict(bank.ada, | ||
table(bank.ada.p, | table(bank.ada.p, | ||
+ | </ | ||
+ | |||
+ | < | ||
+ | bank.rf <- randomForest(y~., | ||
+ | bank.rf.p <- predict(bank.rf) | ||
+ | table(bank.rf.p, | ||
</ | </ | ||