comparison phylostatistics/treeannotator.pl @ 0:5b9a38ec4a39 draft default tip

First commit of old repositories
author osiris_phylogenetics <ucsb_phylogenetics@lifesci.ucsb.edu>
date Tue, 11 Mar 2014 12:19:13 -0700
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:5b9a38ec4a39
1 #!/usr/bin/perl
2
3 my $treeannotator_path = '/home/galaxy/pkgs/BEAST172/bin/treeannotator';
4
5 my $input = $ARGV[0];
6 my $burnin = $ARGV[1];
7 my $Node_heights = $ARGV[2];
8
9 my $node_opt;
10
11 if($Node_heights eq "0") {
12 $node_opt = "keep";
13 }
14 elsif($Node_heights eq "1") {
15 $node_opt = "median";
16 }
17 elsif($Node_heights eq "2") {
18 $node_opt = "mean";
19 }
20
21 my $run = qx/$treeannotator_path -heights $node_opt -burnin $burnin $input out.tre 2>log.txt/;
22
23 print $run;