bio:tools:codonopttable
Differences
This shows you the differences between two versions of the page.
Both sides previous revisionPrevious revisionNext revision | Previous revisionNext revisionBoth sides next revision | ||
bio:tools:codonopttable [2010/02/15 10:16] – 172.26.0.166 | bio:tools:codonopttable [2010/02/15 10:21] – 172.26.0.166 | ||
---|---|---|---|
Line 70: | Line 70: | ||
Here is a python script that provides a Graphical User Interface: | Here is a python script that provides a Graphical User Interface: | ||
You need to have wxpython installed on your system. | You need to have wxpython installed on your system. | ||
- | <file> | + | <code python> |
# | # | ||
import wx | import wx | ||
Line 144: | Line 144: | ||
testgui(None, | testgui(None, | ||
app.MainLoop() | app.MainLoop() | ||
- | </ | + | </code python> |
+ | This is used with the perl script: | ||
+ | <code perl># | ||
+ | use Bio:: | ||
+ | $sequence = $ARGV[0]; | ||
+ | sub codon { | ||
+ | my ($mysequence)=@_; | ||
+ | print $mysequence; | ||
+ | my $seqobj = Bio:: | ||
+ | -id => ' | ||
+ | -accession_number => ' | ||
+ | -alphabet => ' | ||
+ | -is_circular => 1, | ||
+ | -genetic_code => 1, | ||
+ | ); | ||
+ | #my $seqobj = Bio:: | ||
+ | # | ||
+ | # | ||
+ | # | ||
+ | # ); | ||
+ | my $myCodons = $seqobj-> | ||
+ | |||
+ | if($myCodons) | ||
+ | |||
+ | { | ||
+ | for my $each_aa (@$myCodons) | ||
+ | { | ||
+ | print " | ||
+ | print " | ||
+ | print " | ||
+ | print "RSCU Value : ", | ||
+ | print "RAC Value : ", | ||
+ | print " | ||
+ | } | ||
+ | } | ||
+ | |||
+ | while ( my ($amino_acid, | ||
+ | |||
+ | print " | ||
+ | $seqobj-> | ||
+ | } | ||
+ | codon($sequence); | ||
+ | Note: |
bio/tools/codonopttable.txt · Last modified: 2010/06/30 19:52 by 172.26.15.75