diff options
Diffstat (limited to 'crossvalidation-plots.R')
| -rw-r--r-- | crossvalidation-plots.R | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/crossvalidation-plots.R b/crossvalidation-plots.R new file mode 100644 index 0000000..7b04984 --- /dev/null +++ b/crossvalidation-plots.R @@ -0,0 +1,7 @@ +library(ggplot2) + +combined = read.csv("data/combined-cv.csv",header=T) + +p = qplot(-log10(LOAEL_predicted),-log10(LOAEL_measured_median),data=combined,xlab="-log10(LOAEL predicted)",ylab="-log10(LOAEL measured median)",main="Combined") + geom_point() + geom_abline(intercept=0.0) + xlim(-2,4.5) + ylim(-2,4.5) + +ggsave(file='figure/crossvalidation.pdf', plot=p) |