Support moments
[pspp-builds.git] / src / math / design-matrix.c
index 01fdb0851aca937aeefe1d7d4fbf98f6d0017b9d..0f5242d5d138a1e85ed7c022c732777d80fb286b 100644 (file)
@@ -33,6 +33,7 @@
 #include <libpspp/message.h>
 #include <data/variable.h>
 #include <data/category.h>
+#include <data/value.h>
 
 #include <gsl/gsl_machine.h>
 #include <gsl/gsl_vector.h>
@@ -122,10 +123,10 @@ design_matrix_create (int n_variables,
        }
       else if (var_is_alpha (v))
        {
-         assert (v->obs_vals != NULL);
+          struct cat_vals *obs_vals = var_get_obs_vals (v);
          (dm->vars + i)->last_column =
-           (dm->vars + i)->first_column + v->obs_vals->n_categories - 2;
-         n_cols += v->obs_vals->n_categories - 1;
+           (dm->vars + i)->first_column + obs_vals->n_categories - 2;
+         n_cols += obs_vals->n_categories - 1;
        }
     }
   dm->m = gsl_matrix_calloc (n_data, n_cols);