|
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()
|