[Bio] / FigKernelScripts / make_coreg_conjectures_based_on_subsys.pl Repository:
ViewVC logotype

Diff of /FigKernelScripts/make_coreg_conjectures_based_on_subsys.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2, Tue Apr 20 18:32:51 2010 UTC revision 1.3, Mon May 17 13:05:46 2010 UTC
# Line 136  Line 136 
136      foreach my $peg2 (@$cluster)      foreach my $peg2 (@$cluster)
137      {      {
138          my $v = $hash->{$peg1}->{$peg2};          my $v = $hash->{$peg1}->{$peg2};
139          if ((! defined($v)) || ($v < 0.3)) { return 0 }          if ((! defined($v)) || ($v < 0.4)) { return 0 }
140          $sum += $v;          $sum += $v;
141      }      }
142      return (($sum / @$cluster) >= 0.4);      return (($sum / @$cluster) >= 0.7);
143  }  }

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3