| Probabilistic interactome |
END_DES
print "$PI |
\n";
print "Virtual bait | \n";
print "$bait | \n";
print "| Likelihood ratio cutoff | ";
print "$cutoff |
\n";
print "| Number of Interactions | ";
print "$length |
\n";
print "
\n";
print 'You can also choose to display the result in a table (recomended when too many interactions)
';
print '
';
print '
Click here to get SGD annotation for '."$bait"."
";
print '
Return to the main menu';
print OUTPUT "ORF\tLikelihood ratio";
for ($i=0; $i<$k; $i++)
{
print OUTPUT "\t$dataset_description[$i]";
}
print OUTPUT "\n";
for $group(keys %nei)
{
print OUTPUT "$group\t$L{$group}";
for ($i=0; $i<$gnum; $i++)
{
print OUTPUT "\t$nei{$group}[$i]";
}
print OUTPUT "\n";
}
close(OUTPUT);
close (DATASET);
# draw the graph
#==============================
if ($length==0)
{
print "
No interactions found for $bait with likelihood ratios larger than or equal to $cutoff
";
print "