view release on metacpan or  search on metacpan

t/transfac_pro.t  view on Meta::CPAN

            my $fA = $matrix->get_compressed_freq('A');
            my @check = Bio::Matrix::PSM::SiteMatrix::_uncompress_string($fA,1,1);
            my @A = $matrix->get_array('A');
            my ($var, $max) = (0, 0);
            for (my $i = 0; $i < @check; $i++) {
                my $diff = abs(abs($check[$i]) - abs($A[$i]));
                $var += $diff;
                $max = $diff if ($diff > $max);
            }
            my $avg = $var / @check;
            cmp_ok $avg, '<', 0.01; # Loss of data under 1 percent
            
            # SiteMatrixI methods
            is $matrix->id, 'V$E47_01';
            is $matrix->accession_number, $matrix_id;
            is $matrix->consensus, 'ATGCATGCATGC';
            is $matrix->IUPAC, 'NNNNNNNNNNNN';
            is $matrix->regexp, '\S\S\S\S\S\S\S\S\S\S\S\S';
            is $matrix->width, 12;
            is $matrix->sites, 5;
            ok ! $matrix->IC;