Results for "AI"
Bio-Scripts
#!/usr/bin/perl use strict; use warnings; my $DNA = "GATTACACAT"; #transcribe DNA to RNA - T changes to U my $RNA = $DNA; $RNA =~ s/T/U/g; print "RNA seque...2908 days ago
Perl script to count the number of Adenine, Thymine, Guanine and Cytosine in your DNA Sequence
#!/usr/local/bin/perl -w # While executing this script it asks for the file name of the DNA sequence. If the sequence file is not available in the same directory of this script,...2907 days ago
Retrieve NCBI GenBank records with a range of accession numbers
...search.pl #AUTH: Paul Stothard (paul.stothard@gmail.com) use warnings; use s...aram{maxRetries} ) { die("Too many failures--giving up search.");...eving $param{maxRecords} records out of $count available records.\n"...2907 days ago
A multilayer perceptron (MLP) neural network in Perl
...e an input bias create an #extra input in the training data #and set to 1...rrThisPat; my $outPred; my $RMSerror; my @trainInputs; my @trainOutput;...); # load in the data initData(); # train the network for(my $j =...2907 days ago
Blast result parser with Perl and Bioperl
#!/usr/local/bin/perl # # Dr. Xiaodong Bai # It may be freely distributed under GNU General Public License. # This script will parse a NCBI blastx output file and output the t...2905 days ago
- #!/usr/bin/env perl # Usage: fastaRead.pl data.fa use strict; use warnings; my $filename = $ARGV[0]; my $sequence; open my $fileH, "
2905 days ago
Count GC Content in nucleotide sequence with Perl
...$out_file\n\n"; #--------------------------------------------------------------------------------------------------------------------------- #The main event #--------------------...2896 days ago
- ...::Long; sub usage(); sub main(); sub print_square($$$$$$$...plot of the input sequence against itself, or a square plot a...on $VERSION) /; } sub main() { #Define the argument...ile: $!"; #avoid slurping again, pull values out one by one!...
2684 days ago
Calculate ATGC percentage in parallel with perl
...m->run_on_start( sub { my ($pid,$ident)=@_; #print "** $ident started, pid: $pid\n"; } ); $pm->run_on_wait( sub { #print "** Have to wait for one children ...\n"...2647 days ago
BASH script for SelfBLAST a genome
...E=seeRES THREAD=20 SEQ="" echo "User $USER provided $# arguments, Detail of the arguments: $@" if...you from $FASTAFILE -- MAKE SURE U HAVE ADDED CORRECT NAME" samtools faidx MergedContigs.fasta samt...2643 days ago
