1 files changed, 26 insertions, 0 deletions
diff --git a/scripts/noael_loael2swiss_mg_dup.rb b/scripts/noael_loael2swiss_mg_dup.rb
new file mode 100755
index 0000000..2699719
--- /dev/null
+++ b/scripts/noael_loael2swiss_mg_dup.rb
@@ -0,0 +1,26 @@
+#!/usr/bin/env ruby
+require_relative '../../lazar/lib/lazar'
+include OpenTox
+csv_in =  CSV.read(ARGV[0], :encoding => 'windows-1251:utf-8')
+head = csv_in.shift
+data = {}
+csv_in.each do |line|
+  smi = line[11]
+  mg = line[19].to_f
+  unless mg.to_f == 0.0
+    c = Compound.from_smiles smi
+    data[c.smiles] ||= []
+    data[c.smiles] << -Math.log10(mg).signif(5)
+  end
+end
+File.open(File.join("data","swiss_mg_dup.csv"),"w+") do |f|
+  f.puts ["SMILES","LOAEL"].join ","
+  data.each do |smi,values|
+    values.uniq!
+    if values.size > 1
+      values.each do |v|
+        f.puts "#{smi},#{v}"
+      end
+    end
+  end
+end