mystate <- data.frame(state.x77, region = state.region)
names(mystate) <- casefold(names(mystate)) #remove mixed case
fit <- rpart(murder ~ ., data = mystate, minsplit = 10, method = LAD)
plot(fit); text(fit)
Run the code above in your browser using DataLab