User Tools

Site Tools


introductiontog-languageenglish

Differences

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

Link to this comparison view

Both sides previous revision Previous revision
Next revision
Previous revision
Next revision Both sides next revision
introductiontog-languageenglish [2008/04/14 07:05]
gaou
introductiontog-languageenglish [2009/04/19 15:47]
127.0.0.1 external edit
Line 647: Line 647:
 </​code>​ </​code>​
  
-Finally, plot the graph from the obtained data. In G-language GAE there is a function” _UniMultiGrapher()” that makes graphs easily, so let’s input data in here. Just type each data as reference, each data x coordinate list (the genome position stored above) and each data y coordinate list (the CAI value of the leading strand stored above). ​+Finally, plot the graph from the obtained data. In G-language GAE there is a function ​named **grapher() that makes graphs easily, so let’s input data in here. Just type each data as reference, each data x coordinate list (the genome position stored above) and each data y coordinate list (the CAI value of the leading strand stored above). ​
  
 <code perl> <code perl>
-  ​_UniMultiGrapher(¥@pos, ¥@data1, ¥@data2); ​+  ​grapher(¥@pos, ¥@data1, ¥@data2); ​
 </​code>​ </​code>​
  
Line 656: Line 656:
  
 <code perl> <code perl>
-  ​_UniMultiGrapher(¥@pos, ¥@data1, ¥@data2, -x1=>"​leading",​ -x2=>"​lagging", ​+  ​grapher(¥@pos, ¥@data1, ¥@data2, -x1=>"​leading",​ -x2=>"​lagging", ​
                                    ​-title=>"​caiskew",​ -x=>"​position",​ -y=>"​cai"​);​                                    ​-title=>"​caiskew",​ -x=>"​position",​ -y=>"​cai"​);​
 </​code>​ </​code>​
Line 666: Line 666:
   $gb = new G("​ecoli.gbk",​ "no msg"​); ​   $gb = new G("​ecoli.gbk",​ "no msg"​); ​
   cai($gb, -output=>"/​dev/​null"​); ​   cai($gb, -output=>"/​dev/​null"​); ​
 +
   foreach $cds ($gb->​cds()){ ​   foreach $cds ($gb->​cds()){ ​
       my $strand = query_strand($gb,​ $gb->​{$cds}->​{start}, ​       my $strand = query_strand($gb,​ $gb->​{$cds}->​{start}, ​
Line 678: Line 679:
       push(@pos, $gb->​{$cds}->​{start}); ​       push(@pos, $gb->​{$cds}->​{start}); ​
   }    } 
-  ​_UniMultiGrapher(¥@pos, ¥@data1, ¥@data2, -x1=>"​leading",​ -x2=>"​lagging", ​+  ​grapher(¥@pos, ¥@data1, ¥@data2, -x1=>"​leading",​ -x2=>"​lagging", ​
                                    ​-title=>"​caiskew",​ -x=>"​position",​ -y=>"​cai"​); ​                                    ​-title=>"​caiskew",​ -x=>"​position",​ -y=>"​cai"​); ​
 </​code>​ </​code>​
introductiontog-languageenglish.txt · Last modified: 2014/01/18 07:44 (external edit)