diff options
author | Christoph Helma <helma@in-silico.ch> | 2016-03-02 11:20:26 +0100 |
---|---|---|
committer | Christoph Helma <helma@in-silico.ch> | 2016-03-02 11:20:26 +0100 |
commit | d3071896a7116670756199f0df7c2a618de2aea3 (patch) | |
tree | 2cf71d47232c08da2973452950e1f969c733478a /crossvalidation-plots.R | |
parent | 7424234dbf1d7ebdb7a15adaec71c8b6fb53890f (diff) |
repeated crossvalidations
Diffstat (limited to 'crossvalidation-plots.R')
-rw-r--r-- | crossvalidation-plots.R | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/crossvalidation-plots.R b/crossvalidation-plots.R index 7b04984..2bc259f 100644 --- a/crossvalidation-plots.R +++ b/crossvalidation-plots.R @@ -1,7 +1,15 @@ library(ggplot2) +library(grid) +library(gridExtra) -combined = read.csv("data/combined-cv.csv",header=T) +t0 = read.csv("data/training-cv-0.csv",header=T) +t1 = read.csv("data/training-cv-1.csv",header=T) +t2 = read.csv("data/training-cv-2.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) +p0 = qplot(-log10(LOAEL_predicted),-log10(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(-log10(LOAEL_predicted),-log10(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(-log10(LOAEL_predicted),-log10(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) -ggsave(file='figure/crossvalidation.pdf', plot=p) +pdf('figure/crossvalidation.pdf') +grid.arrange(p0,p1,p2,ncol=2) +dev.off() |