wine <- read.csv("wine.csv") # Read in some data. fit <- rpart(class ~ att01 + att02 + att03 + att04 + att05 + att06 + att07 + att08 + att09 + att10 + att11 + att12 + att13, data=wine) fit plot(fit) text(fit, use.n=TRUE)