discussion, conclusion, abstract

1 files changed, 8 insertions, 0 deletions

diff --git a/scripts/roc.R b/scripts/roc.R
new file mode 100755
index 0000000..cb219fc
--- /dev/null
+++ b/scripts/roc.R
@@ -0,0 +1,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")