Results for "IG"
Bio-Scripts
#!/usr/bin/perl use strict; use warnings; #assign strings to variables my $DNA = "GATTACACAT"; my $polyA = "AAAA"; #concatenate two strings my $modifiedDNA = $DNA.$polyA;...2930 days ago
Perl script to count the number of Adenine, Thymine, Guanine and Cytosine in your DNA Sequence
...oes not exist!!! \n"; print "Cannot open file \"$dna_filename\"\n"; die; } @DNA = ; close DNAFILE; $DNA = join( '', @DNA); print " \n The original DNA file is:\n $DNA \n";...2929 days ago
Retrieve NCBI GenBank records with a range of accession numbers
...=> 'http://www.ncbi.nlm.nih.gov/entrez/eutils', retries => 0, maxRetries => 5, help => undef ); Getopt::Long::Configure('bundling'); GetOptions(...2929 days ago
A multilayer perceptron (MLP) neural network in Perl
...################# #MLP neural network in Perl Original source code by Phil Brier...of the hidden neurons my @hiddenVal; # the weights my @weightsIH; my @weigh...=========== sub main { # initiate the weights initWeights(); # lo...2929 days ago
- ...hree arguments: chr. num., position, and size.\n$usage"; } chomp $size; my $start = $pos - ($size/2); my $end = $pos + ($size/2); # Figure out URL for the DAS server...
2923 days ago
Blast result parser with Perl and Bioperl
...# get the E value of the hit print OUT $hit->significance . "\t";...# get the start and the end of the query sequence in the alignment print OUT $hsp->sta...2928 days ago
Find and replace ambiguous characters in fasta file with Perl and Bioperl
...than ATGC-.\n". "If -m is specified, the ambiguous characters are repleced w...d character. e.g. -m '?' will place ? to the ambigous characters.\n" . "If...Arr) { my $thisSeq = $s->seq(); my $ambig = AmbiguousChar($thisSeq);...2928 days ago
Needleman-Wunsch Algorithm in Perl
...nw.pl HEAGAWGHEE PAWHEAE BLOSUM50.txt -8 # See: "Biological sequence anaysis" Durbin et al. ed. CUP 1998, Pg. 19 # Needleman-Wunsch global alignment algo (GOTHO 1982 mod)...2919 days ago
Implementation of biological random mutation with Perl
...AAAAAAAAAAAA \ n"; my $I; my $mutant; srand (time | $$). $mutant=mutate ($DNA); print "Mutate \ n". $DNA; print "Here is the the original DNA: \ n"; print "$DNA...2915 days ago
Perl script to extract lines with matching ids !!
#!/usr/bin/perl use strict; use warnings; my %patterns; #USAGE: perl extactByIds.pl Idsfile1 file2 > Result # Open file and get patterns to search for open(my $fh2,"2888 days ago
