Algorithm-ExpectationMaximization

 view release on metacpan or  search on metacpan

examples/canned_example1.pl  view on Meta::CPAN

#!/usr/bin/perl -w

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

### canned_example1.pl

use strict;
use Algorithm::ExpectationMaximization;


my $datafile = "mydatafile1.dat";              # from param1.txt

examples/canned_example2.pl  view on Meta::CPAN

#!/usr/bin/perl -w

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

## canned_example2.pl

use strict;
use Algorithm::ExpectationMaximization;


my $datafile = "mydatafile2.dat";          # from param2.txt

my $mask = "N11";                      

examples/canned_example3.pl  view on Meta::CPAN

#!/usr/bin/perl -w

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

### canned_example3.pl

use strict;
use Algorithm::ExpectationMaximization;


my $datafile = "mydatafile3.dat";  

my $mask = "N11";  

examples/canned_example4.pl  view on Meta::CPAN

#!/usr/bin/perl -w

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

### canned_example4.pl

use strict;
use Algorithm::ExpectationMaximization;


my $datafile = "mydatafile4.dat";  
#my $datafile = "sphericaldata.csv"; 

examples/canned_example5.pl  view on Meta::CPAN

#!/usr/bin/perl -w

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

### canned_example5.pl

use strict;
use Algorithm::ExpectationMaximization;


my $datafile = "mydatafile5.dat";  

my $mask = "N111";  

examples/canned_example6.pl  view on Meta::CPAN

#!/usr/bin/perl -w

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

### canned_example6.pl

use strict;
use Algorithm::ExpectationMaximization;

my $datafile = "mydatafile7.dat";


my $mask = "N1";    

examples/data_generator.pl  view on Meta::CPAN

#!/usr/bin/perl -w

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

use strict;
use Algorithm::ExpectationMaximization;

# The Parameter File:

# How the synthetic data is generated for clustering is
# controlled entirely by the input_parameter_file keyword in
# the function call shown below.  The class prior
# probabilities, the mean vectors and covariance matrix

t/test.t  view on Meta::CPAN

use Test::Simple tests => 3;

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

use Algorithm::ExpectationMaximization;

# Test 1 (Data Generation):

my $datafile = "__testdata.dat";
Algorithm::ExpectationMaximization->cluster_data_generator( 
                        output_datafile => $datafile,
                        total_number_of_data_points => 60 );
open IN, $datafile;