[Bio] / FigKernelScripts / score_dfcs.pl Repository:
ViewVC logotype

Annotation of /FigKernelScripts/score_dfcs.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.3 - (view) (download) (as text)

1 : overbeek 1.3 #__perl__
2 : overbeek 1.1
3 :     use FIG;
4 :     my $fig = new FIG;
5 :    
6 :     my @fc_bins = (
7 :     [0.554,100],
8 :     [0.626,50],
9 :     [0.532,25],
10 :     [0.369,13],
11 :     [0.219,7],
12 :     [0.140,0]
13 :     );
14 :    
15 :     while (defined($_ = <STDIN>))
16 :     {
17 :     chop;
18 :     ($peg1,$peg2,$fc) = split(/\t/,$_);
19 :     $sc = &score_fc($fc,\@fc_bins);
20 :     print join("\t",($peg1,$peg2,$sc,"","","",$fc,"")),"\n";
21 :     }
22 :     sub score_fc {
23 :     my($fcsc,$bins) = @_;
24 :    
25 :     for ($i=0; ($i < @$bins) && ($fcsc < $bins->[$i]->[1]); $i++) {}
26 :     return $bins->[$i]->[0];
27 :     }

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3