Lee Katz | 23 Dec 23:44 2013

TreeIO and bootstrap values

Hi, I want to change the bootstrap values in my phylogeny to some
artificial Fst values I created earlier in the script.  This subroutine
seems to be doing the trick because Data::Dumper shows that the nodes and
the tree have the new bootstraps.  However, the resulting Newick tree does
not display them.  Can anyone help?  Thank you.


sub printTree{
  my($fst,$tree,$settings)= <at> _;
  my $treeIn=new Bio::TreeIO(-file=>$tree)->next_tree;
  my $out=Bio::TreeIO->new(-format=>"newick");
  for my $node($treeIn->get_nodes){    # get all descendents of the
node and alpha-sort them    my  <at> d=sort{$a->id cmp $b->id}
$node->each_Descendent;    next if(! <at> d);    # make a comma-separated
key    my $key; $key.=$_->id."," for( <at> d);    $key=~s/,$//;    # next
if that key isn't in $fst: not all $fst combos were calculated.
next if(!$$fst{$key});    # apply the Fst with that key



Lee Katz, Ph.D.