差分
このページの2つのバージョン間の差分を表示します。
両方とも前のリビジョン前のリビジョン次のリビジョン | 前のリビジョン | ||
mselab:2014:stat:week3:r1 [2015/01/27 11:04] – 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(" | ||
+ | | ||
+ | | ||
+ | Sys.setenv(" | ||
+ | install.packages(" | ||
+ | library(kernlab) | ||
+ | install.packages(" | ||
+ | library(ipred) | ||
+ | install.packages(" | ||
+ | library(ada) | ||
+ | install.packages(" | ||
+ | library(randomForest) | ||
</ | </ | ||
+ | |||
+ | サポートベクターマシンに学習させる実行例: | ||
+ | < | ||
+ | bank.svm <- ksvm(y~., data=bank, | ||
+ | | ||
+ | | ||
+ | bank.svm.p< | ||
+ | table(bank.svm.p, | ||
+ | </ | ||
+ | |||
+ | バギングに学習させる実行例: | ||
+ | < | ||
+ | bank.bag< | ||
+ | nbagg=40) | ||
+ | bank.bag.p <- predict(bank.bag, | ||
+ | table(bank.bag.p, | ||
+ | </ | ||
+ | |||
+ | Adaブーストに学習させる実行例: | ||
+ | < | ||
+ | bank.ada <- ada(y~., data=bank, | ||
+ | iter=20) | ||
+ | bank.ada.p <- predict(bank.ada, | ||
+ | table(bank.ada.p, | ||
+ | </ | ||
+ | |||
+ | ランダムフォレストに学習させる実行例: | ||
+ | < | ||
+ | bank.rf <- randomForest(y~., | ||
+ | bank.rf.p <- predict(bank.rf) | ||
+ | table(bank.rf.p, | ||
+ | </ | ||
+ | |||
+ | 以上は「弱い学習機械」の指定と、個々の学習機械の設定パラメータが、デフォルトのままであることとは注意しておく。パラメータのチューニングが必要なはずである。 | ||
+ | |||
+ | なお、この課題では「過学習」について言及していないが、過学習は大事な問題であるので、各自、少し調べて気にすることを進める。 | ||
== 提案書 == | == 提案書 == |