Rのe1071パッケージに含まれるsvm()を使用するとサポートベクターマシンによる判別分析が実行できます。 基本的な使い方はこう↓ data(iris) # アヤメのデータ library(e1071) # パッケージの読み込み # svmを使って判別分析 result <- svm(Species ~ ., data=iris, probability=TRUE, kernel="polynomial", cross=1) x <- iris[, 1:4] # 説明変数部分のデータを抽出(標準化しない) # 第1引数はsvm()によって得られた結果のオブジェクト, # 第2引数は説明変数部分のデータ(非標準化データ)を指定する。 svm.dv <- function(result, x){ # ---------------------------------------------