(R1)제14강(5.1)서포트벡터머신(SVM)-데이터 iris, 패키지(e1071)

이제 머신러닝 기법 중 하나인 서포트벡터머신(SVM, Support Vector Machine)에 대한

간단한 실습을 합니다.

사용되는 데이터는 유명한 붓꽃데이타 iris 이고, 패키지는 e1071입니다.

 

install.packages("e1071") 

library(e1071)

svm(Species~., data = iris)

model_svm <- svm(Species~., data = iris)

summary(model_svm)

 

model_svm <- svm(Species~., data = iris) 의 결과

#names(model_svm)

predict(model_svm,iris[,-5])  # iris[,-5] 는 iris 데이터 중에서 5번째 붓꽃의 종류 변수(SPecies)제외

 

predict(model_svm,iris[,-5])  예측 결과

 

pred <-predict(model_svm,iris[,-5])

table(pred, iris[,5])

 

pred <-predict(model_svm,iris[,-5])

 

setosa 는 50개인데 전부 정확하게 예측

vercicolor로 예측한 것 중에서... 48개는 versicolor 였음(정확하게 예측), 2개는 verginica 였음(잘못예측)

virginica로 예측한 것 중에서 ...  2개는 versicolor 였음(잘못 예측),  48개는 verginica 였음(정확하게 예측)

 

help(package=e1071)