Implemented the McNemar test. Closes bug #33242
[pspp-builds.git] / tests / language / stats / examine.at
1 AT_BANNER([EXAMINE])
2
3 AT_SETUP([EXAMINE])
4 AT_DATA([examine.sps], [
5 DATA LIST LIST /QUALITY * W * BRAND * .
6 BEGIN DATA
7 3  1  1
8 2  2  1
9 1  2  1
10 1  1  1
11 4  1  1
12 4  1  1
13 5  1  2
14 2  1  2
15 4  4  2
16 2  1  2
17 3  1  2
18 7  1  3
19 4  2  3
20 5  3  3
21 3  1  3
22 6  1  3
23 END DATA
24
25 WEIGHT BY w.
26
27 VARIABLE LABELS brand   'Manufacturer'.
28 VARIABLE LABELS quality 'Breaking Strain'.
29
30 VALUE LABELS /brand 1 'Aspeger' 2 'Bloggs' 3 'Charlies'.
31
32 LIST /FORMAT=NUMBERED.
33
34 EXAMINE
35         quality BY brand
36         /STATISTICS descriptives extreme(3)
37         .
38 ])
39 AT_CHECK([pspp -o pspp.csv examine.sps])
40 dnl In the following data, only the extreme values have been checked.
41 dnl The descriptives have been blindly pasted.
42 AT_CHECK([cat pspp.csv], [0], [dnl
43 Table: Reading free-form data from INLINE.
44 Variable,Format
45 QUALITY,F8.0
46 W,F8.0
47 BRAND,F8.0
48
49 Table: Data List
50 Case Number,QUALITY,W,BRAND
51 1,3.00,1.00,1.00
52 2,2.00,2.00,1.00
53 3,1.00,2.00,1.00
54 4,1.00,1.00,1.00
55 5,4.00,1.00,1.00
56 6,4.00,1.00,1.00
57 7,5.00,1.00,2.00
58 8,2.00,1.00,2.00
59 9,4.00,4.00,2.00
60 10,2.00,1.00,2.00
61 11,3.00,1.00,2.00
62 12,7.00,1.00,3.00
63 13,4.00,2.00,3.00
64 14,5.00,3.00,3.00
65 15,3.00,1.00,3.00
66 16,6.00,1.00,3.00
67
68 Table: Case Processing Summary
69 ,Cases,,,,,
70 ,Valid,,Missing,,Total,
71 ,N,Percent,N,Percent,N,Percent
72 Breaking Strain,24.00,100%,.00,0%,24.00,100%
73
74 Table: Extreme Values
75 ,,,Case Number,Value
76 Breaking Strain,Highest,1,12,7.00
77 ,,2,16,6.00
78 ,,3,7,5.00
79 ,Lowest,1,3,1.00
80 ,,2,3,1.00
81 ,,3,4,1.00
82
83 Table: Descriptives
84 ,,,Statistic,Std. Error
85 Breaking Strain,Mean,,3.54,.32
86 ,95% Confidence Interval for Mean,Lower Bound,2.87,
87 ,,Upper Bound,4.21,
88 ,5% Trimmed Mean,,3.50,
89 ,Median,,4.00,
90 ,Variance,,2.52,
91 ,Std. Deviation,,1.59,
92 ,Minimum,,1.00,
93 ,Maximum,,7.00,
94 ,Range,,6.00,
95 ,Interquartile Range,,2.75,
96 ,Skewness,,.06,.47
97 ,Kurtosis,,-.36,.92
98
99 Table: Case Processing Summary
100 ,,Cases,,,,,
101 ,,Valid,,Missing,,Total,
102 ,Manufacturer,N,Percent,N,Percent,N,Percent
103 Breaking Strain,Aspeger,8.00,100%,.00,0%,8.00,100%
104 ,Bloggs,8.00,100%,.00,0%,8.00,100%
105 ,Charlies,8.00,100%,.00,0%,8.00,100%
106
107 Table: Extreme Values
108 ,Manufacturer,,,Case Number,Value
109 Breaking Strain,Aspeger,Highest,1,5,4.00
110 ,,,2,6,4.00
111 ,,,3,1,3.00
112 ,,Lowest,1,3,1.00
113 ,,,2,3,1.00
114 ,,,3,4,1.00
115 ,Bloggs,Highest,1,7,5.00
116 ,,,2,9,4.00
117 ,,,3,9,4.00
118 ,,Lowest,1,8,2.00
119 ,,,2,10,2.00
120 ,,,3,11,3.00
121 ,Charlies,Highest,1,12,7.00
122 ,,,2,16,6.00
123 ,,,3,14,5.00
124 ,,Lowest,1,15,3.00
125 ,,,2,13,4.00
126 ,,,3,13,4.00
127
128 Table: Descriptives
129 ,Manufacturer,,,Statistic,Std. Error
130 Breaking Strain,Aspeger,Mean,,2.25,.45
131 ,,95% Confidence Interval for Mean,Lower Bound,1.18,
132 ,,,Upper Bound,3.32,
133 ,,5% Trimmed Mean,,2.22,
134 ,,Median,,2.00,
135 ,,Variance,,1.64,
136 ,,Std. Deviation,,1.28,
137 ,,Minimum,,1.00,
138 ,,Maximum,,4.00,
139 ,,Range,,3.00,
140 ,,Interquartile Range,,2.75,
141 ,,Skewness,,.47,.75
142 ,,Kurtosis,,-1.55,1.48
143 ,Bloggs,Mean,,3.50,.38
144 ,,95% Confidence Interval for Mean,Lower Bound,2.61,
145 ,,,Upper Bound,4.39,
146 ,,5% Trimmed Mean,,3.50,
147 ,,Median,,4.00,
148 ,,Variance,,1.14,
149 ,,Std. Deviation,,1.07,
150 ,,Minimum,,2.00,
151 ,,Maximum,,5.00,
152 ,,Range,,3.00,
153 ,,Interquartile Range,,1.75,
154 ,,Skewness,,-.47,.75
155 ,,Kurtosis,,-.83,1.48
156 ,Charlies,Mean,,4.88,.44
157 ,,95% Confidence Interval for Mean,Lower Bound,3.83,
158 ,,,Upper Bound,5.92,
159 ,,5% Trimmed Mean,,4.86,
160 ,,Median,,5.00,
161 ,,Variance,,1.55,
162 ,,Std. Deviation,,1.25,
163 ,,Minimum,,3.00,
164 ,,Maximum,,7.00,
165 ,,Range,,4.00,
166 ,,Interquartile Range,,1.75,
167 ,,Skewness,,.30,.75
168 ,,Kurtosis,,.15,1.48
169 ])
170 AT_CLEANUP
171
172 AT_SETUP([EXAMINE -- extremes])
173 AT_DATA([examine.sps], [dnl
174 data list free /V1 W
175 begin data.
176 1  1
177 2  1
178 3  2
179 3  1
180 4  1
181 5  1
182 6  1
183 7  1
184 8  1
185 9  1
186 10 1
187 11 1
188 12 1
189 13 1
190 14 1
191 15 1
192 16 1
193 17 1
194 18 2
195 19 1
196 20 1
197 end data.
198
199 weight by w.
200
201 examine v1 
202  /statistics=extreme(6)
203  .
204 ])
205 AT_CHECK([pspp -o pspp.csv examine.sps])
206 AT_CHECK([cat pspp.csv], [0], [dnl
207 Table: Case Processing Summary
208 ,Cases,,,,,
209 ,Valid,,Missing,,Total,
210 ,N,Percent,N,Percent,N,Percent
211 V1,23.00,100%,.00,0%,23.00,100%
212
213 Table: Extreme Values
214 ,,,Case Number,Value
215 V1,Highest,1,21,20.00
216 ,,2,20,19.00
217 ,,3,19,18.00
218 ,,4,19,18.00
219 ,,5,18,17.00
220 ,,6,17,16.00
221 ,Lowest,1,1,1.00
222 ,,2,2,2.00
223 ,,3,3,3.00
224 ,,4,3,3.00
225 ,,5,4,3.00
226 ,,6,5,4.00
227 ])
228 AT_CLEANUP
229
230 dnl Test the PERCENTILES subcommand of the EXAMINE command.
231 dnl In particular test that it behaves properly when there are only 
232 dnl a few cases.
233 AT_SETUP([EXAMINE -- percentiles])
234 AT_DATA([examine.sps], [dnl
235 DATA LIST LIST /X *.
236 BEGIN DATA.
237 2.00 
238 8.00 
239 5.00 
240 END DATA.
241
242 EXAMINE /x
243         /PERCENTILES=HAVERAGE.
244
245 EXAMINE /x
246         /PERCENTILES=WAVERAGE.
247
248 EXAMINE /x
249         /PERCENTILES=ROUND.
250
251 EXAMINE /x
252         /PERCENTILES=EMPIRICAL.
253
254 EXAMINE /x
255         /PERCENTILES=AEMPIRICAL.
256 ])
257 AT_CHECK([pspp -o pspp.csv examine.sps])
258 AT_CHECK([cat pspp.csv], [0], [dnl
259 Table: Reading free-form data from INLINE.
260 Variable,Format
261 X,F8.0
262
263 Table: Case Processing Summary
264 ,Cases,,,,,
265 ,Valid,,Missing,,Total,
266 ,N,Percent,N,Percent,N,Percent
267 X,3,100%,0,0%,3,100%
268
269 Table: Percentiles
270 ,,Percentiles,,,,,,
271 ,,5,10,25,50,75,90,95
272 X,HAverage,.40,.80,2.00,5.00,8.00,8.00,8.00
273 ,Tukey's Hinges,,,3.50,5.00,6.50,,
274
275 Table: Case Processing Summary
276 ,Cases,,,,,
277 ,Valid,,Missing,,Total,
278 ,N,Percent,N,Percent,N,Percent
279 X,3,100%,0,0%,3,100%
280
281 Table: Percentiles
282 ,,Percentiles,,,,,,
283 ,,5,10,25,50,75,90,95
284 X,Weighted Average,.30,.60,1.50,3.50,5.75,7.10,7.55
285 ,Tukey's Hinges,,,3.50,5.00,6.50,,
286
287 Table: Case Processing Summary
288 ,Cases,,,,,
289 ,Valid,,Missing,,Total,
290 ,N,Percent,N,Percent,N,Percent
291 X,3,100%,0,0%,3,100%
292
293 Table: Percentiles
294 ,,Percentiles,,,,,,
295 ,,5,10,25,50,75,90,95
296 X,Rounded,.00,.00,2.00,5.00,5.00,8.00,8.00
297 ,Tukey's Hinges,,,3.50,5.00,6.50,,
298
299 Table: Case Processing Summary
300 ,Cases,,,,,
301 ,Valid,,Missing,,Total,
302 ,N,Percent,N,Percent,N,Percent
303 X,3,100%,0,0%,3,100%
304
305 Table: Percentiles
306 ,,Percentiles,,,,,,
307 ,,5,10,25,50,75,90,95
308 X,Empirical,2.00,2.00,2.00,5.00,8.00,8.00,8.00
309 ,Tukey's Hinges,,,3.50,5.00,6.50,,
310
311 Table: Case Processing Summary
312 ,Cases,,,,,
313 ,Valid,,Missing,,Total,
314 ,N,Percent,N,Percent,N,Percent
315 X,3,100%,0,0%,3,100%
316
317 Table: Percentiles
318 ,,Percentiles,,,,,,
319 ,,5,10,25,50,75,90,95
320 X,Empirical with averaging,2.00,2.00,2.00,5.00,8.00,8.00,8.00
321 ,Tukey's Hinges,,,3.50,5.00,6.50,,
322 ])
323 AT_CLEANUP
324
325 AT_SETUP([EXAMINE -- missing values])
326 AT_DATA([examine.sps], [dnl
327 DATA LIST LIST /x * y *.
328 BEGIN DATA.
329 1   1 
330 2   1
331 3   1
332 4   1
333 5   2
334 6   2
335 .   2
336 END DATA
337
338 EXAMINE /x by y.
339 ])
340 AT_CHECK([pspp -o pspp.csv examine.sps])
341 AT_CHECK([cat pspp.csv], [0], [dnl
342 Table: Reading free-form data from INLINE.
343 Variable,Format
344 x,F8.0
345 y,F8.0
346
347 Table: Case Processing Summary
348 ,Cases,,,,,
349 ,Valid,,Missing,,Total,
350 ,N,Percent,N,Percent,N,Percent
351 x,6,85.7143%,1,14.2857%,7,100%
352
353 Table: Case Processing Summary
354 ,,Cases,,,,,
355 ,,Valid,,Missing,,Total,
356 ,y,N,Percent,N,Percent,N,Percent
357 x,1.00,4,100%,0,0%,4,100%
358 ,2.00,2,66.6667%,1,33.3333%,3,100%
359 ])
360 AT_CLEANUP
361
362 AT_SETUP([EXAMINE -- missing values and percentiles])
363 AT_DATA([examine.sps], [dnl
364 DATA LIST LIST /X *.
365 BEGIN DATA.
366 99
367 99
368 5.00
369 END DATA.
370
371 MISSING VALUE X (99).
372
373 EXAMINE /x
374         /PERCENTILES=HAVERAGE.
375 ])
376 AT_CHECK([pspp -o pspp.csv examine.sps])
377 dnl Ignore output -- this is just a no-crash check.
378 AT_CLEANUP
379
380 dnl Tests the trimmed mean calculation in the case
381 dnl where the data is weighted towards the centre.
382 AT_SETUP([EXAMINE -- trimmed mean])
383 AT_DATA([examine.sps], [dnl
384 DATA LIST LIST /X * C *.
385 BEGIN DATA.
386 1 1
387 2 49
388 3 2
389 END DATA.
390
391 WEIGHT BY c.
392
393 EXAMINE
394         x
395         /STATISTICS=DESCRIPTIVES
396         .
397 ])
398 AT_CHECK([pspp -o pspp.csv examine.sps])
399 AT_CHECK([cat pspp.csv], [0], [dnl
400 Table: Reading free-form data from INLINE.
401 Variable,Format
402 X,F8.0
403 C,F8.0
404
405 Table: Case Processing Summary
406 ,Cases,,,,,
407 ,Valid,,Missing,,Total,
408 ,N,Percent,N,Percent,N,Percent
409 X,52.00,100%,.00,0%,52.00,100%
410
411 Table: Descriptives
412 ,,,Statistic,Std. Error
413 X,Mean,,2.02,.03
414 ,95% Confidence Interval for Mean,Lower Bound,1.95,
415 ,,Upper Bound,2.09,
416 ,5% Trimmed Mean,,2.00,
417 ,Median,,2.00,
418 ,Variance,,.06,
419 ,Std. Deviation,,.24,
420 ,Minimum,,1.00,
421 ,Maximum,,3.00,
422 ,Range,,2.00,
423 ,Interquartile Range,,.00,
424 ,Skewness,,1.19,.33
425 ,Kurtosis,,15.73,.65
426 ])
427 AT_CLEANUP
428
429 AT_SETUP([EXAMINE -- crash bug])
430 AT_DATA([examine.sps], [dnl
431 data list list /a * x * y *.
432 begin data.
433 3 1 3
434 5 1 4
435 7 2 3
436 end data.
437
438 examine a by x by y
439         /statistics=DESCRIPTIVES
440         . 
441 ])
442 AT_CHECK([pspp -o pspp.csv examine.sps])
443 dnl Ignore output -- this is just a no-crash check.
444 AT_CLEANUP
445
446 dnl Test that two consecutive EXAMINE commands don't crash PSPP.
447 AT_SETUP([EXAMINE -- consecutive runs don't crash])
448 AT_DATA([examine.sps], [dnl
449 data list list /y * z *.
450 begin data.
451 6 4
452 5 3
453 7 6
454 end data.
455
456 EXAMINE /VARIABLES= z BY y.
457
458 EXAMINE /VARIABLES= z. 
459 ])
460 AT_CHECK([pspp -o pspp.csv examine.sps])
461 dnl Ignore output -- this is just a no-crash check.
462 AT_CLEANUP
463
464 dnl Test that /DESCRIPTIVES does not crash in presence of missing values.
465 AT_SETUP([EXAMINE -- missing values don't crash])
466 AT_DATA([examine.sps], [dnl
467 data list list /x * y *.
468 begin data.
469 1 0
470 2 0
471 . 0
472 3 1
473 4 1
474 end data.
475 examine x by y /statistics=descriptives. 
476 ])
477 AT_CHECK([pspp -o pspp.csv examine.sps])
478 dnl Ignore output -- this is just a no-crash check.
479 AT_CLEANUP
480
481 dnl Test that having only a single case doesn't crash.
482 AT_SETUP([EXAMINE -- single case doesn't crash])
483 AT_DATA([examine.sps], [dnl
484 DATA LIST LIST /quality * .
485 BEGIN DATA
486 3  
487 END DATA
488
489
490 EXAMINE
491         quality 
492         /STATISTICS descriptives 
493         .
494 ])
495 AT_CHECK([pspp -o pspp.csv examine.sps])
496 dnl Ignore output -- this is just a no-crash check.
497 AT_CLEANUP
498
499 dnl Test that all-missing data doesn't crash.
500 AT_SETUP([EXAMINE -- all-missing data doesn't crash])
501 AT_DATA([examine.sps], [dnl
502 DATA LIST LIST /x *.
503 BEGIN DATA.
504 .
505 .
506 .
507 .
508 END DATA.
509
510 EXAMINE /x PLOT=HISTOGRAM.
511 ])
512 AT_CHECK([pspp -o pspp.csv examine.sps], [0], [dnl
513 warning: Not creating plot because data set is empty.
514 ])
515 dnl Ignore output -- this is just a no-crash check.
516 AT_CLEANUP
517
518 dnl Test that big input doesn't crash (bug 11307).
519 AT_SETUP([EXAMINE -- big input doesn't crash])
520 AT_DATA([examine.sps], [dnl
521 INPUT PROGRAM.
522         LOOP #I=1 TO 50000.
523                 COMPUTE X=NORMAL(10).
524                 END CASE.
525         END LOOP.
526         END FILE.
527 END INPUT PROGRAM.
528
529
530 EXAMINE /x
531         /STATISTICS=DESCRIPTIVES.
532 ])
533 AT_CHECK([pspp -o pspp.csv examine.sps])
534 dnl Ignore output -- this is just a no-crash check.
535 AT_CLEANUP
536
537 dnl Another test that big input doesn't crash.
538 dnl The actual bug that this checks for has been lost.
539 AT_SETUP([EXAMINE -- big input doesn't crash 2])
540 AT_DATA([make-big-input.pl], 
541   [for ($i=0; $i<100000; $i++) { print "AB12\n" };
542    for ($i=0; $i<100000; $i++) { print "AB04\n" };
543 ])
544 AT_CHECK([$PERL make-big-input.pl > large.txt])
545 AT_DATA([examine.sps], [dnl
546 DATA LIST FILE='large.txt' /S 1-2 (A) X 3 .
547
548
549 AGGREGATE OUTFILE=* /BREAK=X /A=N.
550
551
552 EXAMINE /A BY /X.
553 ])
554 AT_CHECK([pspp -o pspp.csv examine.sps])
555 dnl Ignore output -- this is just a no-crash check.
556 AT_DATA([more-big-input.pl], 
557   [for ($i=0; $i<25000; $i++) { print "AB04\nAB12\n" };
558 ])
559 AT_CHECK([$PERL more-big-input.pl >> large.txt])
560 AT_CHECK([pspp -o pspp.csv examine.sps])
561 dnl Ignore output -- this is just a no-crash check.
562 AT_CLEANUP