Mercurial > repos > ucsb-phylogenetics > osiris_phylogenetics
comparison phylogenies/phylobayes33_wrapper.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 $phylobayes_path = '/home/galaxy/pkgs/phylobayes3.3b/exe_lin64/pb'; | |
4 my $readPB_path = '/home/galaxy/pkgs/phylobayes3.3b/exe_lin64/readpb'; | |
5 | |
6 my $fileName = $ARGV[0]; | |
7 my $nchainInput = $ARGV[1]; | |
8 my $cycle_bp_trace_comp = $ARGV[2]; | |
9 my $discrepancies_threshold = $ARGV[3]; | |
10 my $effective_size_floor = $ARGV[4]; | |
11 my $jobName = "dataset"; | |
12 | |
13 my $burnin = $ARGV[5]; | |
14 my $sampleInterval = $ARGV[6]; | |
15 | |
16 my $run1 = qx/$phylobayes_path -d $fileName -nchain $nchainInput $cycle_bp_trace_comp $discrepancies_threshold $effective_size_floor $jobName 2>errorlog/; | |
17 print $run1; | |
18 | |
19 my $list = qx/ls -l/; | |
20 print $list; | |
21 | |
22 my $run2 = qx/$readPB_path -x $burnin $sampleInterval $jobName 2>errorlog/; | |
23 print $run2; |