blob: 648e864fb3bb54e0760367d9a8b3f3d67f82f238 (
plain)
1
2
3
4
5
6
7
8
9
|
#!/usr/bin/Rscript
library(ggplot2)
training = read.csv("data/training-test-predictions.csv",header=T)
img = qplot(LOAEL_predicted,LOAEL_measured_median,data=training,xlab="-log10(LOAEL predicted)",ylab="-log10(LOAEL measured median)", colour = Warnings) + geom_point() + geom_abline(intercept=0.0) + xlim(-1,4) + ylim(-1,4) + scale_color_manual(values=c("#00BFC4", "#F8766D"))
ggsave(file='figures/prediction-test-correlation.pdf', plot=img,width=12, height=8)
|