[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.4, Mon Feb 22 19:33:39 2010 UTC
# Line 1  Line 1 
1  #  #
2    # This is a SAS component.
3    #
4  # Copyright (c) 2003-2006 University of Chicago and Fellowship  # Copyright (c) 2003-2006 University of Chicago and Fellowship
5  # for Interpretations of Genomes. All Rights Reserved.  # for Interpretations of Genomes. All Rights Reserved.
6  #  #
# Line 32  Line 34 
34          if    ($dist_func_ref eq "avg_dist")            { $dist_func_ref = \&avg_dist }          if    ($dist_func_ref eq "avg_dist")            { $dist_func_ref = \&avg_dist }
35          elsif ($dist_func_ref eq "max_dist")            { $dist_func_ref = \&max_dist }          elsif ($dist_func_ref eq "max_dist")            { $dist_func_ref = \&max_dist }
36          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 }
37            elsif ($dist_func_ref eq "min_dist")            { $dist_func_ref = \&single_linkage_dist }
38          else { confess "Could not resolve the distance function" }          else { confess "Could not resolve the distance function" }
39      }      }
40      my @clusters = defined($things) ? @$things :      my @clusters = defined($things) ? map { [$_] } @$things :
41                                        map { [$_] } keys(%$connections);                                        map { [$_] } keys(%$connections);
42      my @trees    = map { [$_->[0],0,[undef]] } @clusters;      my @trees    = map { [$_->[0],0,[undef]] } @clusters;
43    

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3