void write_mlinfo(const std::vector<std::ofstream*>& outfile, unsigned int file,
const mlinfo& mli, int csnp, const cmdvars& input_var,
int gcount, double freq)
{
*outfile[file] << mli.name[csnp]
<< input_var.getSep()
<< mli.A1[csnp]
<< input_var.getSep()
<< mli.A2[csnp]
<< input_var.getSep()
<< mli.Freq1[csnp]
<< input_var.getSep()
<< mli.MAF[csnp]
<< input_var.getSep()
<< mli.Quality[csnp]
<< input_var.getSep()
<< mli.Rsq[csnp]
<< input_var.getSep()
<< gcount
<< input_var.getSep()
<< freq;
if (input_var.getChrom() != "-1")
{
*outfile[file] << input_var.getSep() << input_var.getChrom();
}
if (input_var.getMapfilename() != NULL)
{
*outfile[file] << input_var.getSep() << mli.map[csnp];
}
}
void create_header2(std::vector<std::ofstream*>& outfile, cmdvars& input_var,
phedata& phd, int interaction_cox)
{
create_start_of_header(outfile, input_var, phd);
*outfile[0] << input_var.getSep() << "beta_SNP_add"
<< input_var.getSep() << "sebeta_SNP_add";
if (input_var.getInteraction() != 0)
{
*outfile[0] << input_var.getSep() << "beta_SNP_"
<< phd.model_terms[interaction_cox]
<< input_var.getSep() << "sebeta_SNP_"
<< phd.model_terms[interaction_cox];
}
if (input_var.getInverseFilename() == NULL)
{
//Han Chen
#if !COXPH
if (input_var.getInteraction() != 0 && !input_var.getAllcov())
{
*outfile[0] << input_var.getSep() << "cov_SNP_int_SNP_"
<< phd.model_terms[interaction_cox];
}
#endif
*outfile[0] << input_var.getSep() << "loglik"; //"chi2_SNP";
}
//Oct 26, 2009
*outfile[0] << "\n";
}
void create_start_of_header(std::vector<std::ofstream*>& outfile,
cmdvars& input_var, phedata& phd)
{
for (unsigned int i = 0; i < outfile.size(); i++)
{
(*outfile[i]) << "name" << input_var.getSep()
<< "A1" << input_var.getSep()
<< "A2" << input_var.getSep()
<< "Freq1" << input_var.getSep()
<< "MAF" << input_var.getSep()
<< "Quality" << input_var.getSep()
<< "Rsq" << input_var.getSep()
<< "n" << input_var.getSep()
<< "Mean_predictor_allele";
if (input_var.getChrom() != "-1")
(*outfile[i]) << input_var.getSep() << "chrom";
if (input_var.getMapfilename() != NULL)
(*outfile[i]) << input_var.getSep() << "position";
}
if (input_var.getAllcov()) //All covariates in output
{
for (unsigned int file = 0; file < outfile.size(); file++)
for (int i = 0; i < phd.n_model_terms - 1; i++)
*outfile[file] << input_var.getSep()
<< "beta_" << phd.model_terms[i]
<< input_var.getSep() << "sebeta_"
<< phd.model_terms[i];
}
}
void create_header(std::vector<std::ofstream*>& outfile, cmdvars& input_var,
phedata& phd, int& interaction_cox)
{
create_start_of_header(outfile, input_var, phd);
if (input_var.getNgpreds() == 1) // dose data: only additive model
{
*outfile[0] << input_var.getSep()
<< "beta_SNP_add"
<< input_var.getSep()
<< "sebeta_SNP_add";
if (input_var.getInteraction() != 0)
{
*outfile[0] << input_var.getSep()
<< "beta_SNP_"
<< phd.model_terms[interaction_cox]
<< input_var.getSep()
<< "sebeta_SNP_"
<< phd.model_terms[interaction_cox];
}
if (input_var.getInverseFilename() == NULL)
{
//Han Chen
#if !COXPH
if (input_var.getInteraction() != 0 && !input_var.getAllcov())
{
*outfile[0] << input_var.getSep()
<< "cov_SNP_int_SNP_"
<< phd.model_terms[interaction_cox];
}
#endif
}
*outfile[0] << input_var.getSep() << "chi2_SNP";
*outfile[0] << "\n";
} // ngpreds == 1
else if (input_var.getNgpreds() == 2) // prob data: all models
{
*outfile[0] << input_var.getSep()
<< "beta_SNP_A1A2"
<< input_var.getSep()
<< "sebeta_SNP_A1A2"
<< input_var.getSep()
<< "beta_SNP_A1A1"
<< input_var.getSep()
<< "sebeta_SNP_A1A1";
*outfile[1] << input_var.getSep()
<< "beta_SNP_addA1"
<< input_var.getSep()
<< "sebeta_SNP_addA1";
*outfile[2] << input_var.getSep()
<< "beta_SNP_domA1"
<< input_var.getSep()
<< "sebeta_SNP_domA1";
*outfile[3] << input_var.getSep()
<< "beta_SNP_recA1"
<< input_var.getSep()
<< "sebeta_SNP_recA1";
*outfile[4] << input_var.getSep()
<< "beta_SNP_odomA1"
<< input_var.getSep()
<< "sebeta_SNP_odomA1";
if (input_var.getInteraction() != 0)
{
//Han Chen
*outfile[0] << input_var.getSep()
<< "beta_SNP_A1A2_"
<< phd.model_terms[interaction_cox]
<< input_var.getSep()
<< "sebeta_SNP_A1A2_"
<< phd.model_terms[interaction_cox]
<< input_var.getSep()
<< "beta_SNP_A1A1_"
<< phd.model_terms[interaction_cox]
<< input_var.getSep()
<< "sebeta_SNP_A1A1_"
<< phd.model_terms[interaction_cox];
#if !COXPH
if (input_var.getInverseFilename() == NULL && !input_var.getAllcov())
{
*outfile[0] << input_var.getSep()
<< "cov_SNP_A1A2_int_SNP_"
<< phd.model_terms[interaction_cox]
<< input_var.getSep()
<< "cov_SNP_A1A1_int_SNP_"
<< phd.model_terms[interaction_cox];
}
#endif
//Oct 26, 2009
for (unsigned int file = 1; file < outfile.size(); file++)
{
*outfile[file] << input_var.getSep()
<< "beta_SNP_"
<< phd.model_terms[interaction_cox]
<< input_var.getSep()
<< "sebeta_SNP_"
<< phd.model_terms[interaction_cox];
//Han Chen
#if !COXPH
if (input_var.getInverseFilename() == NULL
&& !input_var.getAllcov())
{
*outfile[file] << input_var.getSep()
<< "cov_SNP_int_SNP_"
<< phd.model_terms[interaction_cox];
}
#endif
//Oct 26, 2009
}
}
*outfile[0] << input_var.getSep() << "chi2_SNP_2df\n"; // "loglik\n";
*outfile[1] << input_var.getSep() << "chi2_SNP_A1\n"; // "loglik\n";
*outfile[2] << input_var.getSep() << "chi2_SNP_domA1\n";// "loglik\n";
*outfile[3] << input_var.getSep() << "chi2_SNP_recA1\n";// "loglik\n";
*outfile[4] << input_var.getSep() << "chi2_SNP_odomA1\n"; // "loglik\n";
} // End: ngpreds == 2
else
{
cerr << "Error: create_header(): ngpreds != 1 or 2.\n";
}
}
void create_header_1(std::vector<std::ofstream*>& outfile, cmdvars& input_var,
phedata& phd, int& interaction_cox)
{
create_start_of_header(outfile, input_var, phd);
*outfile[0] << input_var.getSep() << "beta_SNP_A1A2" << input_var.getSep()
<< "beta_SNP_A1A1" << input_var.getSep() << "sebeta_SNP_A1A2"
<< input_var.getSep() << "sebeta_SNP_A1A1";
*outfile[1] << input_var.getSep() << "beta_SNP_addA1" << input_var.getSep()
<< "sebeta_SNP_addA1";
*outfile[2] << input_var.getSep() << "beta_SNP_domA1" << input_var.getSep()
<< "sebeta_SNP_domA1";
*outfile[3] << input_var.getSep() << "beta_SNP_recA1" << input_var.getSep()
<< "sebeta_SNP_recA1";
*outfile[4] << input_var.getSep() << "beta_SNP_odom" << input_var.getSep()
<< "sebeta_SNP_odom";
if (input_var.getInteraction() != 0)
{
//Han Chen
*outfile[0] << input_var.getSep() << "beta_SNP_A1A2_"
<< phd.model_terms[interaction_cox]
<< input_var.getSep() << "sebeta_SNP_A1A2_"
<< phd.model_terms[interaction_cox]
<< input_var.getSep() << "beta_SNP_A1A1_"
<< phd.model_terms[interaction_cox]
<< input_var.getSep() << "sebeta_SNP_A1A1_"
<< phd.model_terms[interaction_cox];
#if !COXPH
if (input_var.getInverseFilename() == NULL && !input_var.getAllcov())
{
*outfile[0] << input_var.getSep() << "cov_SNP_A1A2_int_SNP_"
<< phd.model_terms[interaction_cox]
<< input_var.getSep() << "cov_SNP_A1A1_int_SNP_"
<< phd.model_terms[interaction_cox];
}
#endif
//Oct 26, 2009
for (unsigned int file = 1; file < outfile.size(); file++)
{
*outfile[file] << input_var.getSep() << "beta_SNP_"
<< phd.model_terms[interaction_cox]
<< input_var.getSep() << "sebeta_SNP_"
<< phd.model_terms[interaction_cox];
//Han Chen
#if !COXPH
if (input_var.getInverseFilename() == NULL
&& !input_var.getAllcov())
{
*outfile[file] << input_var.getSep() << "cov_SNP_int_SNP_"
<< phd.model_terms[interaction_cox];
}
#endif
//Oct 26, 2009
}
}
*outfile[0] << input_var.getSep() << "loglik\n"; //"chi2_SNP_2df\n";
*outfile[1] << input_var.getSep() << "loglik\n"; //"chi2_SNP_A1\n";
*outfile[2] << input_var.getSep() << "loglik\n"; //"chi2_SNP_domA1\n";
*outfile[3] << input_var.getSep() << "loglik\n"; //"chi2_SNP_recA1\n";
*outfile[4] << input_var.getSep() << "loglik\n"; //"chi2_SNP_odom\n";
}