[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.2, Thu Feb 18 16:57:11 2010 UTC revision 1.3, Sun Feb 21 17:47:01 2010 UTC
# Line 32  Line 32 
32          if    ($dist_func_ref eq "avg_dist")            { $dist_func_ref = \&avg_dist }          if    ($dist_func_ref eq "avg_dist")            { $dist_func_ref = \&avg_dist }
33          elsif ($dist_func_ref eq "max_dist")            { $dist_func_ref = \&max_dist }          elsif ($dist_func_ref eq "max_dist")            { $dist_func_ref = \&max_dist }
34          elsif ($dist_func_ref eq "single_linkage_dist") { $dist_func_ref = \&single_linkage_dist }          elsif ($dist_func_ref eq "single_linkage_dist") { $dist_func_ref = \&single_linkage_dist }
35            elsif ($dist_func_ref eq "min_dist")            { $dist_func_ref = \&single_linkage_dist }
36          else { confess "Could not resolve the distance function" }          else { confess "Could not resolve the distance function" }
37      }      }
38      my @clusters = defined($things) ? @$things :      my @clusters = defined($things) ? @$things :

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3