1 dnl PSPP - a program for statistical analysis.
2 dnl Copyright (C) 2017 Free Software Foundation, Inc.
4 dnl This program is free software: you can redistribute it and/or modify
5 dnl it under the terms of the GNU General Public License as published by
6 dnl the Free Software Foundation, either version 3 of the License, or
7 dnl (at your option) any later version.
9 dnl This program is distributed in the hope that it will be useful,
10 dnl but WITHOUT ANY WARRANTY; without even the implied warranty of
11 dnl MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 dnl GNU General Public License for more details.
14 dnl You should have received a copy of the GNU General Public License
15 dnl along with this program. If not, see <http://www.gnu.org/licenses/>.
16 dnl AT_BANNER([AGGREGATE procedure])
18 dnl CHECK_AGGREGATE(OUTFILE, SORT, MISSING)
20 dnl Checks the AGGREGATE procedure with the specified combination of:
22 dnl - OUTFILE: One of "dataset", "active", or "external" according to
23 dnl where AGGREGATE's output should be directed.
25 dnl - SORT: Either "presorted" or "unsorted" according to whether
26 dnl AGGREGATE should received presorted input.
28 dnl - MISSING: Either "itemwise" or "columnwise" according to the basis
29 dnl on which missing values should be eliminated.
31 m4_define([CHECK_AGGREGATE], [
32 AT_SETUP([AGGREGATE $2 data to $1 file, $3 missing])
33 AT_DATA([aggregate.data],
47 AT_DATA([aggregate.sps],
48 [DATA LIST NOTABLE FILE='aggregate.data' /G N 1-2 S 3(a) W 4.
50 MISSING VALUES n(4) s('4').
51 m4_if([$1], [dataset], [DATASET DECLARE aggregate.])
52 m4_if([$2], [presorted], [SORT CASES BY g.])
54 m4_if([$1], [active], [OUTFILE=*],
55 [$1], [external], [OUTFILE='aggregate.sys'],
56 [outfile=aggregate]) dnl
57 m4_if([$2], [presorted], [/PRESORTED]) dnl
58 m4_if([$3], [columnwise], [/MISSING=COLUMNWISE])
68 /SFGT2I = fgt.(s, '2')
69 /NFIN23 = fin(n, 2, 3)
70 /NFIN23I = fin.(n, 2, 3)
71 /SFIN23 = fin(s, '2', '3')
72 /SFIN23I = fin.(s, '2', '3')
76 /SFLT2I = flt.(s, '2')
81 /NFOUT23 = fout(n, 3, 2)
82 /NFOUT23I = fout.(n, 3, 2)
83 /SFOUT23 = fout(s, '3', '2')
84 /SFOUT23I = fout.(s, '3', '2')
112 /NNUMISSI = numiss.(n)
114 /SNUMISSI = numiss.(s)
118 /SPGT2I = pgt.(s, '2')
119 /NPIN23 = pin(n, 2, 3)
120 /NPIN23I = pin.(n, 2, 3)
121 /SPIN23 = pin(s, '2', '3')
122 /SPIN23I = pin.(s, '2', '3')
126 /SPLT2I = plt.(s, '2')
127 /NPOUT23 = pout(n, 2, 3)
128 /NPOUT23I = pout.(n, 2, 3)
129 /SPOUT23 = pout(s, '2', '3')
130 /SPOUT23I = pout.(s, '2', '3')
132 /NMEDIANI = median.(n)
137 m4_if([$1], [external], [GET FILE='aggregate.sys'.],
138 [$1], [dataset], [DATASET ACTIVATE aggregate.])
141 AT_CHECK([pspp -O format=csv aggregate.sps], [0], [stdout])
142 AT_CHECK([[sed 's/^[^:]*:[0-9]*: //' < stdout]], [0],
143 [m4_if([$3], [itemwise],
144 [warning: AGGREGATE: The value arguments passed to the FOUT function are out-of-order. They will be treated as if they had been specified in the correct order.
146 warning: AGGREGATE: The value arguments passed to the FOUT function are out-of-order. They will be treated as if they had been specified in the correct order.
148 warning: AGGREGATE: The value arguments passed to the FOUT function are out-of-order. They will be treated as if they had been specified in the correct order.
150 warning: AGGREGATE: The value arguments passed to the FOUT function are out-of-order. They will be treated as if they had been specified in the correct order.
153 G,N,NI,NU,NUI,NFGT2,NFGT2I,SFGT2,SFGT2I,NFIN23,NFIN23I,SFIN23,SFIN23I,NFLT2,NFLT2I,SFLT2,SFLT2I,NFIRST,NFIRSTI,SFIRST,SFIRSTI,NFOUT23,NFOUT23I,SFOUT23,SFOUT23I,NLAST,NLASTI,SLAST,SLASTI,NMAX,NMAXI,SMAX,SMAXI,NMEAN,NMEANI,NMIN,NMINI,SMIN,SMINI,NN,NNI,SN,SNI,NNMISS,NNMISSI,SNMISS,SNMISSI,NNU,NNUI,SNU,SNUI,NNUMISS,NNUMISSI,SNUMISS,SNUMISSI,NPGT2,NPGT2I,SPGT2,SPGT2I,NPIN23,NPIN23I,SPIN23,SPIN23I,NPLT2,NPLT2I,SPLT2,SPLT2I,NPOUT23,NPOUT23I,SPOUT23,SPOUT23I,NMEDIAN,NMEDIANI,NSD,NSDI,NSUM,NSUMI
154 1,7.00,7.00,6,6,.333,.429,.333,.429,.333,.286,.333,.286,.500,.429,.500,.429,0,0,0,0,.667,.714,.667,.714,5,5,5,5,5,5,5,5,2.00,2.29,0,0,0,0,6.00,7.00,6.00,7.00,1.00,.00,1.00,.00,5,6,5,6,1,0,1,0,33.3,42.9,33.3,42.9,33.3,28.6,33.3,28.6,50.0,42.9,50.0,42.9,66.7,71.4,66.7,71.4,1.50,2.00,1.79,1.80,12.00,16.00
155 2,5.00,5.00,4,4,1.000,1.000,1.000,1.000,.000,.000,.000,.000,.000,.000,.000,.000,6,6,6,4,1.000,1.000,1.000,1.000,8,8,8,8,8,8,8,8,7.00,7.00,6,6,6,4,3.00,3.00,3.00,5.00,2.00,2.00,2.00,.00,3,3,3,4,1,1,1,0,100.0,100.0,100.0,100.0,.0,.0,.0,.0,.0,.0,.0,.0,100.0,100.0,100.0,100.0,7.00,7.00,1.00,1.00,21.00,21.00
156 3,2.00,2.00,1,1,.000,.000,.000,.000,.000,.000,.000,.000,1.000,1.000,1.000,1.000,1,1,1,1,1.000,1.000,1.000,1.000,1,1,1,1,1,1,1,1,1.00,1.00,1,1,1,1,2.00,2.00,2.00,2.00,.00,.00,.00,.00,1,1,1,1,0,0,0,0,.0,.0,.0,.0,.0,.0,.0,.0,100.0,100.0,100.0,100.0,100.0,100.0,100.0,100.0,1.00,1.00,.00,.00,2.00,2.00
157 4,1.00,1.00,1,1,. ,. ,. ,1.000,. ,. ,. ,.000,. ,. ,. ,.000,.,.,,4,. ,. ,. ,1.000,.,.,,4,.,.,,4,. ,. ,.,.,,4,.00,.00,.00,1.00,1.00,1.00,1.00,.00,0,0,0,1,1,1,1,0,. ,. ,. ,100.0,. ,. ,. ,.0,. ,. ,. ,.0,. ,. ,. ,100.0,NaN,NaN,. ,. ,. ,. @&t@
159 [warning: AGGREGATE: The value arguments passed to the FOUT function are out-of-order. They will be treated as if they had been specified in the correct order.
161 warning: AGGREGATE: The value arguments passed to the FOUT function are out-of-order. They will be treated as if they had been specified in the correct order.
163 warning: AGGREGATE: The value arguments passed to the FOUT function are out-of-order. They will be treated as if they had been specified in the correct order.
165 warning: AGGREGATE: The value arguments passed to the FOUT function are out-of-order. They will be treated as if they had been specified in the correct order.
168 G,N,NI,NU,NUI,NFGT2,NFGT2I,SFGT2,SFGT2I,NFIN23,NFIN23I,SFIN23,SFIN23I,NFLT2,NFLT2I,SFLT2,SFLT2I,NFIRST,NFIRSTI,SFIRST,SFIRSTI,NFOUT23,NFOUT23I,SFOUT23,SFOUT23I,NLAST,NLASTI,SLAST,SLASTI,NMAX,NMAXI,SMAX,SMAXI,NMEAN,NMEANI,NMIN,NMINI,SMIN,SMINI,NN,NNI,SN,SNI,NNMISS,NNMISSI,SNMISS,SNMISSI,NNU,NNUI,SNU,SNUI,NNUMISS,NNUMISSI,SNUMISS,SNUMISSI,NPGT2,NPGT2I,SPGT2,SPGT2I,NPIN23,NPIN23I,SPIN23,SPIN23I,NPLT2,NPLT2I,SPLT2,SPLT2I,NPOUT23,NPOUT23I,SPOUT23,SPOUT23I,NMEDIAN,NMEDIANI,NSD,NSDI,NSUM,NSUMI
169 1,7.00,7.00,6,6,. ,.429,. ,.429,. ,.286,. ,.286,. ,.429,. ,.429,.,0,,0,. ,.714,. ,.714,.,5,,5,.,5,,5,. ,2.29,.,0,,0,6.00,7.00,6.00,7.00,1.00,.00,1.00,.00,5,6,5,6,1,0,1,0,. ,42.9,. ,42.9,. ,28.6,. ,28.6,. ,42.9,. ,42.9,. ,71.4,. ,71.4,. ,2.00,. ,1.80,. ,16.00
170 2,5.00,5.00,4,4,. ,. ,. ,1.000,. ,. ,. ,.000,. ,. ,. ,.000,.,.,,4,. ,. ,. ,1.000,.,.,,8,.,.,,8,. ,. ,.,.,,4,3.00,3.00,3.00,5.00,2.00,2.00,2.00,.00,3,3,3,4,1,1,1,0,. ,. ,. ,100.0,. ,. ,. ,.0,. ,. ,. ,.0,. ,. ,. ,100.0,. ,. ,. ,. ,. ,. @&t@
171 3,2.00,2.00,1,1,.000,.000,.000,.000,.000,.000,.000,.000,1.000,1.000,1.000,1.000,1,1,1,1,1.000,1.000,1.000,1.000,1,1,1,1,1,1,1,1,1.00,1.00,1,1,1,1,2.00,2.00,2.00,2.00,.00,.00,.00,.00,1,1,1,1,0,0,0,0,.0,.0,.0,.0,.0,.0,.0,.0,100.0,100.0,100.0,100.0,100.0,100.0,100.0,100.0,1.00,1.00,.00,.00,2.00,2.00
172 4,1.00,1.00,1,1,. ,. ,. ,1.000,. ,. ,. ,.000,. ,. ,. ,.000,.,.,,4,. ,. ,. ,1.000,.,.,,4,.,.,,4,. ,. ,.,.,,4,.00,.00,.00,1.00,1.00,1.00,1.00,.00,0,0,0,1,1,1,1,0,. ,. ,. ,100.0,. ,. ,. ,.0,. ,. ,. ,.0,. ,. ,. ,100.0,. ,. ,. ,. ,. ,. @&t@
176 CHECK_AGGREGATE([dataset], [presorted], [itemwise])
177 CHECK_AGGREGATE([dataset], [presorted], [columnwise])
178 CHECK_AGGREGATE([dataset], [unsorted], [itemwise])
179 CHECK_AGGREGATE([dataset], [unsorted], [columnwise])
180 CHECK_AGGREGATE([active], [presorted], [itemwise])
181 CHECK_AGGREGATE([active], [presorted], [columnwise])
182 CHECK_AGGREGATE([active], [unsorted], [itemwise])
183 CHECK_AGGREGATE([active], [unsorted], [columnwise])
184 CHECK_AGGREGATE([external], [presorted], [itemwise])
185 CHECK_AGGREGATE([external], [presorted], [columnwise])
186 CHECK_AGGREGATE([external], [unsorted], [itemwise])
187 CHECK_AGGREGATE([external], [unsorted], [columnwise])
189 AT_SETUP([AGGREGATE crash with MAX function])
190 AT_DATA([aggregate.sps],
191 [DATA LIST LIST /X (F8.2) Y (a25).
199 AGGREGATE OUTFILE=* /BREAK=y /X=MAX(x).
202 AT_CHECK([pspp -O format=csv aggregate.sps], [0],
203 [Table: Reading free-form data from INLINE.
215 AT_SETUP([AGGREGATE crash with invalid syntax])
216 AT_DATA([aggregate.sps],
219 COMPUTE x=UNIFORM(10)
227 AT_CHECK([pspp -O format=csv aggregate.sps], [1], [ignore], [])
231 AT_SETUP([AGGREGATE mode=addvariables])
232 AT_DATA([addvariables.sps],
233 [data list notable list /x * cn * y *.
245 aggregate outfile=* mode=addvariables
249 /median = median (y).
254 AT_CHECK([pspp -O format=csv addvariables.sps], [0],
256 x,cn,y,sum,mean,median
257 1.00,1.00,2.00,2.00,2.00,2.00
258 3.00,2.00,3.00,7.00,3.50,3.50
259 3.00,3.00,4.00,7.00,3.50,3.50
260 5.00,4.00,6.00,6.00,6.00,6.00
261 7.00,5.00,8.00,37.00,12.33,9.00
262 7.00,6.00,9.00,37.00,12.33,9.00
263 7.00,7.00,20.00,37.00,12.33,9.00
264 9.00,8.00,11.00,11.00,11.00,11.00
270 AT_SETUP([AGGREGATE buggy duplicate variables])
271 dnl Test for a bug which crashed when duplicated
272 dnl variables were attempted.
273 AT_DATA([dup-variables.sps],
274 [DATA LIST NOTABLE LIST /x * .
291 AGGREGATE OUTFILE=* MODE=ADDVARIABLES
295 AGGREGATE OUTFILE=* MODE=ADDVARIABLES
300 AT_CHECK([pspp -O format=csv dup-variables.sps], [1],
301 ["dup-variables.sps:24: error: AGGREGATE: Variable name N_BREAK is not unique within the aggregate file dictionary, which contains the aggregate variables and the break variables."