> audit <- read.csv(url("http://rattle.togaware.com/audit.csv"))[,c(2:10,13)] > myrpart <- rpart(Adjusted ~ ., data=audit, method="class")