I have written the following code to plot ROC curve:
pred1 <- prediction(predict(modelID), LS_01RR$Payment_Ind)
perf1 <- performance(pred1,"tpr","fpr")
plot(perf1)
plot(perf1,main="hivpr - ROC Curves",col="blue")
abline(0,1,col="grey")
But It doesn't plot. What is wrong here?