Add a warning to GLM until we've sorted out its problems

diff --git a/src/language/stats/glm.c b/src/language/stats/glm.c
index 9d16a149b372766e0eef55a67fe5801e013936b9..2536c5f52de069c9e326f3891e18600d61394c1e 100644 (file)
--- a/src/language/stats/glm.c
+++ b/src/language/stats/glm.c
@@ -543,6 +543,7 @@ output_glm (const struct glm_spec *cmd, const struct glm_workspace *ws)
   if (cmd->intercept)
     nr++;
 
+  msg (MW, "GLM is experimental.  Do not rely on these results.");
   t = tab_create (nc, nr);
   tab_title (t, _("Tests of Between-Subjects Effects"));
 

diff --git a/tests/language/stats/glm.at b/tests/language/stats/glm.at
index 8abdd5e758042188f0ad3c3ee9a664443c340d20..8209bc7298ad2e24f985bfad3a6d3246f9d7c00b 100644 (file)
--- a/tests/language/stats/glm.at
+++ b/tests/language/stats/glm.at
@@ -57,7 +57,10 @@ glm y by   b a c
 ])
 
 AT_CHECK([pspp -O format=csv latin.sps | sed 's/329.62[[678]]/329.62/'], [0],
-  [Table: Tests of Between-Subjects Effects
+  [dnl
+warning: GLM is experimental.  Do not rely on these results.
+
+Table: Tests of Between-Subjects Effects
 Source,Type III Sum of Squares,df,Mean Square,F,Sig.
 Corrected Model,263.064,15,17.538,5.269,.000
 Intercept,815.103,1,815.103,244.910,.000
@@ -108,7 +111,10 @@ glm points by Factor0 Factor1
 
 
 AT_CHECK([pspp -O format=csv 2by2.sps ], [0],
-  [Table: Tests of Between-Subjects Effects
+  [dnl
+warning: GLM is experimental.  Do not rely on these results.
+
+Table: Tests of Between-Subjects Effects
 Source,Type III Sum of Squares,df,Mean Square,F,Sig.
 Corrected Model,8667.053,3,2889.018,5.043,.012
 Intercept,2256018.640,1,2256018.640,3937.693,.000