view release on metacpan or  search on metacpan

script/pacbioBas.pl  view on Meta::CPAN

}
sub preStat {
  my $func = shift;
  my $data = shift;
  &{$func}($data);
}
#params: ArrRef of data
#	 plot dimensions: 2d or 3d?
sub pbview {
  my $chart = PDL::Graphics::PLplot->new(
					 DEV => 'png',
					 FILE => shift . '.png',
					);
  my ($xyz, @plotParams) = @_;

  &{'pbplot'.($#$xyz+1).'d'}($chart, @$xyz, @plotParams);
  $chart->close;
}
#one param: ArrRef[ArrRef]
sub getAve {
  $PDL::undefval=-999;
  my $data =  pdl shift;