Help for this page

Select Code to Download


  1. or download this
    my $bitvec = pack "H*", ($string =~ tr/AGCT/1248/r);
  2. or download this
    my @arrr = split //, unpack "B*", $bitvec;
my $histogram = Math::GSL::Vector->new();
...
# normalize and uninterleave
$histogram *= 1 / $sum_freq;
@parts = part { $i++ % 4 } $histogram->as_list;