summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristoph Helma <helma@in-silico.ch>2017-02-18 09:49:48 +0100
committerChristoph Helma <helma@in-silico.ch>2017-02-18 09:49:48 +0100
commit75408162397b9db75b042fc128e9a01a2832828c (patch)
tree7b374f5f9b361523aaeead3ac5f63eede0ebf82c
parent9c456a580515055b15a7091ceeaf67308bade881 (diff)
fixed header for nano-lazar correlation plots
-rw-r--r--lib/validation-statistics.rb8
1 files changed, 6 insertions, 2 deletions
diff --git a/lib/validation-statistics.rb b/lib/validation-statistics.rb
index 553e6ac..236a66c 100644
--- a/lib/validation-statistics.rb
+++ b/lib/validation-statistics.rb
@@ -179,8 +179,12 @@ module OpenTox
R.assign "prediction", y
R.eval "all = c(measurement,prediction)"
R.eval "range = c(min(all), max(all))"
- title = feature.name
- title += "[#{feature.unit}]" if feature.unit and !feature.unit.blank?
+ if feature.name.match /Net cell association/ # ad hoc fix for awkward units
+ title = "log2(Net cell association [mL/ug(Mg)])"
+ else
+ title = feature.name
+ title += " [#{feature.unit}]" if feature.unit and !feature.unit.blank?
+ end
R.eval "image = qplot(prediction,measurement,main='#{title}',xlab='Prediction',ylab='Measurement',asp=1,xlim=range, ylim=range)"
R.eval "image = image + geom_abline(intercept=0, slope=1)"
R.eval "ggsave(file='#{tmpfile}', plot=image)"