Perl script to find palindromic pattern !
...1 ) eq $invert{ substr $in, $p1+1, 1 }; my $pals = 0; for my $p2 ( 1 .....$invert{ substr $in, $p1+$p2+1, 1 }; ++$pals; } if( $pals ) {...substr( $in, $p1-$pals, ($pals+1)*2 ), $p1-$pals; } } __DATA__ AGAGG...2143 days ago
2143 days ago
Install Python locally on shared Linux server !
.... Edit #~/.bashrc_profile and add the following lines: export PATH=$HOME/python/Python-2.7.11/:$PATH export PYTHONPATH=$HOME/py...ck if pip #command is available: which pip #It should show a path pointing to your local dire...2142 days ago
Perl script to extract sequence by Ids from multifasta file !
...local $/ = "\n>"; # read by FASTA record open FASTA, $seqfile; while () { chomp; my $seq = $_; my ($id) = $seq =~ /^>*(\S+)/; # parse ID as first word in FASTA...2140 days ago
Installing Busco version 4.0.6
....0 MB conda-forge perl-cpan-meta-2.150010 |...5 KB bioconda perl-text-parsewords-3.30 | pl52...6.6 MB bioconda suitesparse-5.2.0 | h9e...::sepp-4.3.10-py37_0 suitesparse pkgs/main/linux-64:...1497 days ago
2119 days ago
2119 days ago
Perl script to extract a sequence from multifasta with range !
...contigs-gt300-lte600.fasta my $minlen = shift or die "Error: `minlen` parameter not provided\n"; my $maxlen = shift or die "Error: `maxlen` parameter not provided\n"; {...2110 days ago
Perl script to break the contigs by 'N'
...trict; my $fasta = Bio::SeqIO->new( -file => "$ARGV[0].parts.fasta",-format=>'fasta'); open(SCAFF,">$ARGV[0].parts.scaff"); while ( my $seqo...he NNNNN regions found. #Each region is represented as a pair "$ini $end" indicating that...2107 days ago
#Install older version of R Packages !
#Install older version of R Packages ! require(devtools) install_version("IdeoViz", version = "0.9.1", repos = "http://cran.us.r-project.org")2104 days ago