Perl script to Mutate a DNA Sequence
...mutate($mutant); print "$mutant\n"; print WRITE "$mutant\n"; } sub mutate { my($dna) = @_; my($position) = randomposition($dna); my $current_b...2879 days ago
2873 days ago
2872 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";...2864 days ago
Perl script to insert the DNA string in genome
...ile = $ARGV[0]; # input fasta file (genome file) my $out = $ARGV[1]; # output fasta file my $chr="test"; #insertion chromosome my $pos=10; # position of the insertion my $seqI =...2622 days ago
Extracting FASTA sequences based on position with perl script !!
#!/usr/bin/env perl #Uses: perl sub-seq.pl input.txt range use strict; use warnings; my $end = pop; my $start = pop; local $/ = '>'; while () {...2585 days ago
Insert the sequence at desire location in multi-fasta file with Perl
#!/usr/bin/perl use warnings; use strict; use Bio::SeqIO; use Bio::Seq; use File::Copy; #ARGV[0] should be in following format --- Keep the coordinate sorted b...2277 days ago
Plot the density of genes in R
#column1 = chromosome name and column2 = start position of the gene # check if ggplot2 is installed, if so...("ggplot2") library(ggplot2) } # import a text file with gene positions # columns should be: chr, p...2247 days ago
2227 days ago
2089 days ago