srand;
use PDL;
use PDL::Graphics::PGPLOT;
use PGPLOT;
use Exporter;
$id=dev($^O =~ /MSWin32/ ? '/GW' : '/XSERVE');
$ENV{PGPLOT_XW_WIDTH}=0.5;

##</code><code>##


hold(bin($distributionx, $distributiony));
hold(line($distributionx,$predictiony,{COLOR=>RED}));
line($distributionx,1000*$diffy,{COLOR=>purple});
#this is what I'd like to export,
#all in one graph