init

stats.run

@@ -0,0 +1,23 @@
+macro= ;
+report- ;
+var =
+   0 themin
+   1 themax
+   + CIs [ ( ntrees + 1 ) ]
+   + RIs [ ( ntrees + 1 ) ]
+   + this
+;
+set themin minsteps ;
+set themax maxsteps ;
+loop 0 ntrees
+   progress #1 (ntrees+1) Calculating indices... ;
+   set this length[#1] ;
+   set CIs[#1] 'themin'/'this' ;
+   set RIs[#1] ('themax'-'this')/('themax'-'themin') ;
+   stop
+progress/ ;
+report= ;
+macfloat 3 ;
+maketable CIs Consistency index ;
+maketable RIs Retention index ;
+proc/ ;

tnt.run

@@ -0,0 +1,27 @@
+mxram 10240 ;
+nstates 32 ;
+nstates NOGAPS ;
+
+piwe=12;
+
+procedure file.tnt ;
+log tnt.log ;
+taxname= ;
+
+hold 100000 ;
+xpiwe(*; mult=replic 100 tbr hold 1000;
+xpiwe&; piwe&;
+export= trees.tre ;
+
+bbreak=tbr ;
+majority * ;
+
+ttags= ;
+resample boot replications 1000;
+ttags & bt.svg thickness 7 italics fontsize 15;
+export < bt.tre ;
+
+length * ;
+stats.run;
+
+quit ;