{r}
ibrary(C50)
data()
data("iris")
View(iris)
colnames(iris)
iris_setosa<-iris[iris$Species=="setosa",]
iris_versicolor<-iris[iris$Species == "versicolor",]
iris_virginica<-iris[iris$Species == "virginica",]
iris_train<-rbind(iris_setosa[1:25,],iris_versicolor[1:25,],iris_virginica[1:25,])
iris_test<-rbind(iris_setosa[26:50,],iris_versicolor[26:50,],iris_virginica[26:50,])
irisC5.0_train<-C5.0(iris_train[,-5],iris_train$Species)
windows()
plot(irisC5.0_train)
iris_train$Species==predict(irisC5.0_train,iris_train)
mean(iris_train$Species==predict(irisC5.0_train,iris_train))
predictC5.0_test<-predict(irisC5.0_train,newdata =iris_test)
#mean(predictC5.0_test<-predict(irisC5.0_train,newdata =iris_test))
mean(predictC5.0_test == iris_test$Species)
library(gmodels)
CrossTable(iris_test$Species,predictC5.0_test)
#rossTable()