install.packages("rattle")

install.packages("RColorBrewer")

install.packages("rpart.plot")

require(rattle)

require(RColorBrewer)

require(rpart.plot)

fertility2 <- read.csv("fertility2.csv")

fertilitytree2 <- rpart(Output~Season+Disease+Trauma+Surgery+Age2+Alcohol2+Smoking2+Sitting2+Fever2, data = fertility2, method = "class")

fertilitytree2

fancyRpartPlot(fertilitytree2)