#!/usr/bin/env perl use strict; use warnings; use SVG::Graph::Kit; my $data = [ [ 1, 2, 0 ], [ 2, 3, 1 ], [ 3, 5, 1 ], [ 4, 7, 2 ], [ 5, 11, 3 ], [ 6, 13, 5 ], ]; my $g = SVG::Graph::Kit->new(data => $data); #print $g->draw; my $n; for my $dim (qw(x y z)) { for my $stat (qw(min max mean mode median range stdv percentile)) { $n = $stat eq 'percentile' ? 90 : undef; # Inspect the 90th percentile. printf "%s %s = %0.2f\n", $dim, $stat, $g->stat($dim, $stat, $n); } }