Results for "Next Generation Sequence Analysis"
Bio-Scripts
R script to visualize fastANI core-genome comparison
####### # Purpose: Visualize fastANI core-genome comparison # Usage: Rscript # Output: .pdf # Uses genoPlotR package: http://genoplotr.r-forge.r-project.org...1095 days ago
BioPerl to convert between sequence formats from Fasta to Genbank
#!/usr/local/bin/perl -w # Sequence formats to choose: Fasta, EMBL. GenBank, Swissprot, PIR and GCG use Bio::SeqIO; $inFile = "BRCA2.fa"; $in = Bio::SeqIO->...2909 days ago
- #!/usr/local/bin/perl -w # Can be easily modified to run any command on every sequence in a folder # Directory of sequences $myDir = "/home/anjana/seqs"; # Output directory (...patFile = "/home/anjana/patterns/polyA.pat"; # Go to sequence...
2909 days ago
- #!/usr/bin/perl use strict; use warnings; #assign strings to variables my $DNA = "GATTACACAT"; my $polyA = "AAAA"; #concatenate two strings my $modifiedDNA =...
2910 days ago
Count the frequency of base G in a given DNA sequence
#!/usr/bin/perl use strict; use warnings; my $DNA = "GATTACACAT"; #initialize $countG and $currentPos my $c...the length of $DNA my $DNAlength = length($DNA); #for each letter in the sequence...2910 days ago
- #!/usr/bin/perl use strict; use warnings; my $DNA = "GATTACACAT"; #...$DNA; $RNA =~ s/T/U/g; print "RNA sequence is $RNA\n"; #find the reve...ution operator #first - reverse the sequence my $rcDNA = reverse($DNA);...ation operator #first - reverse the sequence...
2910 days ago
Parse a genbank file using regular expressions
#! /usr/local/bin/perl -w $genbank = "genbank_file.txt"; open (GENBANK, $genbank) || die "cannot open $gb_repo...rint "GI: $2\n"; } elsif (/(DEFINITION\s*)(.*)(\.)/) { print "Sequence...2910 days ago
Perl script to Mutate a DNA Sequence
#!/usr/local/bin/perl -w # This script randomly mutates the DNA sequence and generates 10 successive mutation result...script it asks for the file name of the DNA sequence. # If the DNA sequence file...: c:\rnafile.txt # In Linux : /home/user/sequence...2909 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 scrip...h. In windows: c:\dnafile.txt, In Linux: /home/user/sequence...2909 days ago
Extract a random sequence from a file
#!/usr/local/bin/perl -w use strict; use warnings; use autodie;...= 21; my $count = 10; while (my $line = ) { next unl...my @start_points = shuffle(0 .. $len_genome-$size); next unl...2908 days ago
