void bootwrite()
{ /* does bootstrapping and writes out data sets */
long i, j, rr, repdiv10;
if (!(bootstrap || jackknife || permute || ild || lockhart))
reps = 1;
repdiv10 = reps / 10;
if (repdiv10 < 1)
repdiv10 = 1;
if (progress)
putchar('\n');
for (rr = 1; rr <= (reps); rr++) {
for (i = 0; i < spp; i++)
for (j = 0; j < maxnewsites; j++)
charorder[i][j] = j;
if(rr==1)
firstrep = true;
else
firstrep = false;
if (ild) {
charpermute(0, maxnewsites);
for (i = 1; i < spp; i++)
for (j = 0; j < maxnewsites; j++)
charorder[i][j] = charorder[0][j];
}
if (lockhart)
for (i = 0; i < spp; i++)
charpermute(i, maxnewsites);
bootweights();
if (!justwts || permute || ild || lockhart)
writedata();
if (justwts && !(permute || ild || lockhart))
writeweights();
if (categories)
writecategories();
if (factors)
writefactors();
if (mixture)
writeauxdata(mixdata, outmixfile);
if (ancvar)
writeauxdata(ancdata, outancfile);
if (progress && (bootstrap || jackknife || permute || ild || lockhart)
&& ((reps < 10) || rr % repdiv10 == 0)) {
printf("completed replicate number %4ld\n", rr);
#ifdef WIN32
phyFillScreenColor();
#endif
}
}
if (progress) {
if (justwts)
printf("\nOutput weights written to file \"%s\"\n\n", outweightfilename);
else
printf("\nOutput written to file \"%s\"\n\n", outfilename);
}
} /* bootwrite */
void bootwrite()
{ /* does bootstrapping and writes out data sets */
long i, j, rr, repdiv10;
repdiv10 = reps / 10;
if (repdiv10 < 1)
repdiv10 = 1;
firstrep = true;
for (rr = 1; rr <= (reps); rr++) {
bootweights();
for (i = 0; i < spp; i++)
for (j = 0; j < newergroups; j++)
charorder[i][j] = j;
writedata(rr);
}
} /* bootwrite */
