差分
このページの2つのバージョン間の差分を表示します。
両方とも前のリビジョン前のリビジョン | |||
mselab:2014:stat:week3:r1 [2015/01/27 11:24] – watalu | mselab:2014:stat:week3:r1 [2015/01/27 11:30] (現在) – watalu | ||
---|---|---|---|
行 15: | 行 15: | ||
を参考に、進めて欲しい。 | を参考に、進めて欲しい。 | ||
+ | サポートベクターマシン(ksvm)はkernlabパッケージに、バギング(bagging)はipredパッケージに、ブースト(ada)はadaパッケージに、ランダムフォレスト(randomForest)はrandomForestパッケージに、それぞれ含まれているので、まずは必要なパッケージをインストールする。 | ||
< | < | ||
bank <- read.table(" | bank <- read.table(" | ||
行 26: | 行 27: | ||
install.packages(" | install.packages(" | ||
library(ada) | library(ada) | ||
+ | install.packages(" | ||
+ | library(randomForest) | ||
</ | </ | ||
+ | サポートベクターマシンに学習させる実行例: | ||
< | < | ||
bank.svm <- ksvm(y~., data=bank, | bank.svm <- ksvm(y~., data=bank, | ||
行 36: | 行 40: | ||
</ | </ | ||
+ | バギングに学習させる実行例: | ||
< | < | ||
bank.bag< | bank.bag< | ||
行 43: | 行 48: | ||
</ | </ | ||
+ | Adaブーストに学習させる実行例: | ||
< | < | ||
bank.ada <- ada(y~., data=bank, | bank.ada <- ada(y~., data=bank, | ||
行 50: | 行 56: | ||
</ | </ | ||
+ | ランダムフォレストに学習させる実行例: | ||
< | < | ||
bank.rf <- randomForest(y~., | bank.rf <- randomForest(y~., | ||
行 55: | 行 62: | ||
table(bank.rf.p, | table(bank.rf.p, | ||
</ | </ | ||
+ | |||
+ | 以上は「弱い学習機械」の指定と、個々の学習機械の設定パラメータが、デフォルトのままであることとは注意しておく。パラメータのチューニングが必要なはずである。 | ||
+ | |||
+ | なお、この課題では「過学習」について言及していないが、過学習は大事な問題であるので、各自、少し調べて気にすることを進める。 | ||
== 提案書 == | == 提案書 == |