Calculate some statistics for a DNA alignment with Perl
...esults = $stats->calc_KaKs_pair($alnobj, $seq1id, $seq2id); print "comparing ".$results->[0]{'Seq1'}." and...lc_all_KaKs_pairs($alnobj); for my $an (@$results2){ print "comparing ". $an->{'Seq1'}." and ". $an...2664 days ago
Perl script to delete the adjacent repeats !
...more helps ... check out this #This bit of code will do the job: $string =~ s/(.)\1/$1/g #Alternatively, if you want to ignore case when comparing, you could use: $string =~...1565 days ago