DATA MINING
Desktop Survival Guide by Graham Williams |
|||||
pdf("graphics/rplot-rocr-survey-lift.pdf") library(rpart) library(ROCR) load("survey.Rdata") survey.rp <- rpart(Salary.Group ~ ., data=survey) survey.pred <- predict(survey.rp, data=survey) pred <- prediction(survey.pred[,2], survey$Salary.Group) lift <- performance(pred, "lift", "rpp") plot(lift) dev.off() |