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

Diff of /FigKernelScripts/test_figfam_peg.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5, Thu Apr 17 20:48:15 2008 UTC revision 1.6, Wed Jun 18 15:38:14 2008 UTC
# Line 1  Line 1 
1    use Data::Dumper;
2  use FIG;  use FIG;
3  my $fig = new FIG;  my $fig = new FIG;
4    
# Line 15  Line 15 
15  $seq = $fig->get_translation($peg);  $seq = $fig->get_translation($peg);
16    
17  $ENV{'DEBUG'} = 1;  $ENV{'DEBUG'} = 1;
18    my ($in_ff) = $figfams->families_containing_peg($peg);
19    print "In FIGfams? ";
20    if ($in_ff){
21        my $famO = new FigFam($fig,$in_ff,$ff_data);
22        print "yes, $in_ff, " . $famO->family_function . "\n";
23    }
24    else{
25        print "no\n";
26    }
27    
28    print "Sequence Annotation: " . $fig->function_of($peg) . "\n\n";
29  ($got,$sims) = $figfams->place_in_family($seq,1);  ($got,$sims) = $figfams->place_in_family($seq,1);
30  if (defined($got))  if (defined($got))
31  {  {

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3