Differences

This shows you the differences between two versions of the page.

--- bio:tools:codonopttable [2010/02/15 10:16] – 172.26.0.166
+++ bio:tools:codonopttable [2010/02/15 10:18] – 172.26.0.166
@@ Line 145: / Line 145: @@
 app.MainLoop()
 </file>
+This is used with the perl script:
+<file>#!/bin/perl
+use Bio::Tools::CodonOptTable;
+$sequence = $ARGV[0];
+sub codon {
+my ($mysequence)=@_;
+print $mysequence;
+my $seqobj = Bio::Tools::CodonOptTable->new ( -seq => $mysequence,
+                                                -id  => 'GeneFragment-12',
+                                                -accession_number => 'Myseq1',
+                                                -alphabet => 'dna',
+                                                -is_circular => 1,
+                                                -genetic_code => 1,
+                                   );
+#my $seqobj = Bio::Tools::CodonOptTable->new(-file => $mysequence,
+#
+#                                             -format => 'Fasta',
+#                                             -genetic_code => 1,
+#                                             );
+my $myCodons = $seqobj->rscu_rac_table();
+if($myCodons)
+        {
+            for my $each_aa (@$myCodons)
+        {
+        print "Codon      : ",$each_aa->{'codon'},"\t";
+        print "Frequency  : ",$each_aa->{'frequency'},"\t";
+        print "AminoAcid  : ",$each_aa->{'aa_name'},"\t";
+        print "RSCU Value : ",$each_aa->{'rscu'},"\t"; #Relative Synonymous Codons Uses
+        print "RAC Value  : ",$each_aa->{'rac'},"\t"; #Relative Adaptiveness of a Codon
+        print "\n";
+        }
+        }
+ while ( my ($amino_acid, $codon) = each(%$prefered_codons) ) {
+print "AminoAcid : $amino_acid \t Codon : $codon\n"; }
+$seqobj->generate_graph($myCodons,"/home/obiero/codonopt/myoutput.gif");
+}
+codon($sequence); </file>