blob: afc8293626b6e5da828b0728f9723e81ee70e9ef (
plain)
1
2
3
4
5
6
7
8
|
#!/usr/bin/env Rscript
library(ggplot2)
data <- read.csv("figures/roc.csv",header=T)
p <- ggplot(data, aes(x=fpr, y=tpr)) + geom_abline()
p <- p + geom_label(label=rownames(data) )
p <- p + expand_limits(x=c(0,1),y=c(0,1))
p <- p + labs(x = "False positive rate", y = "True positive rate")
ggsave("figures/roc.png")
|
