DOCUMENT();

loadMacros('PGstandard.pl', 'PGML.pl', 'StatisticalPlots.pl', 'PGcourse.pl');


$params = [
    {
        min    => 700,
        q1     => 1100,
        median => 1300,
        q3     => 1700,
        max    => 2150

    },
    {
        min    => 400,
        q1     => 850,
        median => 1150,
        q3     => 1350,
        max    => 2000
    },
    {
        min    => 600,
        q1     => 950,
        median => 1175,
        q3     => 1250,
        max    => 1600
    }
];

$statPlot = StatPlot(
    ymin         => -2,
    ymax         =>  8,
    ytick_delta  =>  2,
    yminor       =>  0,
    yvisible     =>  1,
    ytick_labels => { 6 => 'Fri.', 4 => 'Sat.', 2 => 'Sun.' },
    show_grid    =>  0,
    xmin         => -500,
    xmax         =>  3000,
    xtick_delta  => 500
);
@fill_colors = ('LightBlue', 'LightGreen', 'Magenta');
@box_centers = (2,           4,            6);
for (0 .. $#box_centers) {
    $statPlot->add_boxplot(
        $params->[$_],
        orientation => 'horizontal',
        box_center  => $box_centers[$_],
        box_width   => 1,
        fill_color  => $fill_colors[$_],
        whisker_cap => 1
    );
}
$alt_text =
    'Three horizontal box plots. '
    . "The topmost one is labeled 'Fri.' with left most whisker $params->[0]{min} "
    . "the left side of the box is at $params->[0]{q1} and vertical line at "
    . "$params->[0]{median}, right side of the box at $params->[0]{q3} "
    . "and rightmost whisker at $params->[0]{max}."
    . "The box plot in the middle is labelled 'Sat.' with left most whisker "
    . "$params->[1]{min} the left side of the box is at $params->[1]{q1} and "
    . "vertical line at $params->[1]{median}, right side of the box at "
    . " $params->[1]{q3} and rightmost whisker at $params->[1]{max}."
    . "The box plot toward the bottom is labelled 'Sun.' with left most whisker "
    . "$params->[2]{min} the left side of the box is at $params->[2]{q1} and "
    . "vertical line at $params->[2]{median}, right side of the box at "
    . " $params->[2]{q3} and rightmost whisker at $params->[2]{max}.";

BEGIN_PGML

>>[! [$alt_text] !]{$statPlot}{400}<<

END_PGML

BEGIN_PGML_SOLUTION
Place a detailed solution here.
END_PGML_SOLUTION

ENDDOCUMENT();