This is what i done, plotting that 2 biomarkes in two curves:

## Read in the data ##

pancr <- read.csv("pancreatic.csv")

head(pancr)

## Install and load ROCR package ##

install.packages("ROCR")

library(ROCR)

## Plot the ROC curve for CA199 ##

pred_pancr <- prediction(pancr$CA199,pancr$d)

perf_pancr <- performance(pred_pancr,"tpr","fpr")

plot(perf_pancr)

##AUC under the ROC curve for CA199 ##

performance(pred_pancr,"auc")

## Plot the ROC curve for C125 in the same panel plot ##

pred_pancr1 <- prediction(pancr$CA125,pancr$d)

perf_pancr1 <- performance(pred_pancr1,"tpr","fpr")

plot(perf_pancr1,add=T,colorize=TRUE)

##AUC under the ROC curve for CA125 ##

performance(pred_pancr1,"auc")

## Add the refference line ##

abline(0, 1, lty=2, col='red')