start working towards supporting keyword weights
authorDon Armstrong <don@donarmstrong.com>
Thu, 13 Dec 2007 02:31:46 +0000 (02:31 +0000)
committerDon Armstrong <don@donarmstrong.com>
Thu, 13 Dec 2007 02:31:46 +0000 (02:31 +0000)
git-svn-id: file:///srv/svn/function2gene/trunk@24 a0738b58-4706-0410-8799-fb830574a030

bin/combine_results

index 21b1c92..e49de8f 100755 (executable)
@@ -69,9 +69,10 @@ use IO::File;
 my %options = (debug    => 0,
               help     => 0,
               man      => 0,
+              keywords => [],
              );
 
-GetOptions(\%options,'keyword|k=s','debug|d+','help|h|?','man|m');
+GetOptions(\%options,'keywords|k=s@','debug|d+','help|h|?','man|m');
 
 
 pod2usage() if $options{help};
@@ -116,8 +117,6 @@ for my $file_name (@ARGV) {
 print join(',',map {qq("$_")} @csv_fields),qq(\n);
 for my $gene (keys %genes) {
      $genes{$gene}{rzscore} = scalar grep {$_ !~ /\[/} keys %{$genes{$gene}{terms}};
-     next if $genes{$gene}{rzscore} == 1 and exists $genes{$gene}{terms}{antigen};
-     $genes{$gene}{rzscore} -= 1 if exists $genes{$gene}{terms}{antigen};
      print STDOUT join (',',
                        map {s/"//g; qq("$_")}
                        map {