Select Code to Download

$distmatrix=[[] , [0.25], [0.25,0.5], [1,0.75,0.75]]

$main::hd=[[]];
$main::a = [0.25];
...
push @{main::hd}, [@main::a];
push @{main::hd}, [@main::b];
push @{main::hd}, [@main::c];

#!/usr/bin/perl
#ex2
...
    $clust::tree = treecluster(data=>$main::hd, method=>'a');
     $clust::cluster_ids = $clust::tree->cutthresh($main::hdt);    
}

#!/usr/bin/perl
#ex2
...
    $clust::tree = treecluster(data=>$main::hd, method=>'a');
     $clust::cluster_ids = $clust::tree->cutthresh($main::hdt);    
}

1
1
1
0