- size_t i;
-
- for (i = 0; i < n_dropped; i++)
- {
- if (j == dropped[i])
- return false;
- }
- return true;
-}
-
-/*
- Do the variables in X->VARS constitute a proper
- subset of the variables in Y->VARS?
- */
-static bool
-is_subset (const struct interaction *x, const struct interaction *y)
-{
- size_t i;
- size_t j;
- size_t n = 0;
-
- if (x->n_vars < y->n_vars)
- {
- for (i = 0; i < x->n_vars; i++)
- {
- for (j = 0; j < y->n_vars; j++)
- {
- if (x->vars [i] == y->vars [j])
- {
- n++;
- }
- }
- }
- }
- if (n >= x->n_vars)
- return true;
- return false;
-}
-
-static bool
-drop_from_submodel (const struct interaction *x, const struct interaction *y)
-{
- size_t i;
- size_t j;
- size_t n = 0;
-
- if (is_subset (x, y))
- return true;
-
- for (i = 0; i < x->n_vars; i++)
- for (j = 0; j < y->n_vars; j++)
- {
- if (x->vars [i] == y->vars [j])
- n++;
- }
- if (n == x->n_vars)
- {
- return true;
- }
-
- return false;