差分
このページの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, | ||
| </ | </ | ||