~ubuntu-branches/ubuntu/trusty/bioperl/trusty

« back to all changes in this revision

Viewing changes to Bio/DB/TFBS/transfac_pro.pm

  • Committer: Package Import Robot
  • Author(s): Charles Plessy
  • Date: 2013-09-22 13:39:48 UTC
  • mfrom: (3.1.11 sid)
  • Revision ID: package-import@ubuntu.com-20130922133948-c6z62zegjyp7ztou
Tags: 1.6.922-1
* New upstream release.
* Replaces and Breaks grinder (<< 0.5.3-3~) because of overlaping contents.
  Closes: #722910
* Stop Replacing and Breaking bioperl ( << 1.6.9 ): not needed anymore. 

Show diffs side-by-side

added added

removed removed

Lines of Context:
393
393
    my $g_freq = ($seq =~ tr/g//) / length($seq);
394
394
    my $t_freq = ($seq =~ tr/t//) / length($seq);
395
395
    
396
 
    my $psm = new Bio::Matrix::PSM::SiteMatrix( -pA => $a,
 
396
    my $psm = Bio::Matrix::PSM::SiteMatrix->new(-pA => $a,
397
397
                                                -pC => $c,
398
398
                                                -pG => $g,
399
399
                                                -pT => $t,
638
638
        #*** not always relative to gene start...
639
639
        #    we need Bio::Map::Gene s to have some default tss and atg positions
640
640
        #    that we can be relative to
641
 
        my $rel = new Bio::Map::Relative(-element => $gene_map->gene, -description => $s_data[3]);
 
641
        my $rel = Bio::Map::Relative->new(-element => $gene_map->gene, -description => $s_data[3]);
642
642
        Bio::Map::Position->new(-map => $gene_map, -element => $tf, -start => $s_data[4], -end => $s_data[5], -relative => $rel);
643
643
    }
644
644