[Bio] / FigWebServices / sigs.cgi Repository:
ViewVC logotype

Diff of /FigWebServices/sigs.cgi

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

revision 1.15, Mon Jan 30 22:00:15 2006 UTC revision 1.16, Wed Jun 28 21:32:24 2006 UTC
# Line 205  Line 205 
205          push(@$html,$cgi->h1("You need to fill in at least Set1"));          push(@$html,$cgi->h1("You need to fill in at least Set1"));
206      }      }
207  }  }
208    warn "sigs: about to show page.\n";
209  &HTML::show_page($cgi,$html);  &HTML::show_page($cgi,$html);
210    
211  sub common_genes {  sub common_genes {
212      my($set1,$given,$sim_cutoff,$minN) = @_;      my($set1,$given,$sim_cutoff,$minN) = @_;
213        warn "sig: common genes.\n";
214      my %set1  = map { $_ => 1 } @$set1;      my %set1  = map { $_ => 1 } @$set1;
215      if ($set1{$given})      if ($set1{$given})
216      {      {
# Line 245  Line 247 
247    
248  sub differentiating_genes {  sub differentiating_genes {
249      my($set1,$set2,$given,$sim_cutoff) = @_;      my($set1,$set2,$given,$sim_cutoff) = @_;
250        warn "sigs: differentiating.\n";
251      my %set1  = map { $_ => 1 } @$set1;      my %set1  = map { $_ => 1 } @$set1;
252      my %set2  = map { $_ => 1 } @$set2;      my %set2  = map { $_ => 1 } @$set2;
253    
# Line 290  Line 292 
292  sub sig {  sub sig {
293      my($in_has,$in_has_not,$out_has,$out_has_not) = @_;      my($in_has,$in_has_not,$out_has,$out_has_not) = @_;
294      my($sx,$sy,$xx,$xy,$yy,$din,$dout);      my($sx,$sy,$xx,$xy,$yy,$din,$dout);
295        warn "sigs: sig method.\n";
296      $sx = $in_has + $in_has_not;      $sx = $in_has + $in_has_not;
297      $sy = $out_has + $out_has_not;      $sy = $out_has + $out_has_not;
298      $xx = ($in_has * $in_has) + ($in_has_not * $in_has_not);      $xx = ($in_has * $in_has) + ($in_has_not * $in_has_not);

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3