179 |
my $pegCount = Tracer::CommaFormat($sprout->FeatureCount($genomeID, 'peg')); |
my $pegCount = Tracer::CommaFormat($sprout->FeatureCount($genomeID, 'peg')); |
180 |
# Get the number of RNAs. |
# Get the number of RNAs. |
181 |
my $rnaCount = Tracer::CommaFormat($sprout->FeatureCount($genomeID, 'rna')); |
my $rnaCount = Tracer::CommaFormat($sprout->FeatureCount($genomeID, 'rna')); |
182 |
|
# If there are no RNAs, we say we don't know the number, since we know there |
183 |
|
# must be RNAs somewhere. |
184 |
|
if (! $rnaCount) { |
185 |
|
$rnaCount = "n/d"; |
186 |
|
} |
187 |
# Now we have four categories of features to work with, for each |
# Now we have four categories of features to work with, for each |
188 |
# combination of named or hypothetical vs. in-subsystem or |
# combination of named or hypothetical vs. in-subsystem or |
189 |
# not-in-subsystem. First, we get all of the feature assignments for |
# not-in-subsystem. First, we get all of the feature assignments for |