X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=tests%2Flanguage%2Fstats%2Fglm.at;h=9c74ffe5463c35fd76885647e833456cbcd4a7eb;hb=691a034d7f2139076fa012739dffd40ef5db4a9b;hp=e56c150820ce138f0b952b1b17a58e3ad6d0e09d;hpb=933f16e8847bacf67eec53e7ba77b6c069125700;p=pspp diff --git a/tests/language/stats/glm.at b/tests/language/stats/glm.at index e56c150820..9c74ffe546 100644 --- a/tests/language/stats/glm.at +++ b/tests/language/stats/glm.at @@ -1,4 +1,19 @@ -AT_BANNER([GLM procedure]) +dnl PSPP - a program for statistical analysis. +dnl Copyright (C) 2017 Free Software Foundation, Inc. +dnl +dnl This program is free software: you can redistribute it and/or modify +dnl it under the terms of the GNU General Public License as published by +dnl the Free Software Foundation, either version 3 of the License, or +dnl (at your option) any later version. +dnl +dnl This program is distributed in the hope that it will be useful, +dnl but WITHOUT ANY WARRANTY; without even the implied warranty of +dnl MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +dnl GNU General Public License for more details. +dnl +dnl You should have received a copy of the GNU General Public License +dnl along with this program. If not, see . +dnl AT_BANNER([GLM procedure]) AT_SETUP([GLM latin square design]) @@ -57,8 +72,6 @@ glm y by b a c AT_CHECK([pspp -O format=csv latin.sps | sed 's/329.62[[678]]/329.62/'], [0], [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 @@ -110,8 +123,6 @@ glm points by Factor0 Factor1 AT_CHECK([pspp -O format=csv 2by2.sps ], [0], [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 @@ -209,8 +220,6 @@ glm dv by Agrp Bgrp AT_CHECK([pspp -O format=csv type1.sps], [0], [dnl -warning: GLM is experimental. Do not rely on these results. - Table: Tests of Between-Subjects Effects Source,Type I Sum of Squares,df,Mean Square,F,Sig. Corrected Model,216.017,7,30.860,5.046,.001 @@ -222,8 +231,6 @@ Error,183.457,30,6.115,, Total,3810.000,38,,, Corrected Total,399.474,37,,, -warning: GLM is experimental. Do not rely on these results. - Table: Tests of Between-Subjects Effects Source,Type I Sum of Squares,df,Mean Square,F,Sig. Corrected Model,216.017,7,30.860,5.046,.001 @@ -248,8 +255,6 @@ glm dv by Agrp Bgrp AT_CHECK([pspp -O format=csv type2.sps], [0], [dnl -warning: GLM is experimental. Do not rely on these results. - Table: Tests of Between-Subjects Effects Source,Type II Sum of Squares,df,Mean Square,F,Sig. Corrected Model,216.017,7,30.860,5.046,.001 @@ -317,8 +322,6 @@ GLM depvar by A AT_CHECK([pspp -O format=csv intercept-exclude.sps], [0], [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. Model,1636.826,2,818.413,43.556,.000 @@ -326,8 +329,6 @@ A,1636.826,2,818.413,43.556,.000 Error,338.216,18,18.790,, Total,1975.042,20,,, -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,98.568,1,98.568,5.246,.034 @@ -340,3 +341,131 @@ Corrected Total,436.784,19,,, AT_CLEANUP + +AT_SETUP([GLM missing values]) + +AT_DATA([glm.data], [dnl +1 1 6 3.5 +1 2 2 8.9 +1 3 3 9.6 +1 4 4 10.5 +1 5 5 3.1 +1 6 1 5.9 +2 1 2 4.2 +2 2 6 1.9 +2 3 5 3.7 +2 4 3 10.2 +2 5 1 7.2 +2 6 4 7.6 +3 1 1 6.7 +3 2 4 5.8 +3 3 6 -2.7 +3 4 2 4.6 +3 5 3 4.0 +3 6 5 -0.7 +4 1 4 6.6 +4 2 1 4.5 +4 3 2 3.7 +4 4 5 3.7 +4 5 6 -3.3 +4 6 3 3.0 +5 1 3 4.1 +5 2 5 2.4 +5 3 4 6.0 +5 4 1 5.1 +5 5 2 3.5 +5 6 6 4.0 +6 1 5 3.8 +6 2 3 5.8 +6 3 1 7.0 +6 4 6 3.8 +6 5 4 5.0 +6 6 2 8.6 +]) + +AT_DATA([glm-miss.sps], [dnl +set format = F20.3. +data list file='glm.data' notable fixed /a 1 b 3 c 5 y 7-10(2). + +do if a=6. +recode y (else=SYSMIS). +end if. + +glm y by b a c + /criteria=alpha(.05) + /design = a b c + . +]) + +AT_CHECK([pspp -O format=csv glm-miss.sps], [0], [dnl +Table: Tests of Between-Subjects Effects +Source,Type III Sum of Squares,df,Mean Square,F,Sig. +Corrected Model,251.621,14,17.973,4.969,.002 +Intercept,628.376,1,628.376,173.737,.000 +a,72.929,4,18.232,5.041,.009 +b,20.703,5,4.141,1.145,.380 +c,135.179,5,27.036,7.475,.001 +Error,54.253,15,3.617,, +Total,934.250,30,,, +Corrected Total,305.874,29,,, +]) + + + +AT_DATA([glm-miss2.sps], [dnl +set format = F20.3. +data list file='glm.data' notable fixed /a 1 b 3 c 5 y 7-10(2). + +select if a <> 6. + +glm y by b a c + /criteria=alpha(.05) + /design = a b c + . +]) + +AT_CHECK([pspp -O format=csv glm-miss2.sps], [0], [dnl +Table: Tests of Between-Subjects Effects +Source,Type III Sum of Squares,df,Mean Square,F,Sig. +Corrected Model,251.621,14,17.973,4.969,.002 +Intercept,628.376,1,628.376,173.737,.000 +a,72.929,4,18.232,5.041,.009 +b,20.703,5,4.141,1.145,.380 +c,135.179,5,27.036,7.475,.001 +Error,54.253,15,3.617,, +Total,934.250,30,,, +Corrected Total,305.874,29,,, +]) + + +dnl Now for some missing values in the factor variables. + +AT_DATA([glm-miss3.sps], [dnl +set format = F20.3. +data list file=glm.data notable fixed /a 1 b 3 c 5 y 7-10(2). + +do if a=6. +recode a (else=SYSMIS). +end if. + +glm y by b a c + /criteria=alpha(.05) + /design = a b c + . +]) + +AT_CHECK([pspp -O format=csv glm-miss3.sps], [0], [dnl +Table: Tests of Between-Subjects Effects +Source,Type III Sum of Squares,df,Mean Square,F,Sig. +Corrected Model,251.621,14,17.973,4.969,.002 +Intercept,628.376,1,628.376,173.737,.000 +a,72.929,4,18.232,5.041,.009 +b,20.703,5,4.141,1.145,.380 +c,135.179,5,27.036,7.475,.001 +Error,54.253,15,3.617,, +Total,934.250,30,,, +Corrected Total,305.874,29,,, +]) + +AT_CLEANUP +