install.packages("rpart")
library(rpart)
?rpart
data(iris)
iris
av1 <- rpart(Species~.,data=iris)
av1
install.packages("DMwR")
library(DMwR)
prettyTree(av1)
?rpart.control
?rpartXse
av2 <- rpart(Species~.,data=iris,control=rpart.control(minbucket=2))
av2
prettyTree(av2)
par(mfrow=c(2,1))
prettyTree(av1)
prettyTree(av2)
dev.off()
iris
150/5
teste <- sample(150,30)
teste
av3 <- rpart(Species~.,data=iris[-teste,],control=rpart.control(minbucket=2))
prettyTree(av3)
saida <- predict(av3,newdata=iris[teste,-5])
saida
?predict

help(rpart.predict)
help(predict.rpart)
saida2 <- predict(av3,newdata=iris[teste,-5],type="c")
saida2
iris[teste,5]
tabel(saida2,iris[teste,5])
table(saida2,iris[teste,5])