[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.1 - (download) (as text) (annotate)
Sat Apr 28 14:47:53 2007 UTC (13 years, 2 months ago) by overbeek
Branch: MAIN
add best_tree_using_proml_on_cluster

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\n";
}



MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3