view release on metacpan or  search on metacpan

Genetics/API/Analysis.pm  view on Meta::CPAN

	      title           => "$markerName Allele Frequencies",
	      long_ticks      => 1,
	      y_max_value     => 1.0,
	      y_tick_number   => 20,
	      y_label_skip    => 2,
	      bar_spacing     => 3,
#	      shadow_depth    => 2,
#	      shadowclr       => 'black',
	      transparent     => 0,
	     ) or carp "WARNING [graphAlleleFreqs]: " . $graph->error ;
  $graph->set_legend( @sourceNames );
  $graph->plot( \@data ) or croak "ERROR [graphAlleleFreqs]: " . $graph->error ;
  $fileName = "/tmp/$$.png" ;
  &_saveGraphToFile($graph, $fileName) ;
  system("xv $fileName &") == 0 or 
         croak "ERROR [graphAlleleFreqs]: system xv $fileName & failed: $?" ;

  return(1) ;
}

=head2 calculateHet