#!/usr/bin/env perl

use strict;
use warnings;

use Data::Table;
use Statistics::Lite qw(mean stddev);

my $dt = Data::Table::fromCSV("data.csv");

print "Original Data Table\n";
print "===================\n";
print $dt->tsv;
print "\n\n";

my $melt = $dt->melt(['Month', 'Zone', 'Replicate']);

print "Melt Table\n";
print "==========\n";
print $melt->tsv;
print "\n\n";

my $cast_mean = $melt->cast(
    ['Month', 'Zone'],
    'variable',
    Data::Table::STRING,
    'value',
    \&mean
); 

print "Cast (mean)\n";
print "===========\n";
print $cast_mean->tsv;
print "\n\n";

my $cast_stddev = $melt->cast(
    ['Month', 'Zone'],
    'variable',
    Data::Table::STRING,
    'value',
    \&stddev
); 

print "Cast (stddev)\n";
print "=============\n";
print $cast_stddev->tsv;

exit;