diff options
author | gebele <gebele@in-silico.ch> | 2016-12-20 16:26:09 +0000 |
---|---|---|
committer | gebele <gebele@in-silico.ch> | 2016-12-20 16:26:09 +0000 |
commit | 76912e72cf52c2a10423226ababb2b6d7f4b84ca (patch) | |
tree | e167ec15c9b9434c027a341db50a3e7ea4955c34 /lib/crossvalidation.rb | |
parent | da086fad5b45c0d7b59feb40d0108ac620613933 (diff) | |
parent | a5abdd27b8c9b3f1cf65a567bfd9eb17ecc91a72 (diff) |
Merge branch 'development'1.0.0
Diffstat (limited to 'lib/crossvalidation.rb')
-rw-r--r-- | lib/crossvalidation.rb | 33 |
1 files changed, 0 insertions, 33 deletions
diff --git a/lib/crossvalidation.rb b/lib/crossvalidation.rb index 5a05955..bcb3ccf 100644 --- a/lib/crossvalidation.rb +++ b/lib/crossvalidation.rb @@ -96,39 +96,6 @@ module OpenTox crossvalidation_ids.collect{|id| CrossValidation.find(id)} end - def correlation_plot format: "png" - #unless correlation_plot_id - feature = Feature.find(crossvalidations.first.model.prediction_feature) - title = feature.name - title += "[#{feature.unit}]" if feature.unit and !feature.unit.blank? - tmpfile = "/tmp/#{id.to_s}_correlation.#{format}" - images = [] - crossvalidations.each_with_index do |cv,i| - x = [] - y = [] - cv.predictions.each do |sid,p| - x << p["measurements"].median - y << p["value"] - end - R.assign "measurement", x - R.assign "prediction", y - R.eval "all = c(measurement,prediction)" - R.eval "range = c(min(all), max(all))" - R.eval "image#{i} = qplot(prediction,measurement,main='#{title} #{i}',xlab='Prediction',ylab='Measurement',asp=1,xlim=range, ylim=range)" - R.eval "image#{i} = image#{i} + geom_abline(intercept=0, slope=1)" - images << "image#{i}" - - R.eval "ggsave(file='/home/ist/lazar/test/tmp#{i}.pdf', plot=image#{i})" - end - R.eval "pdf('#{tmpfile}')" - R.eval "grid.arrange(#{images.join ","},ncol=#{images.size})" - R.eval "dev.off()" - file = Mongo::Grid::File.new(File.read(tmpfile), :filename => "#{id.to_s}_correlation_plot.#{format}") - correlation_plot_id = $gridfs.insert_one(file) - update(:correlation_plot_id => correlation_plot_id) - #end - $gridfs.find_one(_id: correlation_plot_id).data - end end end |