fix: resample influence tree topology

This commit is contained in:
kuoi 2023-07-20 20:53:29 +08:00
parent 8b165c649d
commit 6382d4f8aa

View file

@ -113,16 +113,32 @@ tsave *= trees.tnt.tre;
/*Consensus tree*/ /*Consensus tree*/
bbreak=tbr; bbreak=tbr;
nelsen *; nelsen *;
tchoose/;
/*Export consensus tree*/ /*Export consensus tree*/
tchoose/;
export - original.tre; export - original.tre;
taxname-; taxname-;
export - original_no.tre; export - original_no.tre;
taxname=;
tsave = original.ctf; tsave = original.ctf;
tsave *= original.tnt.tre; tsave *= original.tnt.tre;
/*Apomorphic characters*/
tchoose/;
export = winclada.tre;
taxname =;
ttags=;
apo >0;
quote - /----------------------------------------------\;
quote - apomorphy tags start ;
ttags/;
quote - apomorphy tags stop ;
quote - \----------------------------------------------/;
ttags & apo.svg thickness 7 italics fontsize 15;
export < apo.tre;
taxname-;
export - apo_no.tre;
ttags-;
/*Get Bremer/jak/boot support*/ /*Get Bremer/jak/boot support*/
tchoose/; tchoose/;
ttags=; ttags=;
@ -148,22 +164,6 @@ quote - \----------------------------------------------/;
export < resample.tre; export < resample.tre;
taxname-; taxname-;
export - resample_no.tre; export - resample_no.tre;
/*Apomorphic characters*/
export = winclada.tre;
taxname =;
ttags-;
ttags=;
apo >0;
quote - /----------------------------------------------\;
quote - apomorphy tags start ;
ttags/;
quote - apomorphy tags stop ;
quote - \----------------------------------------------/;
ttags & apo.svg thickness 7 italics fontsize 15;
export < apo.tre;
taxname-;
export - apo_no.tre;
ttags-; ttags-;
/*Caulculate TL/CI/RI score*/ /*Caulculate TL/CI/RI score*/
@ -205,7 +205,7 @@ quote - | consensus tree with support |;
quote - | The file `apo*.tre` contain |; quote - | The file `apo*.tre` contain |;
quote - | tree with apomorphic character |; quote - | tree with apomorphic character |;
quote - | The file `*_no.tre` contain |; quote - | The file `*_no.tre` contain |;
quote - | tree with `taxaname-` |; quote - | tree with `taxname-` |;
quote - | The file `*.ctf` tree file is |; quote - | The file `*.ctf` tree file is |;
quote - | only readable for TNT |; quote - | only readable for TNT |;
quote - | The file `*.tnt.tre` contain |; quote - | The file `*.tnt.tre` contain |;