#iris로 분류분석 - ctree

set.seed(123) #난수 고정
idx <- sample(1:nrow(iris),nrow(iris)*0.7)
idx
train <- iris[idx,]
test<- iris[-idx,]

library(party)
iris_tree<-ctree(Species~., data=train)
iris_tree
plot(iris_tree, type="simple")  # type="simple"은 간단히 보기
plot(iris_tree)

#분류모델 예측
pred <-predict(iris_tree, test)
pred

#빈도수, 정확도 구할수 있음
#빈도수
table(pred)
table(pred,test$Species) #
(12 +16+15)/nrow(test) # nrow() 전체개수 , 95%정확도가 나옴
library(caret)
confusionMatrix(pred,test$Species)