void doinput(int argc, Char *argv[])
{ /* reads the input data */
getoptions();
seqboot_inputnumbers();
allocrest();
inputoptions();
seqboot_inputdata();
} /* doinput */
void doinput(int argc, Char *argv[])
{ /* reads the input data */
getoptions();
seqboot_inputnumbers();
allocrest();
if (weights)
openfile(&weightfile,WEIGHTFILE,"input weight file",
"r",argv[0],weightfilename);
if (mixture){
openfile(&mixfile,MIXFILE,"mixture file", "r",argv[0],mixfilename);
openfile(&outmixfile,"outmixture","output mixtures file","w",argv[0],
outmixfilename);
seqboot_inputaux(mixdata, mixfile);
}
if (ancvar){
openfile(&ancfile,ANCFILE,"ancestor file", "r",argv[0],ancfilename);
openfile(&outancfile,"outancestors","output ancestors file","w",argv[0],
outancfilename);
seqboot_inputaux(ancdata, ancfile);
}
if (categories) {
openfile(&catfile,CATFILE,"input category file","r",argv[0],catfilename);
openfile(&outcatfile,"outcategories","output category file","w",argv[0],
outcatfilename);
inputcategs(0, sites, category, 9, "SeqBoot");
}
if (factors){
openfile(&factfile,FACTFILE,"factors file","r",argv[0],factfilename);
openfile(&outfactfile,"outfactors","output factors file","w",argv[0],
outfactfilename);
}
if (justwts && !permute)
openfile(&outweightfile,"outweights","output weight file",
"w",argv[0],outweightfilename);
else {
openfile(&outfile,OUTFILE,"output data file","w",argv[0],outfilename);
}
inputoptions();
seqboot_inputdata();
} /* doinput */
