[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.5 - (download) (as text) (annotate)
Thu Apr 17 20:48:15 2008 UTC (12 years, 2 months ago) by olson
Branch: MAIN
CVS Tags: rast_rel_2008_06_18, rast_rel_2008_06_16, rast_rel_2008_04_23
Changes since 1.4: +1 -1 lines
Introduct &FIG::get_figfams_data()

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::get_figfams_data();
use FigFams;
$figfams = new FigFams($fig,$ff_data);
$seq = $fig->get_translation($peg);

$ENV{'DEBUG'} = 1;

($got,$sims) = $figfams->place_in_family($seq,1);
if (defined($got))
{
    print &Dumper($sims,$got->family_id,$got->family_function);
}
else
{
    print "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 "Sorry, no call\n";
    }
}



MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3