>install.packages("ROCR")
> library(ROCR)
> data("ROCR.simple")
> str(ROCR.simple)
List of 2
$predictions: num [1:200] 0.613 0.364 0.432 0.14 0.385 ...
$labels : num [1:200] 1 1 0 0 0 1 1 11 0 ...
>pred<prediction(ROCR.simple
> plot(perf,colorize=T)
> plot(perf)
> plot(perf,colorize=TRUE)
> install.packages("pROC")
> library(pROC)
> data("aSAH")
>roc1<-roc(aSAH
>plot(roc1,print.auc=TRUE,auc.polygon=TRUE,grid=c(0.1,0.2),grid.col=c("green","red"),max.auc.polygon=TRUE, auc.polygon.col="skyblue",print.thres=TRUE)
> (auc1 = auc(roc1))
Area under the curve: 0.7314
