- result += cat_value_find (var, val) - 1;
- }
- return result;
-}
-
-static void
-covariance_matrix_insert (struct design_matrix *cov,
- const struct variable *v1,
- const struct variable *v2, const union value *val1,
- const union value *val2, double product)
-{
- size_t row;
- size_t col;
-
- assert (cov != NULL);
-
- row = get_exact_subscript (cov, v1, val1);
- col = get_exact_subscript (cov, v2, val2);
- if (row != -1u && col != -1u)
- {
- design_matrix_set_element (cov, row, col, product);
+ result = cat_subscript_to_value (i, var);
+ if (dm_get_exact_subscript (dm, var, result) == target)
+ {
+ return result;
+ }