用ROCR包，http://cran.r-project.org/上面有manual.
<br />
library(ROCR)<br />
test$score<-predict(m,typer='response',test)#typer表示对响应变量作预测,m是模型对象,test是测试集<br />
pred<-prediction(test$score,test$good_bad)#good_bad是响应变量</p>
<p>perf1<-performance(pred,"tpr","fpr")<br />
plot(perf1,main="ROC曲线",col=" red")<br />
abline(0,1)</p>
<p>perf2<-performance(pred,"lift","rpp")<br />
plot(perf2,main="lift曲线",col="blue")<br />
</p>
