[Bio] / FigKernelPackages / ExpressionDir.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/ExpressionDir.pm

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

revision 1.11, Tue Apr 19 19:55:47 2011 UTC revision 1.12, Tue Nov 1 20:03:18 2011 UTC
# Line 11  Line 11 
11  use base 'Class::Accessor';  use base 'Class::Accessor';
12  use Carp;  use Carp;
13  use Fcntl ':seek';  use Fcntl ':seek';
14    use Statistics::Descriptive;
15    
16  __PACKAGE__->mk_accessors(qw(genome_dir expr_dir genome_id));  __PACKAGE__->mk_accessors(qw(genome_dir expr_dir genome_id));
17    
# Line 1072  Line 1073 
1073      return $res;      return $res;
1074  }  }
1075    
1076    sub compute_pearson_corr
1077    {
1078        my($self, $peg1, $peg2) = @_;
1079    
1080        my $h = $self->get_pc_hash_strip([$peg1], [$peg2]);
1081        return $h->{$peg1}->{$peg2};
1082    }
1083    
1084  sub best_pearson_corr {  sub best_pearson_corr {
1085      my($self,$pegs1,$cutoff) = @_;      my($self,$pegs1,$cutoff) = @_;
1086    

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3