差分

このページの2つのバージョン間の差分を表示します。

この比較画面へのリンク

両方とも前のリビジョン前のリビジョン
次のリビジョン両方とも次のリビジョン
mselab:2014:stat:week3:r1 [2015/01/27 11:08] – watalumselab:2014:stat:week3:r1 [2015/01/27 11:22] – watalu
行 22: 行 22:
 install.packages("kernlab", dependencies=TRUE) install.packages("kernlab", dependencies=TRUE)
 library(kernlab) library(kernlab)
 +install.packages("ipred", dependencies=TRUE)
 +library(ipred)
 +install.packages("ada", dependencies=TRUE)
 +library(ada)
 +</code>
 +
 +<code>
 bank.svm <- ksvm(y~., data=bank,  bank.svm <- ksvm(y~., data=bank, 
                  kernel="rbfdot",                  kernel="rbfdot",
                  kpar=list(sigma=0.01))                  kpar=list(sigma=0.01))
-bank.bag<-bagging(type~., data=bank,+bank.svm.p<-predict(bank.svm)  
 +table(bank.svm.p, bank$y) 
 +</code> 
 + 
 +<code> 
 +bank.bag<-bagging(y~., data=bank,
                   nbagg=40)                    nbagg=40) 
 +bank.bag.p <- predict(bank.bag,type= "class") 
 +table(bank.bag.p, bank$y)
 +</code>
 +
 +<code>
 +bank.ada <- ada(y~., data=bank,
 +                iter=20) 
 +bank.ada.p <- predict(bank.ada,type= "vector") 
 +table(bank.ada.p, bank$y)
 </code> </code>