2930 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...2930 days ago
Find and replace ambiguous characters in fasta file with Perl and Bioperl
...@seqArr = sort { $a->id() cmp $b->id() } @seqArr; foreach my $s (@seqArr) { my $thisSeq = $s->seq(...eqIO->new(-fs => \*STDOUT, -format => $format); foreach my $s (@seqArr) { $seqOut->write_seq($s);...2929 days ago
Perl script to insert the DNA string in genome
...my $seq_out = Bio::SeqIO->new( -format => 'fasta',-file => ">".$out); while( my $seq = $seq_in->next_seq() ) { if($seq->primary_id eq $chr){ my $length = length...2673 days ago
2651 days ago
Extracting FASTA sequences based on position with perl script !!
...se strict; use warnings; my $end = pop; my $start = pop; local $/ = '>'; while () { chomp; next unless /(.+)/; my ($header) = "$/$1_$start-$end\n";...2636 days ago
Transpose the file coordinates and plot dendrogram in R
#Save this as tr.awk { for (i=1; i2632 days ago
Compress and decompress the sequence with perl
use strict; use warnings; my @char; while () { @char = split //; } comp(\@char); #--------------------- my $com= "r0a3m4a4j0"; my @com = split //, $com; dcomp (\@com); #dcomp sub here sub dcomp { my ($com_ref)=@_; my @com=@$com_ref; my $car; for (my $aa=0; $aa2529 days ago
2484 days ago
Genetic Algorithms demonstration with word DNA in Perl
...shift @_; # print "Got byte $byte\n"; my $letter = vec $dna, $byte, 8; # is the byte in the letter ranges? if so, return it. return chr($letter) if ($letter >= 65 && $letter...2386 days ago