Found bug in loop over file 2 hash. Was counting some twice because of it.

svn path=/; revision=639

diff --git a/interactome_scripts/SNP_venn_stats.pl b/interactome_scripts/SNP_venn_stats.pl
index ade720ef31b1898e08e79c4568616bcfe60d215e..086576a8713a0bbd1ef0c03b5770b724dbc022b9 100755 (executable)
--- a/interactome_scripts/SNP_venn_stats.pl
+++ b/interactome_scripts/SNP_venn_stats.pl
@@ -100,12 +100,9 @@ foreach my $key (keys %file1hash) {
 
 foreach my $key (keys %file2hash) {
                #check if in file3
-               if(defined($file3hash{$key})) {
+               if(defined($file3hash{$key}) && !defined($file1hash{$key})) {
                                $count_file_23++;
                }
-               if(defined($file1hash{$key})) {
-                               $count_file_21++;
-               }
 }