Fix ssq for interactions

[pspp-builds.git] / src / math / covariance.c

diff --git a/src/math/covariance.c b/src/math/covariance.c
index aed42436ba40d95c240ef095960cae2862efb624..5dc1782638aff4f294253fd20d87c4e6b2e4c426 100644 (file)
--- a/src/math/covariance.c
+++ b/src/math/covariance.c
@@ -738,36 +738,4 @@ covariance_dim (const struct covariance * cov)
   return (cov->dim);
 }
 
-/*
-  Returns an array of variables corresponding to rows of the covariance matrix.
-  In other words, element i of the array is the variable corresponding to 
-  row (and column) i of the covariance matrix.
- */
-void
-covariance_get_var_indices (const struct covariance *cov, const struct variable **vars)
-{
-  int i;
-  for (i = 0; i < cov->n_vars; i++)
-    {
-      vars[i] = cov->vars[i];
-    }
-  for (i = cov->n_vars; i < cov->dim; i++)
-    {
-      vars[i] = categoricals_get_variable_by_subscript (cov->categoricals, i - cov->n_vars);
-    }
-}
 
-
-void
-covariance_get_interaction_indices (const struct covariance *cov, const struct interaction **iacts)
-{
-  int i;
-  for (i = 0; i < cov->n_vars; i++)
-    {
-      iacts[i] = cov->vars[i];
-    }
-  for (i = cov->n_vars; i < cov->dim; i++)
-    {
-      iacts[i] = categoricals_get_interaction_by_subscript (cov->categoricals, i - cov->n_vars);
-    }
-}