fix: save polytomy
This commit is contained in:
parent
3c9cdd67e0
commit
6c05ec1de7
1 changed files with 6 additions and 7 deletions
13
guoyi.run
13
guoyi.run
|
@ -354,10 +354,9 @@ var: contree;
|
||||||
set contree ntrees;
|
set contree ntrees;
|
||||||
|
|
||||||
/*Store consensus tree to tree vault*/
|
/*Store consensus tree to tree vault*/
|
||||||
/*hold /+0;
|
hold /+0;
|
||||||
tv>/;
|
tv>/;
|
||||||
tchoose 0.'npars';*/
|
tchoose 0.'npars';
|
||||||
tchoose/;
|
|
||||||
|
|
||||||
/*Get rbr/br/jak/boot/sym support and get consensus tree*/
|
/*Get rbr/br/jak/boot/sym support and get consensus tree*/
|
||||||
ttags=;
|
ttags=;
|
||||||
|
@ -378,20 +377,20 @@ if ('dobremer')
|
||||||
|
|
||||||
/*calculate relative bremer support*/
|
/*calculate relative bremer support*/
|
||||||
if ('dorbrs')
|
if ('dorbrs')
|
||||||
bs ]!! 0;
|
bs *]!! 0.'npars';
|
||||||
end
|
end
|
||||||
|
|
||||||
/*calculate bremer support*/
|
/*calculate bremer support*/
|
||||||
if ('dobrs')
|
if ('dobrs')
|
||||||
macfloat 1; /*set the br value float*/
|
macfloat 1; /*set the br value float*/
|
||||||
bsupport !! 0;
|
bsupport *!! 0.'npars';
|
||||||
end
|
end
|
||||||
|
|
||||||
end
|
end
|
||||||
|
|
||||||
/*Choose final tree*/
|
/*Choose final tree*/
|
||||||
/*tv<;*/
|
tv<;
|
||||||
tchoose 0;
|
tchoose /;
|
||||||
|
|
||||||
/*adjust to zero following Pablo Goloboff*/
|
/*adjust to zero following Pablo Goloboff*/
|
||||||
sub 0;
|
sub 0;
|
||||||
|
|
Loading…
Add table
Reference in a new issue