From 012b055f5f7b4ddd2a608e64c53eaae101b5634e Mon Sep 17 00:00:00 2001 From: Jason Stover Date: Sun, 18 Dec 2005 18:20:04 +0000 Subject: [PATCH] Moved EXPORT comments to new header file --- src/regression.q | 10 ++-------- 1 file changed, 2 insertions(+), 8 deletions(-) diff --git a/src/regression.q b/src/regression.q index 28289622..660c15d8 100644 --- a/src/regression.q +++ b/src/regression.q @@ -36,6 +36,7 @@ #include "lexer.h" #include #include "missing-values.h" +#include "reg_export_comments.h" #include "tab.h" #include "var.h" #include "vfm.h" @@ -485,14 +486,7 @@ subcommand_export (int export, pspp_linreg_cache *c) assert (fp != NULL); fp = fopen (handle_get_filename (model_file), "w"); fprintf (fp, "#include \n\n"); - fprintf (fp, "/*\n Estimate the mean of Y, the dependent variable for\n"); - fprintf (fp, " the linear model of the form \n\n"); - fprintf (fp, " Y = b0 + b1 * X1 + b2 * X2 + ... + bk * X2 + error\n\n"); - fprintf (fp, " where X1, ..., Xk are the independent variables\n"); - fprintf (fp, " whose values are stored in var_vals and whose names, \n"); - fprintf (fp, " as known by PSPP, are stored in var_names. The estimated \n"); - fprintf (fp, " regression coefficients (i.e., the estimates of b0,...,bk) \n"); - fprintf (fp, " are stored in model_coeffs.\n*/\n"); + fprintf (fp, "%s", reg_mean_cmt); fprintf (fp, "double\npspp_reg_estimate (const double *var_vals, const char *var_names[])\n{\n\tchar *model_depvars[%d] = {", c->n_indeps); for (i = 1; i < c->n_indeps; i++) { -- 2.30.2