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...1139 days ago
2909 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...2909 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";2909 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;...2909 days ago
2908 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...2908 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...2908 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=$...2908 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();...2908 days ago