#!/usr/bin/env Rscript

args<-commandArgs(TRUE)

if (length(args) == 0) {
    stop("require param: features.scores.roc")
}

dat_filename = args[1]

data = read.table(dat_filename, header=T)

library(ggplot2)
library(splines)

data = read.table(dat_filename, header=T)
p = ggplot(data, aes(x=FPR, y=TPR, color=cat)) + geom_point() + geom_line() + theme(legend.position="none")
pdf( paste0(dat_filename, ".plot.pdf"))
print(p)
dev.off()


