summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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)"