EBSeq/R/PlotFDTP.R

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