t/error_1.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33

#!/usr/bin/perl -w

BEGIN { unshift @INC, 'lib', '../lib'}
use Chart::ErrorBars;
use File::Temp 0.19;
my $samples = File::Temp->newdir();

print "1..1\n";

$g = Chart::ErrorBars->new();

$g->add_dataset(qw(1   1.1  1.2  1.3  1.4  1.5  1.6  1.7  1.8  1.9  2   2.1 2.2 2.3 2.4 2.5));
$g->add_dataset(qw(1   1.1  1.2  1.1  1.14 1.15 1.26 1.2 1.1  1.19 1.2 1.4 1.6 2.0 2.5 3.1));
$g->add_dataset(qw(0.4 0.1  0.2  0.1  0.14 0.15 0.26 0.27 0.1  0.19 0.2 0.1 0.1 0.2 0.1 0.3));
$g->add_dataset(qw(0.2 0.11 0.12 0.11 0.2  0.3  0.12 0.27 0.11 0.3  0.2 0.2 0.2 0.1 0.1 0.2));
$g->set(
    'xy_plot'        => 'true',
    'precision'      => 1,
    'pt_size'        => 12,
    'brush_size'     => 2,
    'legend'         => 'none',
    'title'          => 'Error Bars Demo',
    'grid_lines'     => 'true',
    'y_axes'         => 'both',
    'custom_x_ticks' => [ 0, 1, 2 ],

);

$g->png("$samples/error_1.png");

print "ok 1\n";

exit(0);