EBSeq/R/PlotFPTP.R

   1 PlotFPTP <-
   2 function(TopNum, FPR, TPR,names)
   3 {
   4
   5           matplot(FPR, TPR,xlim=c(0,.1), ylim=c(0,1) ,type="l",lwd=2, xlab="FPR", ylab="TPR")
   6               legend("bottomright",col=1:TopNum,lwd=2, lty=1:TopNum, names)
   7
   8
   9 }
  10