Needleman-Wunsch Algorithm in Perl
#!/usr/bin/perl # USAGE: perl nw.pl HEAGAWGHEE PAWHEAE BLOSUM50.txt -8 # See: "Biological sequence anaysis" Durbin et al. ed. CUP 1998, Pg. 19 # Needleman-W...2895 days ago
Genetic Algorithms demonstration with word DNA in Perl
...d elements # originally written by Abigail # Documentation for the algorithm is at # http://theoryx5.uwin...ved => 1, parent => 0, fitness => 0 }; } } __DATA__ about algorithm and biology by century c...2361 days ago
Fill up the form and blast with perl
...TCAGAGATCTCGATATATTATA'; $mech->get('http://www.arabidopsis.org/Blast/'); $mech->submit_form( form_name => 'myForm', fields => { 'Algorithm' => 'blastx', 'BlastTarg...2315 days ago
2065 days ago
Perl script to reverse complement a DNA sequence !
...evcom =~ s/G/C/g; $revcom =~ s/C/G/g; print "Here is the reverse complement DNA: WRONG:\n\n"; print "$revcom\n"; print "\nThat was a bad algorithm, and the reverse complement w...2033 days ago
2009 days ago
1205 days ago
Tadpole is 250x faster than SPADes assembler !
...ecc=f Error correct via kmer counts. reassemble=t If ecc is enabled, use the reassemble algorithm. pincer=f If ecc is enabled, use the pincer algorithm. tail=f If ecc...966 days ago
Perl script for Smith-Waterman Algorithm
# Smith-Waterman Algorithm # usage statement die "usage: $0 \n" unless @ARGV == 2; # get sequences from command line my ($seq1, $seq2) = @ARGV; # scoring scheme my...940 days ago
940 days ago