diff options
| author | Christoph Helma <helma@in-silico.ch> | 2017-02-14 14:25:58 +0100 |
|---|---|---|
| committer | Christoph Helma <helma@in-silico.ch> | 2017-02-14 14:25:58 +0100 |
| commit | 127380ef9189b58b1541b2a35989900003c26510 (patch) | |
| tree | bef2017ad5c93f82e69a171c0c87d2298fabf171 /scripts/test-prediction-plot.R | |
| parent | 03ee143bbcdc6f97533ae9f4d3b47711fdae625b (diff) | |
pls models, sim 0.5, no weighted average
Diffstat (limited to 'scripts/test-prediction-plot.R')
| -rwxr-xr-x | scripts/test-prediction-plot.R | 16 |
1 files changed, 2 insertions, 14 deletions
diff --git a/scripts/test-prediction-plot.R b/scripts/test-prediction-plot.R index 7201e1a..512fa82 100755 --- a/scripts/test-prediction-plot.R +++ b/scripts/test-prediction-plot.R @@ -2,21 +2,9 @@ library(ggplot2) -training = read.csv("data/training-test-predictions.csv",header=T) -test <- read.csv("data/test_log10.csv",header=T) -n = c("SMILES","LOAEL","Source") - -data = data.frame(factor(test$SMILES),test$LOAEL,factor(test$Dataset)) -names(data) = n -data$Type = "experimental" -comb = data.frame(factor(training$SMILES),training$LOAEL_predicted,factor(training$Dataset)) -names(comb) = n -comb$Type = "predicted" -data = rbind(data,comb) -#data$LOAEL = -log(data$LOAEL) +data = read.csv("data/predictions-measurements.csv",header=T) data$SMILES <- reorder(data$SMILES,data$LOAEL) -#img <- ggplot(data, aes(SMILES,LOAEL,ymin = min(LOAEL), ymax=max(LOAEL),shape=Source,color=Type)) -img <- ggplot(data, aes(SMILES,LOAEL,ymin = min(LOAEL), ymax=max(LOAEL),color=Type)) +img <- ggplot(data, aes(SMILES,LOAEL,ymin = min(LOAEL), ymax=max(LOAEL),color=Origin)) img <- img + ylab('-log(LOAEL mg/kg_bw/day)') + xlab('Compound') + theme(axis.text.x = element_blank()) + theme(legend.title=element_blank()) img <- img + geom_point() |