[Bio] / FigKernelPackages / Clustering.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/Clustering.pm

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

revision 1.4, Mon Feb 22 19:33:39 2010 UTC revision 1.5, Sun Nov 7 20:39:29 2010 UTC
# Line 109  Line 109 
109          foreach my $y (@$clust2)          foreach my $y (@$clust2)
110          {          {
111              my $dist = $connections->{$x}->{$y};              my $dist = $connections->{$x}->{$y};
112              if ((! defined($best)) || (defined($dist) && ($dist > $best)))              if (! defined($dist)) { return undef }
113                if ((! defined($best)) || ($dist > $best))
114              {              {
115                  $best = $dist;                  $best = $dist;
116              }              }
# Line 128  Line 129 
129          foreach my $y (@$clust2)          foreach my $y (@$clust2)
130          {          {
131              my $dist = $connections->{$x}->{$y};              my $dist = $connections->{$x}->{$y};
132                if (! defined($dist)) { return undef }
133              $n++;              $n++;
134              $sum += $dist;              $sum += $dist;
135          }          }
136      }      }
137      return $n ? ($sum/$n) : undef;      return ($sum/$n);
138  }  }
139    
140  1  1

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3