R - ANN 알고리즘 예제#2



이번 예제는 ANN 알고리즘을 사용해서 iris 데이터를 분류하는 작업을 합니다.


코드

#ANN으로 iris 분류 작업
idx <- sample(1:nrow(iris),0.7*nrow(iris))
train<-iris[idx, ]
test<-iris[-idx,]
library(nnet)
model_iris1 = nnet(Species ~., train, size=1)
model_iris1

model_iris3 =nnet(Species ~., train, size=3)
model_iris3

summary(model_iris1)
summary(model_iris3)
plot.nnet(summary(model_iris1))
plot.nnet(summary(model_iris3))

#분류 모델 평가
predict(model_iris1, test,type="class")
predict(model_iris3, test,type="class")

#confusion matrix
table(predict(model_iris1,test,type="class"),test$Species)
(13+17+15) / nrow(test)

table(predict(model_iris3,test,type="class"),test$Species)
(13+16+15) / nrow(test)

#ANN에서 고려 사항
#과적합(Overfitting)
#최적합HiddenLaer찾기






샘플 데이터





본 포스팅은 KIC 캠퍼스에서 박영권 강사의 지도하에 공부하며 작성한 리포트입니다.
혹시 잘못된 내용이 있거나 문제 소지시 댓글 남겨주시면 조치하겠습니다.






댓글(0)

Designed by JB FACTORY