[Bio] / Sprout / GenomeStats.pl Repository:
ViewVC logotype

Diff of /Sprout/GenomeStats.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.10, Sun Jun 18 08:52:31 2006 UTC revision 1.12, Sun Jun 18 10:03:38 2006 UTC
# Line 155  Line 155 
155                                                   "RNAs",                                                   "RNAs",
156                                                     ])) . "\n";                                                     ])) . "\n";
157          # Set up some useful stuff for the four count columns.          # Set up some useful stuff for the four count columns.
158          my %linkParms = ( s0 => "nohypo_sub", n0 => "nohypo_nosub",          my %linkParms = ( s0 => "nothypo_sub", n0 => "nothypo_nosub",
159                            s1 => "hypo_sub", n1 => "hypo_nosub" );                            s1 => "hypo_sub", n1 => "hypo_nosub" );
160          my @columnTypes = ('s0', 'n0', 's1', 'n1');          my @columnTypes = ('s0', 'n0', 's1', 'n1');
161          # The data rows will be built next. We'll be putting them into a hash keyed by          # The data rows will be built next. We'll be putting them into a hash keyed by
# Line 173  Line 173 
173                  $new = " <span class=\"$markerStyle\">NEW!</span>";                  $new = " <span class=\"$markerStyle\">NEW!</span>";
174              }              }
175              # Get the genome length.              # Get the genome length.
176              my $genomeLen = $sprout->GenomeLength($genomeID);              my $genomeLen = Tracer::CommaFormat($sprout->GenomeLength($genomeID));
177              # Get the number of PEGs.              # Get the number of PEGs.
178              my $pegCount = $sprout->FeatureCount($genomeID, 'peg');              my $pegCount = Tracer::CommaFormat($sprout->FeatureCount($genomeID, 'peg'));
179              # Get the number of RNAs.              # Get the number of RNAs.
180              my $rnaCount = $sprout->FeatureCount($genomeID, 'rna');              my $rnaCount = Tracer::CommatFormat($sprout->FeatureCount($genomeID, 'rna'));
181              # Now we have four categories of features to work with, for each              # Now we have four categories of features to work with, for each
182              # combination of named or hypothetical vs. in-subsystem or              # combination of named or hypothetical vs. in-subsystem or
183              # not-in-subsystem. First, we get all of the feature assignments for              # not-in-subsystem. First, we get all of the feature assignments for

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.12

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3