[Bio] / FigKernelPackages / proml.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/proml.pm

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

revision 1.2, Sat Jan 13 03:22:44 2007 UTC revision 1.3, Sat Jan 13 03:49:35 2007 UTC
# Line 478  Line 478 
478    
479      my $kmin = 1 / ( gjonewicklib::newick_tree_length( $tree ) || 1 );      my $kmin = 1 / ( gjonewicklib::newick_tree_length( $tree ) || 1 );
480    
481      print STDERR "Length = ", gjonewicklib::newick_tree_length( $tree ), "; kmin = $kmin\n"; ## DEBUG ##  #   print STDERR "Length = ", gjonewicklib::newick_tree_length( $tree ), "; kmin = $kmin\n"; ## DEBUG ##
482    
483      #  Generate "rate variation" by rescaling the supplied tree.  We could use a      #  Generate "rate variation" by rescaling the supplied tree.  We could use a
484      #  finer grain estimator, then categorize the inferred values.  This might      #  finer grain estimator, then categorize the inferred values.  This might
# Line 535  Line 535 
535                             map  { [ $_, @{ shift @results }[1] ] }  # get the likelihoods                             map  { [ $_, @{ shift @results }[1] ] }  # get the likelihoods
536                             @cat_vals;                             @cat_vals;
537    
538              printf STDERR "%6d  %2d => %12.4f\n", $i+1, @$best; ## DEBUG ##  #           printf STDERR "%6d  %2d => %12.4f\n", $i+1, @$best; ## DEBUG ##
539              push @categories, $best->[0];              push @categories, $best->[0];
540              push @weights,    1;              push @weights,    1;
541          }          }

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3