view release on metacpan or  search on metacpan

perl/t/12_treecluster.t  view on Meta::CPAN

use Test::More tests => 224;

use lib '../blib/lib','../blib/arch';

use_ok ("Algorithm::Cluster");
require_ok ("Algorithm::Cluster");


#########################


#------------------------------------------------------
# Data for Tests
# 

#----------
# dataset 1
#
my $weight1 = [ 1,1,1,1,1 ];

my $data1   = [
    [ 1.1, 2.2, 3.3, 4.4, 5.5, ], 
    [ 3.1, 3.2, 1.3, 2.4, 1.5, ], 
    [ 4.1, 2.2, 0.3, 5.4, 0.5, ], 
    [ 12.1, 2.0, 0.0, 5.0, 0.0, ], 
];

my $mask1 = [
    [ 1, 1, 1, 1, 1, ], 
    [ 1, 1, 1, 1, 1, ], 
    [ 1, 1, 1, 1, 1, ], 
    [ 1, 1, 1, 1, 1, ], 
];

#----------
# dataset 2
#
my $weight2 = [ 1,1 ];

my $data2   = [
    [ 0.8223, 0.9295 ],
    [ 1.4365, 1.3223 ],
    [ 1.1623, 1.5364 ],
    [ 2.1826, 1.1934 ],
    [ 1.7763, 1.9352 ],
    [ 1.7215, 1.9912 ],
    [ 2.1812, 5.9935 ],
    [ 5.3290, 5.9452 ],
    [ 3.1491, 3.3454 ],
    [ 5.1923, 5.3156 ],
    [ 4.7735, 5.4012 ],
    [ 5.1297, 5.5645 ],
    [ 5.3934, 5.1823 ],
];

my $mask2 =  [
    [ 1, 1 ],
    [ 1, 1 ],
    [ 1, 1 ],
    [ 1, 1 ],
    [ 1, 1 ],
    [ 1, 1 ],
    [ 1, 1 ],