blob: 3ea5dddc7b0a4769313bfcc536b4edffefd29e52 (
plain)
1
2
3
4
5
6
7
8
|
#!/usr/bin/Rscript
library(ggplot2)
experimental <- read.csv("data/median-correlation.csv",header=T)
img = qplot(mazzatorta,swiss,data=experimental,xlab="-log10(LOAEL Nestle median)",ylab="-log10(LOAEL FSVO median)") + geom_point() + geom_abline(intercept=0.0) + xlim(-1,4) + ylim(-1,4)
ggsave(file='figures/median-correlation.pdf', plot=img,width=12, height=8)
|
