projects
/
pspp-builds.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
a483745
)
fixed EXPORT command segfault
author
Jason Stover
<jhs@math.gcsu.edu>
Wed, 5 Apr 2006 01:57:16 +0000
(
01:57
+0000)
committer
Jason Stover
<jhs@math.gcsu.edu>
Wed, 5 Apr 2006 01:57:16 +0000
(
01:57
+0000)
src/language/stats/regression.q
patch
|
blob
|
history
diff --git
a/src/language/stats/regression.q
b/src/language/stats/regression.q
index c30f6898700188964589f8fee0de78e49cc889b8..ef0041e8b6fa0407afb2a8c354099eb6e2511edf 100644
(file)
--- a/
src/language/stats/regression.q
+++ b/
src/language/stats/regression.q
@@
-599,6
+599,23
@@
reg_print_getvar (FILE * fp, pspp_linreg_cache * c)
"if (strncmp (v_name, model_depvars[i], PSPP_REG_MAXLEN) == 0)\n\t\t{\n\t\t\t");
fprintf (fp, "return i;\n\t\t}\n\t}\n}\n");
}
"if (strncmp (v_name, model_depvars[i], PSPP_REG_MAXLEN) == 0)\n\t\t{\n\t\t\t");
fprintf (fp, "return i;\n\t\t}\n\t}\n}\n");
}
+static int
+reg_has_categorical (pspp_linreg_cache * c)
+{
+ int i;
+ const struct variable *v;
+
+ for (i = 1; i < c->n_coeffs; i++)
+ {
+ v = pspp_linreg_coeff_get_var (c->coeff + i, 0);
+ if (v->type == ALPHA)
+ {
+ return 1;
+ }
+ }
+ return 0;
+}
+
static void
subcommand_export (int export, pspp_linreg_cache * c)
{
static void
subcommand_export (int export, pspp_linreg_cache * c)
{
@@
-618,7
+635,10
@@
subcommand_export (int export, pspp_linreg_cache * c)
assert (fp != NULL);
fprintf (fp, "%s", reg_preamble);
reg_print_getvar (fp, c);
assert (fp != NULL);
fprintf (fp, "%s", reg_preamble);
reg_print_getvar (fp, c);
- reg_print_categorical_encoding (fp, c);
+ if (reg_has_categorical (c))
+ {
+ reg_print_categorical_encoding (fp, c);
+ }
fprintf (fp, "%s", reg_export_t_quantiles_1);
increment = 0.5 / (double) increment;
for (i = 0; i < n_quantiles - 1; i++)
fprintf (fp, "%s", reg_export_t_quantiles_1);
increment = 0.5 / (double) increment;
for (i = 0; i < n_quantiles - 1; i++)