view release on metacpan or  search on metacpan

examples/generate_data_on_a_sphere.pl  view on Meta::CPAN

#!/usr/bin/perl -w

## generate_data_on_a_sphere.pl

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


##    The purpose of this script is to generate multivariate Gaussian data
##    on a spherical surface and, subsequently, to also visualize this
##    data.  Read the comment block attached to the subroutine
##    `gen_data_and_write_to_csv() in the main module file.  That
##    subroutine randomly chooses a number of directions equal to the value
##    of the number_of_clusters_on_sphere.  It also put together 2x2
##    covariance matrices for each of these clusters.  Subsquently, the
##    Random module is called to yield multivariates samples for each
##    cluster on the sphere.


use strict;
use Algorithm::LinearManifoldDataClusterer;

lib/Algorithm/LinearManifoldDataClusterer.pm  view on Meta::CPAN

package Algorithm::LinearManifoldDataClusterer;

#------------------------------------------------------------------------------------
# Copyright (c) 2015 Avinash Kak. All rights reserved.  This program is free
# software.  You may modify and/or distribute it under the same terms as Perl itself.
# This copyright notice must remain attached to the file.
#
# Algorithm::LinearManifoldDataClusterer is a Perl module for clustering data that
# resides on a low-dimensional manifold in a high-dimensional measurement space.
# -----------------------------------------------------------------------------------

use 5.10.0;
use strict;
use warnings;
use Carp;
use List::Util qw(reduce any);