From 75408162397b9db75b042fc128e9a01a2832828c Mon Sep 17 00:00:00 2001 From: Christoph Helma Date: Sat, 18 Feb 2017 09:49:48 +0100 Subject: fixed header for nano-lazar correlation plots --- lib/validation-statistics.rb | 8 ++++++-- 1 file 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)" -- cgit v1.2.3