{
/* Values of the scalar predictor variables */
if (index < n_x)
- return case_data (c, x[index])->f;
+ return case_num (c, x[index]);
/* Coded values of categorical predictor variables (or interactions) */
if (cats && index - n_x < categoricals_df_total (cats))
double weight = dict_get_case_weight (cmd->dict, c, &res->warn_bad_weight);
const union value *depval = case_data (c, cmd->dep_var);
- if (var_is_value_missing (cmd->dep_var, depval, cmd->exclude))
+ if (var_is_value_missing (cmd->dep_var, depval) & cmd->exclude)
{
missing = true;
}
for (v = 0; v < cmd->n_indep_vars; ++v)
{
const union value *val = case_data (c, cmd->indep_vars[v]);
- if (var_is_value_missing (cmd->indep_vars[v], val, cmd->exclude))
+ if (var_is_value_missing (cmd->indep_vars[v], val) & cmd->exclude)
{
missing = true;
break;
{
if (lex_force_match (lexer, T_LPAREN))
{
- if (! lex_force_num (lexer))
- {
- lex_error (lexer, NULL);
- goto error;
- }
+ if (!lex_force_num_range_closed (lexer, "CUT", 0, 1))
+ goto error;
+
cp = lex_number (lexer);
- if (cp < 0 || cp > 1.0)
- {
- msg (ME, _("Cut point value must be in the range [0,1]"));
- goto error;
- }
lex_get (lexer);
if (! lex_force_match (lexer, T_RPAREN))
{