blob: 7b04984e58d72a86926e92beda2163bfe2997f18 (
plain)
1
2
3
4
5
6
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)
|