blob: cb219fcaf4565d8e244e95976d03d5743e95d7a2 (
plain)
1
2
3
4
5
6
7
8
|
#!/usr/bin/env Rscript
library(ggplot2)
data <- read.csv("figures/results.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")
|
