projects
/
pspp
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
GLM: Improve error messages.
[pspp]
/
src
/
language
/
stats
/
glm.c
diff --git
a/src/language/stats/glm.c
b/src/language/stats/glm.c
index 2766279f2ed9fbcaad9c80531a7c0752fb63ccde..92a1959b659c68c4050481876113fe74dafb0fbd 100644
(file)
--- a/
src/language/stats/glm.c
+++ b/
src/language/stats/glm.c
@@
-151,10
+151,12
@@
cmd_glm (struct lexer *lexer, struct dataset *ds)
glm.dump_coding = false;
glm.ss_type = 3;
glm.dump_coding = false;
glm.ss_type = 3;
+ int dep_vars_start = lex_ofs (lexer);
if (!parse_variables_const (lexer, glm.dict,
&glm.dep_vars, &glm.n_dep_vars,
PV_NO_DUPLICATE | PV_NUMERIC))
goto error;
if (!parse_variables_const (lexer, glm.dict,
&glm.dep_vars, &glm.n_dep_vars,
PV_NO_DUPLICATE | PV_NUMERIC))
goto error;
+ int dep_vars_end = lex_ofs (lexer) - 1;
if (! lex_force_match (lexer, T_BY))
goto error;
if (! lex_force_match (lexer, T_BY))
goto error;
@@
-166,7
+168,8
@@
cmd_glm (struct lexer *lexer, struct dataset *ds)
if (glm.n_dep_vars > 1)
{
if (glm.n_dep_vars > 1)
{
- msg (ME, _("Multivariate analysis is not yet implemented"));
+ lex_ofs_error (lexer, dep_vars_start, dep_vars_end,
+ _("Multivariate analysis is not yet implemented"));
return CMD_FAILURE;
}
return CMD_FAILURE;
}