Results for "ML"
Bio-Scripts
Perl script to Mutate a DNA Sequence
#!/usr/local/bin/perl -w # This script randomly mutates the DNA sequence and generates 10 successive mutation results. # While executing this script it asks for the file name of...2920 days ago
A multilayer perceptron (MLP) neural network in Perl
#!/usr/local/bin/perl -w #################################################### #MLP neural network in Perl Original source code by Phil Brierley #Translated into perl - ccolbour...2920 days ago
- ...r/bin/env perl use strict; use warnings; use LWP::Simple; use XML::XPath; use XML::XPath::XMLParser; # Use D...egment=chr"; $URL_gene .= $chr . ":" . $start . "," . $end; my $xml = get($URL_gene); my $xp =...
2914 days ago
Implementation of biological random mutation with Perl
#!/usr/bin/perl -w use strict; use warnings; #sequence for a better recognition my $DNA="AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA \ n";...2905 days ago
Genetic Algorithms demonstration with word DNA in Perl
...ighted elements # originally written by Abigail # Documentation for the algorithm is at # http://theoryx5.uwinnipeg.ca/CPAN/data/Sample/Sample.html # (the CPAN Sample module)...2376 days ago
Create genome scaffolding with Perl
..."pid" => 90, # percent ID threshold "trimlimit" => 50, # max number of o...GetOptions($projOpts, 'query=s', 'pid=i', 'trimlimit=i', 'prefix=s'); # pro...d likelihood that this will work ## i.e. trimLength * (1-%id) < threshold...2312 days ago
Perl script to find palindromic regions in DNA sequences
use strict; use warnings; my $pp = qr/(?: (\w) (?1) \g{-1} | \w? )/ix; my $filename = $ARGV[0]; open(my $fh, '2158 days ago
- ...libexpat1-dev libssl-dev libmysqlclient-dev libxml2-dev # RHEL/CentOS system ad...all -y expat-devel openssl-devel mysql-devel libxml2-devel # Create a folder w...ERL_BASE/perl-5.24.1 App::cpanminus JSON::Parse XML::Parser XML::Simple LWP LWP::...
2148 days ago
Perl script to find the distance beetween all the contigs and scaffolds
...seq}, $fval, ($seqRef->{$ids->[1]}{len}-$sval)-$fval; my $val = hammingDist($seq1, $seq2); print "$val\n"; }} until($value= $trimLen2) {$val = $trimLen1; } elsif ($trimLen1 = $tri...2144 days ago
Long reads mapper bash script !
...ols/minimap2-2.3_x64-linux/minimap2 bwaMemLoc=/home/urbe/anaconda3/bin/bwa ngmlrLoc=/home/urbe/Tools/ngmlr/bi...echo "Mapping with $toolName" $bwaMemLoc index $refFasta $bwaMem...ont, pacbio" fi elif [ $toolName == "ngmlr" ]; then echo "Mapping w...2127 days ago
