DEBUG XFORM FAIL: Issue an error message as part of transformation.
[pspp-builds.git] / tests / language / stats / rank.at
1 AT_BANNER([RANK])
2
3 AT_SETUP([RANK simple case with defaults])
4 AT_DATA([rank.sps], [dnl
5 DATA LIST LIST NOTABLE /x (f8).
6 BEGIN DATA.
7 -1
8
9
10
11
12
13
14 END DATA.
15
16 RANK x.
17
18 LIST.
19 ])
20 AT_CHECK([pspp -o pspp.csv rank.sps])
21 AT_CHECK([cat pspp.csv], [0], [dnl
22 Variables Created By RANK
23
24
25
26 x into Rx(RANK of x)
27
28 Table: Data List
29 x,Rx
30 -1,1.000
31 0,2.000
32 1,3.000
33 2,4.500
34 2,4.500
35 4,6.000
36 5,7.000
37 ])
38 AT_CLEANUP
39
40 AT_SETUP([RANK with RANK, RFRACTION, N])
41 AT_DATA([rank.sps], [dnl
42 DATA LIST LIST NOTABLE /a * b *.
43 BEGIN DATA.
44 0 24
45 1 32
46 2 31
47 2 32
48 4 30
49 5 29
50 6 1
51 7 43
52 8 .
53 9 45
54 END DATA.
55
56 RANK a b (D)
57    /PRINT=YES 
58    /RANK
59    /TIES=HIGH
60    /RFRACTION
61    /N INTO count
62    .
63
64 DISPLAY DICTIONARY.
65
66 LIST.
67 ])
68 AT_CHECK([pspp -o pspp.csv rank.sps])
69 AT_CHECK([cat pspp.csv], [0], [dnl
70 Variables Created By RANK
71
72
73
74 a into Ra(RANK of a)
75
76 b into Rb(RANK of b)
77
78 a into RFR001(RFRACTION of a)
79
80 b into RFR002(RFRACTION of b)
81
82 a into count(N of a)
83
84 b into Nb(N of b)
85
86 Variable,Description,,Position
87 a,Format: F8.2,,1
88 ,Measure: Scale,,
89 ,Display Alignment: Right,,
90 ,Display Width: 8,,
91 b,Format: F8.2,,2
92 ,Measure: Scale,,
93 ,Display Alignment: Right,,
94 ,Display Width: 8,,
95 count,N of a,,3
96 ,Format: F6.0,,
97 ,Measure: Scale,,
98 ,Display Alignment: Right,,
99 ,Display Width: 8,,
100 Ra,RANK of a,,4
101 ,Format: F9.3,,
102 ,Measure: Scale,,
103 ,Display Alignment: Right,,
104 ,Display Width: 8,,
105 Rb,RANK of b,,5
106 ,Format: F9.3,,
107 ,Measure: Scale,,
108 ,Display Alignment: Right,,
109 ,Display Width: 8,,
110 RFR001,RFRACTION of a,,6
111 ,Format: F6.4,,
112 ,Measure: Scale,,
113 ,Display Alignment: Right,,
114 ,Display Width: 8,,
115 RFR002,RFRACTION of b,,7
116 ,Format: F6.4,,
117 ,Measure: Scale,,
118 ,Display Alignment: Right,,
119 ,Display Width: 8,,
120 Nb,N of b,,8
121 ,Format: F6.0,,
122 ,Measure: Scale,,
123 ,Display Alignment: Right,,
124 ,Display Width: 8,,
125
126 Table: Data List
127 a,b,count,Ra,Rb,RFR001,RFR002,Nb
128 .00,24.00,10,10.000,8.000,1.0000,.8889,9
129 1.00,32.00,10,9.000,4.000,.9000,.4444,9
130 2.00,31.00,10,8.000,5.000,.8000,.5556,9
131 2.00,32.00,10,8.000,4.000,.8000,.4444,9
132 4.00,30.00,10,6.000,6.000,.6000,.6667,9
133 5.00,29.00,10,5.000,7.000,.5000,.7778,9
134 6.00,1.00,10,4.000,9.000,.4000,1.0000,9
135 7.00,43.00,10,3.000,2.000,.3000,.2222,9
136 8.00,.  ,10,2.000,.   ,.2000,.    ,.
137 9.00,45.00,10,1.000,1.000,.1000,.1111,9
138 ])
139 AT_CLEANUP
140
141 AT_SETUP([RANK with SAVAGE, PERCENT, PROPORTION, NTILES])
142 AT_DATA([rank.sps], [dnl
143 DATA LIST LIST NOTABLE /a * b *.
144 BEGIN DATA.
145 0 24
146 1 32
147 2 31
148 2 32
149 4 30
150 5 29
151 6 1
152 7 43
153 8 8 
154 9 45
155 END DATA.
156
157 RANK a
158   /PRINT=YES
159   /TIES=CONDENSE
160   /SAVAGE
161   /PERCENT
162   /PROPORTION
163   /NTILES(4)
164   /NORMAL
165 .
166
167 LIST.
168 ])
169 AT_CHECK([pspp -o pspp.csv rank.sps])
170 AT_CHECK([cat pspp.csv], [0], [dnl
171 Variables Created By RANK
172
173
174
175 a into Sa(SAVAGE of a)
176
177 a into Pa(PERCENT of a)
178
179 a into PRO001(PROPORTION of a using BLOM)
180
181 a into Na(NTILES of a)
182
183 a into NOR001(NORMAL of a using BLOM)
184
185 Table: Data List
186 a,b,Sa,Pa,PRO001,Na,NOR001
187 .00,24.00,-.9000,10.00,.0610,1,-1.547
188 1.00,32.00,-.7889,20.00,.1585,1,-1.000
189 2.00,31.00,-.5925,30.00,.2561,2,-.6554
190 2.00,32.00,-.5925,30.00,.2561,2,-.6554
191 4.00,30.00,-.3544,40.00,.3537,2,-.3755
192 5.00,29.00,-.1544,50.00,.4512,2,-.1226
193 6.00,1.00,.0956,60.00,.5488,3,.1226
194 7.00,43.00,.4290,70.00,.6463,3,.3755
195 8.00,8.00,.9290,80.00,.7439,3,.6554
196 9.00,45.00,1.9290,90.00,.8415,4,1.0005
197 ])
198 AT_CLEANUP
199
200 AT_SETUP([RANK with SPLIT FILE])
201 AT_DATA([rank.sps], [dnl
202 DATA LIST LIST NOTABLE /a * g1 g2 *.
203 BEGIN DATA.
204 2 1 2
205 2 1 2
206 3 1 2
207 4 1 2
208 5 1 2
209 1 0 2
210 2 0 2
211 3 0 2
212 4 0 2
213 5 0 2
214 6 0 2
215 7 0 2
216 8 0 2
217 6 1 2
218 7 1 2
219 7 1 2
220 8 1 2
221 9 1 1
222 END DATA.
223
224 RANK a (D) BY g2 g1
225   /PRINT=YES
226   /TIES=LOW
227   /MISSING=INCLUDE
228   /FRACTION=RANKIT
229   /RANK
230   /NORMAL
231   .
232
233 SPLIT FILE BY g1.
234
235 RANK a (D) BY g2
236   /PRINT=YES
237   /TIES=LOW
238   /MISSING=INCLUDE
239   /FRACTION=RANKIT
240   /RANK
241   /NORMAL
242   .
243
244 SPLIT FILE OFF.
245
246 LIST.
247 ])
248 AT_CHECK([pspp -o pspp.csv rank.sps])
249 AT_CHECK([cat pspp.csv], [0], [dnl
250 Variables Created By RANK
251
252
253
254 a into Ra(RANK of a BY g2 g1)
255
256 a into Na(NORMAL of a using RANKIT BY g2 g1)
257
258 Variables Created By RANK
259
260
261
262 a into RAN001(RANK of a BY g2)
263
264 a into NOR001(NORMAL of a using RANKIT BY g2)
265
266 Table: Data List
267 a,g1,g2,Ra,Na,RAN001,NOR001
268 2.00,1.00,2.00,8.000,.9674,4.000,.5244
269 2.00,1.00,2.00,8.000,.9674,4.000,.5244
270 3.00,1.00,2.00,7.000,.5895,3.000,.0000
271 4.00,1.00,2.00,6.000,.2822,2.000,-.5244
272 5.00,1.00,2.00,5.000,.0000,1.000,-1.282
273 1.00,.00,2.00,8.000,1.5341,8.000,1.5341
274 2.00,.00,2.00,7.000,.8871,7.000,.8871
275 3.00,.00,2.00,6.000,.4888,6.000,.4888
276 4.00,.00,2.00,5.000,.1573,5.000,.1573
277 5.00,.00,2.00,4.000,-.1573,4.000,-.1573
278 6.00,.00,2.00,3.000,-.4888,3.000,-.4888
279 7.00,.00,2.00,2.000,-.8871,2.000,-.8871
280 8.00,.00,2.00,1.000,-1.534,1.000,-1.534
281 6.00,1.00,2.00,4.000,-.2822,4.000,1.1503
282 7.00,1.00,2.00,2.000,-.9674,2.000,-.3186
283 7.00,1.00,2.00,2.000,-.9674,2.000,-.3186
284 8.00,1.00,2.00,1.000,-1.593,1.000,-1.150
285 9.00,1.00,1.00,1.000,.0000,1.000,.0000
286 ])
287 AT_CLEANUP
288
289 # Also tests small ranks for special case of SAVAGE ranks.
290 AT_SETUP([RANK with fractional ranks]) 
291 AT_DATA([rank.sps], [dnl
292 DATA LIST LIST NOTABLE  /a *  w * .
293 BEGIN DATA.
294 1 1.5
295 2 0.2
296 3 0.1
297 4 1
298 5 1
299 6 1
300 7 1
301 8 1
302 END DATA.
303
304 WEIGHT BY w.
305
306 RANK a 
307   /FRACTION=TUKEY
308   /PROPORTION
309   /SAVAGE
310 .
311
312 LIST.
313 ])
314 AT_CHECK([pspp -o pspp.csv rank.sps])
315 AT_CHECK([cat pspp.csv], [0], [dnl
316 Variables Created By RANK
317
318
319
320 a into Pa(PROPORTION of a using TUKEY)
321
322 a into Sa(SAVAGE of a)
323
324 Table: Data List
325 a,w,Pa,Sa
326 1.00,1.50,.1285,-.8016
327 2.00,.20,.1776,-.6905
328 3.00,.10,.1986,-.6905
329 4.00,1.00,.3458,-.5305
330 5.00,1.00,.4860,-.2905
331 6.00,1.00,.6262,.0262
332 7.00,1.00,.7664,.4929
333 8.00,1.00,.9065,1.3929
334 ])
335 AT_CLEANUP
336
337 AT_SETUP([RANK all-ties due to tiny weights])
338 AT_DATA([rank.sps], [dnl
339 DATA LIST LIST NOTABLE /x * w *.
340 BEGIN DATA.
341 1 0.1
342 2 0.1
343 3 0.1
344 4 0.2
345 5 0.1
346 6 0.1
347 7 0.1
348 8 0.1
349 END DATA.
350
351 WEIGHT BY w.
352
353 RANK x
354  /TIES=low
355  /RANK into xl.
356
357
358 RANK x
359  /TIES=high
360  /RANK into xh.
361
362 RANK x
363  /TIES=condense
364  /RANK into xc.
365
366
367 * Test VW fraction
368
369 RANK x
370  /FRACTION=VW
371  /NORMAL.
372
373 LIST.
374 ])
375 AT_CHECK([pspp -o pspp.csv rank.sps])
376 AT_CHECK([cat pspp.csv], [0], [dnl
377 Variables Created By RANK
378
379
380
381 x into xl(RANK of x)
382
383 Variables Created By RANK
384
385
386
387 x into xh(RANK of x)
388
389 Variables Created By RANK
390
391
392
393 x into xc(RANK of x)
394
395 Variables Created By RANK
396
397
398
399 x into Nx(NORMAL of x using VW)
400
401 Table: Data List
402 x,w,xl,xh,xc,Nx
403 1.00,.10,.000,.100,1.000,-1.938
404 2.00,.10,.100,.200,2.000,-1.412
405 3.00,.10,.200,.300,3.000,-1.119
406 4.00,.20,.300,.500,4.000,-.8046
407 5.00,.10,.500,.600,5.000,-.5549
408 6.00,.10,.600,.700,6.000,-.4067
409 7.00,.10,.700,.800,7.000,-.2670
410 8.00,.10,.800,.900,8.000,-.1323
411 ])
412 AT_CLEANUP
413
414 AT_SETUP([RANK variable name fallback])
415 AT_DATA([rank.sps], [dnl
416 DATA LIST LIST NOTABLE /foo * rfoo * ran003 *.
417 BEGIN DATA.
418 0 3 2
419 1 3 2
420 2 3 2
421 2 3 2
422 4 3 2
423 5 3 2
424 6 3 2
425 7 3 2
426 8 3 2
427 9 3 2
428 END DATA.
429
430 RANK foo.
431
432
433 DISPLAY DICTIONARY.
434 ])
435 AT_CHECK([pspp -o pspp.csv rank.sps])
436 AT_CHECK([cat pspp.csv], [0], [dnl
437 Variables Created By RANK
438
439
440
441 foo into RAN001(RANK of foo)
442
443 Variable,Description,,Position
444 foo,Format: F8.2,,1
445 ,Measure: Scale,,
446 ,Display Alignment: Right,,
447 ,Display Width: 8,,
448 rfoo,Format: F8.2,,2
449 ,Measure: Scale,,
450 ,Display Alignment: Right,,
451 ,Display Width: 8,,
452 ran003,Format: F8.2,,3
453 ,Measure: Scale,,
454 ,Display Alignment: Right,,
455 ,Display Width: 8,,
456 RAN001,RANK of foo,,4
457 ,Format: F9.3,,
458 ,Measure: Scale,,
459 ,Display Alignment: Right,,
460 ,Display Width: 8,,
461 ])
462 AT_CLEANUP
463
464 AT_SETUP([RANK robust variable name creation])
465 AT_DATA([rank.sps], [dnl
466 DATA LIST LIST notable /x * rx * ran001 TO ran999.
467 BEGIN DATA.
468 1
469 2
470 3
471 4
472 5
473 6
474 7
475 END DATA.
476
477 RANK x.
478
479 DELETE VAR ran001 TO ran999.
480
481 LIST.
482 ])
483 AT_CHECK([pspp -O format=csv rank.sps], [0], [dnl
484 "rank.sps:3: warning: BEGIN DATA: Missing value(s) for all variables from rx onward.  These will be filled with the system-missing value or blanks, as appropriate."
485
486 "rank.sps:4: warning: BEGIN DATA: Missing value(s) for all variables from rx onward.  These will be filled with the system-missing value or blanks, as appropriate."
487
488 "rank.sps:5: warning: BEGIN DATA: Missing value(s) for all variables from rx onward.  These will be filled with the system-missing value or blanks, as appropriate."
489
490 "rank.sps:6: warning: BEGIN DATA: Missing value(s) for all variables from rx onward.  These will be filled with the system-missing value or blanks, as appropriate."
491
492 "rank.sps:7: warning: BEGIN DATA: Missing value(s) for all variables from rx onward.  These will be filled with the system-missing value or blanks, as appropriate."
493
494 "rank.sps:8: warning: BEGIN DATA: Missing value(s) for all variables from rx onward.  These will be filled with the system-missing value or blanks, as appropriate."
495
496 "rank.sps:9: warning: BEGIN DATA: Missing value(s) for all variables from rx onward.  These will be filled with the system-missing value or blanks, as appropriate."
497
498 Variables Created By RANK
499
500
501
502 x into RNKRA01(RANK of x)
503
504 Table: Data List
505 x,rx,RNKRA01
506 1.00,.  ,1.000
507 2.00,.  ,2.000
508 3.00,.  ,3.000
509 4.00,.  ,4.000
510 5.00,.  ,5.000
511 6.00,.  ,6.000
512 7.00,.  ,7.000
513 ])
514 AT_CLEANUP
515
516 dnl Test for proper behaviour in the face of invalid input.
517 AT_SETUP([RANK handling of invalid input])
518 AT_DATA([rank.sps], [dnl
519 DATA LIST LIST NOTABLE /x * a (a2).
520 BEGIN DATA.
521 -1 s
522 0  s
523 1  s
524 2  s
525 2  s
526 4  s
527 5  s
528 END DATA.
529
530 DEBUG XFORM FAIL.
531
532 RANK x.
533 ])
534 AT_CHECK([pspp -O format=csv --testing-mode rank.sps], [1], [dnl
535 Variables Created By RANK
536
537
538
539 x into Rx(RANK of x)
540
541 rank.sps:14: error: RANK: DEBUG XFORM FAIL transformation executed
542
543 rank.sps:14: error: Stopping syntax file processing here to avoid a cascade of dependent command failures.
544 ])
545 AT_CLEANUP
546
547 AT_SETUP([RANK handling of invalid syntax])
548 AT_DATA([rank.sps], [dnl
549 DATA LIST LIST NOTABLE /x * a (a2).
550 BEGIN DATA.
551 -1 s
552 0  s
553 1  s
554 2  s
555 2  s
556 4  s
557 5  s
558 END DATA.
559
560 * invalid NTILES (no parameter)
561 RANK x 
562   /NTILES
563 .
564
565 * invalid NTILES (not an integer)
566 RANK x 
567   /NTILES(d)
568 .
569
570
571 * destination variable already exists
572 RANK x 
573  /RANK INTO x.
574
575
576 * Too many variables in INTO
577 RANK x 
578  /RANK INTO foo  bar wiz.
579 ])
580 AT_CHECK([pspp -O format=csv rank.sps], [1], [dnl
581 rank.sps:15: error: RANK: Syntax error at end of command: expecting `@{:@'.
582
583 rank.sps:19: error: RANK: Syntax error at `d': expecting integer.
584
585 rank.sps:25: error: RANK: Variable x already exists.
586
587 rank.sps:30: error: RANK: Too many variables in INTO clause.
588 ])
589 AT_CLEANUP