Bio::Graphics::Wiggle(3pm)				User Contributed Perl Documentation				Bio::Graphics::Wiggle(3pm)

NAME

       Bio::Graphics::Wiggle -- Binary storage for dense genomic features

SYNOPSIS

	# all positions are 1-based

	my $wig = Bio::Graphics::Wiggle->new('./test.wig',
					     $writeable,
					    { seqid => $seqid,
					      start => $start,
					      step  => $step,
					      min   => $min,
					      max   => $max });

	$wig->erase;

	my $seqid = $wig->seqid('new_id');
	my $max   = $wig->max($new_max);
	my $min   = $wig->min($new_min);
	my $step  = $wig->step($new_step);   # data stored at modulus step == 0; all else is blank

	$wig->set_value($position  => $value);	 # store $value at position
	$wig->set_values($position => @values); # store array of values at position
	$wig->set_range($start=>$end,$value);	 # store the same $value from $start to $end

	my $value  = $wig->value($position);	 # fetch value from position
	my $values = $wig->values($start,$end);  # fetch range of data from $start to $end

	$wig->window(100);			 # sample window size
	$wig->smoothing('mean');		 # when sampling, compute the mean value across sample window
	my $values = $wig->values($start,$end,$samples);  # fetch $samples data points from $start to $end

DESCRIPTION

       IMPORTANT NOTE: This implementation is still not right. See http://genomewiki.ucsc.edu/index.php/Wiggle for a more space-efficient
       implementation.

       This module stores "wiggle" style quantitative genome data for display in a genome browser application. The data for each chromosome (or
       contig, or other reference sequence) is stored in a single file in the following format:

	 256 byte header
	     50 bytes seqid, zero-terminated C string
	     4	byte long integer, value of "step" (explained later)
	     4	byte perl native float, the "min" value
	     4	byte perl native float, the "max" value
	     4	byte long integer, value of "span"
	     4	byte perl native float, the mean
	     4	byte perl native float, the standard deviation
	     2	byte unsigned short, the version number (currently version 0)
	     4	byte long integer, sequence start position (in 0-based coordinates)
	     null padding to 256 bytes for future use

       The remainder of the file consists of 8-bit unsigned scaled integer values. This means that all quantitative data will be scaled to 8-bit
       precision!

       For a convenient method of creating Wiggle files from UCSC-type WIG input and creating GFF3 output, please see
       Bio::Graphics::Wiggle::Loader.

METHODS

   Constructor and Accessors
       $wig = Bio::Graphics::Wiggle->new($filename,$writeable,{options})
	   Open/create a wiggle-format data file:

	     $filename	-- path to the file to open/create
	     $writeable -- boolean value indicating whether file is
			   writeable. Missing files will only be created
			   if $writeable set to a true value. If path is
			   empty (undef or empty string) and writeable is true,
			   new() will create a temporary file that will be
			   deleted when the object goes out of scope.
	     {options}	-- hash ref of the following named options, only valid
			   when creating a new wig file with $writeable true.

		   option name	  description		       default
		   -----------	  ----- 		       -------
		     seqid	  name/id of sequence	       empty name
		     min	  minimum value of data points 0
		     max	  maximum value of data points 255
		     step	  interval between data points 1
		     span	  width of data points	       value of "step"

	   The "step" can be used to create sparse files to save space. By default, step is set to 1, in which case a data value will be stored at
	   each base of the sequence. By setting step to 10, then each value is taken to correspond to 10 bp, and the file will be 10x smaller.
	   For example, consider this step 5 data set:

	       1  2  3	4  5  6  7  8  9 10 11 12 13 14
	      20  .  .	.  . 60  .  .  .  . 80	.  .  .

	   We have stored the values "20" "60" and "80" at positions 1, 6 and 11, respectively. When retrieving this data, it will appear as if
	   positions 1 through 5 have a value of 20, positions 6-10 have a value of 60, and positions 11-14 have a value of 80. In the data file,
	   we store, positions 1,6,and 11 in adjacent bytes.

	   Note that no locking is performed by this module. If you wish to allow multi-user write access to the databases files, you will need to
	   flock() the files yourself.

       $seqid = $wig->seqid(['new_id'])
       $max   = $wig->max([$new_max])
       $min   = $wig->min([$new_min])
       $step  = $wig->step([$new_step])
       $span  = $wig->span([$new_span])
       $mean  = $wig->mean([$new_mean]);
       $stdev = $wig->stdev([$new_stdev]);
	   These accessors get or set the corresponding values. Setting is only allowed if the file was opened for writing. Note that changing the
	   min, max and step after writing data to the file under another parameter set will produce unexpected (and invalid) results, as the
	   existing data is not automatically updated to be consistent.

       $trim  = $wig->trim([$new_trim]);
	   The trim method sets the trimming method, which can be used to trim out extreme values. Three methods are currently supported:

	     none    No trimming
	     stdev   Trim 1 standard deviation above and below mean
	     stdevN  Trim N standard deviations above and below the mean

	   In "stdevN", any can be any positive integer.

   Setting Data
       $wig->set_value($position => $value)
	   This method sets the value at $position to $value. If a step>1 is in force, then $position will be rounded down to the nearest multiple
	   of step.

       $wig->set_range($start=>$end, $value)
	   This method sets the value of all bases between $start and $end to $value, honoring step.

       $sig->set_values($position => @values)
	   This method writes an array of values into the datababase beginning at $position (or the nearest lower multiple of step). If step>1,
	   then values will be written at step intervals.

   Retrieving Data
       $value = $wig->value($position)
	   Retrieve the single data item at position $position, or the nearest lower multiple of $step if step>1.

       $values = $wig->values($start=>$end)
	   Retrieve the values in the range $start to $end and return them as an array ref. Note that you will always get an array of size
	   ($end-$start+1) even if step>1; the data in between the step intervals will be filled in.

       $values = $wig->values($start=>$end,$samples)
	   Retrieve a sampling of the values between $start and $end. Nothing very sophisticated is done here; the code simply returns the number
	   of values indicated in $samples, smoothed according to the smoothing method selected (default to "mean"), then selected at even
	   intervals from the range $start to $end. The return value is an arrayref of exactly $samples values.

       $string = $wig->export_to_wif($start,$end)
       $string = $wig->export_to_wif64($start,$end)
	   Export the region from start to end in the "wif" format. This data can later be imported into another Bio::Graphics::Wiggle object. The
	   first version returns a binary string. The second version returns a base64 encoded version that is safe for ascii-oriented formata such
	   as GFF3 and XML.

       $wig->import_from_wif($string)
       $wig->import_from_wif64($string)
	   Import a wif format data string into the Bio::Graphics::Wiggle object. The first version expects a binary string. The second version
	   expects a base64 encoded version that is safe for ascii-oriented formata such as GFF3 and XML.

SEE ALSO

       Bio::Graphics::Wiggle::Loader, Bio::Graphics::Panel, Bio::Graphics::Glyph, Bio::Graphics::Feature, Bio::Graphics::FeatureFile

AUTHOR

       Lincoln Stein <lstein@cshl.org>.

       Copyright (c) 2007 Cold Spring Harbor Laboratory

       This package and its accompanying libraries is free software; you can redistribute it and/or modify it under the terms of the GPL (either
       version 1, or at your option, any later version) or the Artistic License 2.0.  Refer to LICENSE for the full license text. In addition,
       please see DISCLAIMER.txt for disclaimers of warranty.

perl v5.14.2							    2012-02-20						Bio::Graphics::Wiggle(3pm)