[Pspp-cvs] pspp/src regression.q

[Jason H Stover]

CVSROOT:        /sources/pspp
Module name:    pspp
Branch:         
Changes by:     Jason H Stover <address@hidden> 05/12/17 23:16:23

Modified files:
        src            : regression.q 

Log message:
        Added comments to exported model

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/pspp/pspp/src/regression.q.diff?tr1=1.22&tr2=1.23&r1=text&r2=text

Patches:
Index: pspp/src/regression.q
diff -u pspp/src/regression.q:1.22 pspp/src/regression.q:1.23
--- pspp/src/regression.q:1.22  Fri Dec 16 17:00:07 2005
+++ pspp/src/regression.q       Sat Dec 17 23:16:23 2005
@@ -485,6 +485,14 @@
       assert (fp != NULL);
       fp = fopen (handle_get_filename (model_file), "w");
       fprintf (fp, "#include <string.h>\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, "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++)
        {