covariance-matrix.c (is_origin): New function

[pspp-builds.git] / src / math / design-matrix.c

diff --git a/src/math/design-matrix.c b/src/math/design-matrix.c
index df68287b36e04e8077db317fa780cfeb648553b5..8195a4088db246b1d8f67012d1da5b26ee306a0f 100644 (file)
--- a/src/math/design-matrix.c
+++ b/src/math/design-matrix.c
@@ -258,4 +258,16 @@ design_matrix_get_case_count (const struct design_matrix *dm, const struct varia
   return dm->n_cases[i];
 }
 
-  
+size_t
+design_matrix_get_n_cols (const struct design_matrix *d)
+{
+  return d->m->size2;
+}
+
+size_t
+design_matrix_get_n_rows (const struct design_matrix *d)
+{
+  return d->m->size1;
+}
+
+