#!/usr/bin/perl  -w
use strict;
use Tie::File;
use Tie::File::AsHash;
use Term::ProgressBar;
use Math::Combinatorics;
use Math::Cartesian::Product;
use Array::Utils qw(array_minus);
use Statistics::Basic qw(stddev mean);
use POSIX qw(isdigit);
use PDL;
use PDL::Core qw(pdl);
use PDL::Math qw(isfinite);


my $div = 4;
my @array1 = (0..10);
my $pdl_array = log(pdl(@array1)/$div);
$pdl_array->where(!isfinite($pdl_array)) .= 0;
my($mean,$stdev) = statsover($pdl_array);
die $pdl_array,"\n",$mean," ",$stdev,"\n";