# NOT RUN {
# Run it and see for yourself
# }
# NOT RUN {
data.tmp<-read.csv(system.file("ext", "testdata.csv", package="Modelcharts"))
LIFT_CHART(data.tmp,data.tmp$Probability,seq(0.95,0,-0.05),data.tmp$Outcome,"Y")
# }
Run the code above in your browser using DataLab