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

View of /FigKernelScripts/test_figfam_peg.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (download) (as text) (annotate)
Sat Oct 13 15:10:06 2007 UTC (12 years, 8 months ago) by overbeek
Branch: MAIN
Changes since 1.1: +10 -1 lines
fixes to fc_figfams

use FIG;
my $fig = new FIG;

$usage = "usage: test_figfam_peg PEG [FigFamsData]";

(
 ($peg = shift @ARGV)
)
    || die $usage;

$ff_data = (@ARGV > 0) ? $ARGV[0] : "$FIG_Config::data/FigfamsData";
use FigFams;
$figfams = new FigFams($fig,$ff_data);
$seq = $fig->get_translation($peg);

$ENV{'DEBUG'} = 1;

($got,$sims) = $figfams->place_in_family($seq);
if (defined($got))
{
    print &Dumper($sims,$got->family_id,$got->family_function);
}
else
{
    print STDERR "Sorry, no call, trying loose check\n";
    ($got,$sims) = $figfams->place_in_family($seq,1,1);
    if (defined($got))
    {
	print &Dumper($sims,$got->family_id,$got->family_function);
    }
    else
    {
	print STDERR "Sorry, no call\n";
    }
}



MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3