rm(list=ls())


pdf("ROC_special1.pdf")

plot(c(0,1),c(0,1),type="n",xlab="",ylab="",yaxt="n",xaxt="n")
segments(0,0,0,1,lwd=3,col="purple")
segments(0,1,1,1,lwd=3,col="purple")
mtext("TPR",side=2,line=2,cex=1.8)
mtext("FPR",side=1,line=2,cex=1.8)
polygon(c(0,0,1,1,0),c(0,1,1,0,0),col="thistle")
segments(0,0,1,1,lwd=2,col="purple")
dev.off()

pdf("ROC_special2.pdf")

plot(c(0,1),c(0,1),type="n",xlab="",ylab="",yaxt="n",xaxt="n")
segments(0,0,1,1,lwd=3,col="purple")
polygon(c(0,1,1,0),c(0,1,0,0),col="thistle")
mtext("TPR",side=2,line=2,cex=1.8)
mtext("FPR",side=1,line=2,cex=1.8)

dev.off()