diff options
Diffstat (limited to 'scripts/crossvalidation-plots.R')
-rwxr-xr-x | scripts/crossvalidation-plots.R | 17 |
1 files changed, 4 insertions, 13 deletions
diff --git a/scripts/crossvalidation-plots.R b/scripts/crossvalidation-plots.R index 7a4f340..8a4f76e 100755 --- a/scripts/crossvalidation-plots.R +++ b/scripts/crossvalidation-plots.R @@ -1,17 +1,8 @@ #!/usr/bin/Rscript library(ggplot2) -library(grid) -library(gridExtra) -t0 = read.csv("data/training_log10-cv-0.csv",header=T) -t1 = read.csv("data/training_log10-cv-1.csv",header=T) -t2 = read.csv("data/training_log10-cv-2.csv",header=T) - -p0 = qplot(LOAEL_predicted,LOAEL_measured_median,data=t0,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) -p1 = qplot(LOAEL_predicted,LOAEL_measured_median,data=t1,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) -p2 = qplot(LOAEL_predicted,LOAEL_measured_median,data=t2,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) - -pdf('figures/crossvalidation.pdf') -grid.arrange(p0,p1,p2,ncol=2) -dev.off() +nr = commandArgs(TRUE)[1] +data = read.csv(paste("data/training_log10-cv-",nr,".csv",sep="")) +img = qplot(LOAEL_predicted,LOAEL_measured_median,data=data,xlab="-log10(LOAEL predicted)",ylab="-log10(LOAEL measured median)",colour=Warnings) + geom_point() + geom_abline(intercept=0.0) + xlim(-2,4.5) + ylim(-2,4.5) + scale_color_manual(values=c("#00BFC4", "#F8766D")) +ggsave(file=paste('figures/crossvalidation',nr,'.pdf',sep=""), plot=img,width=12, height=8) |