Install BLAST in Ubuntu/Linux and Window !
...ncbi.nlm.nih.gov/blast/executables/blast+/2.7.1/ncbi-blast-2.7.1+-win64.exe with your web browser. #If that FTP links does not work, try HTTP instead http://ftp.ncbi.nlm.nih.gov...1149 days ago
2919 days ago
Count the frequency of base G in a given DNA sequence
...$countG and $currentPos my $countG = 0; my $currentPos = 0; #calculate the length of $DNA my $DNAlength = length($DNA); #for each letter in the sequence check if it...2919 days ago
Check if your coputer ready to use BioPerl
#!/usr/bin/perl use strict; use warnings; #bioperl example code use strict; use warnings; #make the bioperl module (class) accessible to your program use Bio::Seq; print"ok - ready to use Bio::Seq";2919 days ago
Parse a genbank file using regular expressions
...$cds_end = $4; print "CDS: $cds_start - $cds_end\n"; } elsif (/(\/translation=")(.*)/) { # protein product begins print "Translation: "; $protein = $2; $trans = 1;...2919 days ago
2918 days ago
Perl script to Mutate a DNA Sequence
...w # This script randomly mutates the DNA sequence and generates 10 successive mutation resul...ame directory of this script, enter the file name with its full...use File::Path; print "ENTER THE FILENAME OF THE DNA SEQU..."$mutant\n"; print WRITE "$mutant\n"; } sub muta...2918 days ago
Perl script to count the number of Adenine, Thymine, Guanine and Cytosine in your DNA Sequence
...he sequence file is not available in the same directory of this script, enter the name of the file along w...c:\dnafile.txt, In Linux: /home/user/sequence/dnafile.txt print "ENTER THE FILENAME OF THE DNA SEQU...2918 days ago
Retrieve NCBI GenBank records with a range of accession numbers
...url}/esearch.fcgi?db=$param{database}" . "&retmax=1&usehistory=y&term=$param{query}"; my $es...= "$param{url}/efetch.fcgi?rettype=$param{returnType}&retmode=text&retstart=$retstart&retmax=$...2918 days ago
A multilayer perceptron (MLP) neural network in Perl
...urce code by Phil Brierley #Translated into perl - ccolbourn Oct 20...on #To include an input bias create an #extra input in the train...#### my $numInputs = 3; my $numPatterns = 4; ##################...======= sub main { # initiate the weights initWeights();...2918 days ago