From: Ben Pfaff Date: Mon, 27 Dec 2021 00:01:47 +0000 (-0800) Subject: Implement CTABLES procedure. X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?p=pspp;a=commitdiff_plain;h=refs%2Fheads%2Fctables17 Implement CTABLES procedure. --- diff --git a/NEWS b/NEWS index 7f288ded91..1dbb673689 100644 --- a/NEWS +++ b/NEWS @@ -7,6 +7,8 @@ Please send PSPP bug reports to bug-gnu-pspp@gnu.org. Changes after 1.6.2: + * The CTABLES command is now implemented. + * FREQUENCIES now honors the LAYERED setting on SPLIT FILE. * Building from a Git repository, which previously required GIMP, now diff --git a/doc/automake.mk b/doc/automake.mk index 83209001d1..e80d5c5043 100644 --- a/doc/automake.mk +++ b/doc/automake.mk @@ -117,6 +117,42 @@ FIGURE_SYNTAX = \ doc/pspp-figures/chisquare.sps \ doc/pspp-figures/compute.sps \ doc/pspp-figures/count.sps \ + doc/pspp-figures/ctables1.sps \ + doc/pspp-figures/ctables2.sps \ + doc/pspp-figures/ctables3.sps \ + doc/pspp-figures/ctables4.sps \ + doc/pspp-figures/ctables5.sps \ + doc/pspp-figures/ctables6.sps \ + doc/pspp-figures/ctables7.sps \ + doc/pspp-figures/ctables8.sps \ + doc/pspp-figures/ctables9.sps \ + doc/pspp-figures/ctables10.sps \ + doc/pspp-figures/ctables11.sps \ + doc/pspp-figures/ctables12.sps \ + doc/pspp-figures/ctables13.sps \ + doc/pspp-figures/ctables14.sps \ + doc/pspp-figures/ctables15.sps \ + doc/pspp-figures/ctables16.sps \ + doc/pspp-figures/ctables17.sps \ + doc/pspp-figures/ctables18.sps \ + doc/pspp-figures/ctables19.sps \ + doc/pspp-figures/ctables20.sps \ + doc/pspp-figures/ctables21.sps \ + doc/pspp-figures/ctables22.sps \ + doc/pspp-figures/ctables23.sps \ + doc/pspp-figures/ctables24.sps \ + doc/pspp-figures/ctables25.sps \ + doc/pspp-figures/ctables26.sps \ + doc/pspp-figures/ctables27.sps \ + doc/pspp-figures/ctables28.sps \ + doc/pspp-figures/ctables29.sps \ + doc/pspp-figures/ctables30.sps \ + doc/pspp-figures/ctables31.sps \ + doc/pspp-figures/ctables32.sps \ + doc/pspp-figures/ctables33.sps \ + doc/pspp-figures/ctables34.sps \ + doc/pspp-figures/ctables35.sps \ + doc/pspp-figures/ctables36.sps \ doc/pspp-figures/crosstabs.sps \ doc/pspp-figures/descriptives.sps \ doc/pspp-figures/flip.sps \ @@ -246,6 +282,13 @@ EXTRA_DIST += doc/tutorial.stt .spv.html: $(convert) -O format=html -O bare=true +# Make sure that tutorial.stt outputs all layers, because a few of the +# examples in the manual rely on that and it would be easy to replace +# it with a style that didn't. +ALL_LOCAL += tutorial-stt-must-print-all-layers +tutorial-stt-must-print-all-layers: + $(AM_V_GEN)grep 'printAllLayers="true"' $(srcdir)/doc/tutorial.stt >/dev/null 2>&1 && touch $@ + # Convert a text file into a Texinfo file. .txt.texi: $(AM_V_GEN)$(SED) -e 's/@/@@/g' $< > $@ diff --git a/doc/pspp-figures/ctables1.sps b/doc/pspp-figures/ctables1.sps new file mode 100644 index 0000000000..ca6431a837 --- /dev/null +++ b/doc/pspp-figures/ctables1.sps @@ -0,0 +1,2 @@ +GET FILE='nhtsa.sav'. +CTABLES /TABLE=AgeGroup. diff --git a/doc/pspp-figures/ctables10.sps b/doc/pspp-figures/ctables10.sps new file mode 100644 index 0000000000..8adb5ff336 --- /dev/null +++ b/doc/pspp-figures/ctables10.sps @@ -0,0 +1,4 @@ +GET FILE='nhtsa.sav'. +CTABLES + /TABLE=qnd1 [MEAN, MEDIAN] BY qns3a + /TABLE=AgeGroup [COLPCT, ROWPCT] BY qns3a. diff --git a/doc/pspp-figures/ctables11.sps b/doc/pspp-figures/ctables11.sps new file mode 100644 index 0000000000..d2e064c4cb --- /dev/null +++ b/doc/pspp-figures/ctables11.sps @@ -0,0 +1,4 @@ +GET FILE='nhtsa.sav'. +CTABLES /TABLE=AgeGroup [COLPCT 'Gender %' PCT5.0, + ROWPCT 'Age Group %' PCT5.0] + BY qns3a. diff --git a/doc/pspp-figures/ctables12.sps b/doc/pspp-figures/ctables12.sps new file mode 100644 index 0000000000..0ec07bb344 --- /dev/null +++ b/doc/pspp-figures/ctables12.sps @@ -0,0 +1,2 @@ +GET FILE='nhtsa.sav'. +CTABLES /TABLE=(AgeGroup + qns1)[COLPCT] BY qns3a. diff --git a/doc/pspp-figures/ctables13.sps b/doc/pspp-figures/ctables13.sps new file mode 100644 index 0000000000..723dbeda31 --- /dev/null +++ b/doc/pspp-figures/ctables13.sps @@ -0,0 +1,2 @@ +GET FILE='nhtsa.sav'. +CTABLES /TABLE=qnd1 [MEAN, MEDIAN] BY qns3a. diff --git a/doc/pspp-figures/ctables14.sps b/doc/pspp-figures/ctables14.sps new file mode 100644 index 0000000000..168d237f17 --- /dev/null +++ b/doc/pspp-figures/ctables14.sps @@ -0,0 +1,2 @@ +GET FILE='nhtsa.sav'. +CTABLES /TABLE=qnd1 [MEAN, MEDIAN] BY qns3a /SLABELS POSITION=ROW. diff --git a/doc/pspp-figures/ctables15.sps b/doc/pspp-figures/ctables15.sps new file mode 100644 index 0000000000..c8b86f7162 --- /dev/null +++ b/doc/pspp-figures/ctables15.sps @@ -0,0 +1,2 @@ +GET FILE='nhtsa.sav'. +CTABLES /TABLE=AgeGroup [TABLEPCT] /SLABELS VISIBLE=NO. diff --git a/doc/pspp-figures/ctables16.sps b/doc/pspp-figures/ctables16.sps new file mode 100644 index 0000000000..5812acef97 --- /dev/null +++ b/doc/pspp-figures/ctables16.sps @@ -0,0 +1,2 @@ +GET FILE='nhtsa.sav'. +CTABLES /TABLE AgeGroup BY qns3a. diff --git a/doc/pspp-figures/ctables17.sps b/doc/pspp-figures/ctables17.sps new file mode 100644 index 0000000000..ffeabf56b9 --- /dev/null +++ b/doc/pspp-figures/ctables17.sps @@ -0,0 +1,3 @@ +GET FILE='nhtsa.sav'. +CTABLES /TABLE AgeGroup BY qns3a /CLABELS ROWLABELS=OPPOSITE. +CTABLES /TABLE AgeGroup BY qns3a /CLABELS COLLABELS=OPPOSITE. diff --git a/doc/pspp-figures/ctables18.sps b/doc/pspp-figures/ctables18.sps new file mode 100644 index 0000000000..847aeada07 --- /dev/null +++ b/doc/pspp-figures/ctables18.sps @@ -0,0 +1,9 @@ +DATA LIST LIST NOTABLE/x (F8.0) y z (F8.2). +BEGIN DATA. +1 . 40 +1 10 50 +1 20 60 +1 30 . +END DATA. +VARIABLE LEVEL x (NOMINAL). +LIST. diff --git a/doc/pspp-figures/ctables19.sps b/doc/pspp-figures/ctables19.sps new file mode 100644 index 0000000000..ee9187af8f --- /dev/null +++ b/doc/pspp-figures/ctables19.sps @@ -0,0 +1,9 @@ +DATA LIST LIST NOTABLE/x (F8.0) y z (F8.2). +BEGIN DATA. +1 . 40 +1 10 50 +1 20 60 +1 30 . +END DATA. +VARIABLE LEVEL x (NOMINAL). +CTABLES /TABLE (y + z) > x. diff --git a/doc/pspp-figures/ctables2.sps b/doc/pspp-figures/ctables2.sps new file mode 100644 index 0000000000..bc4dbbe80d --- /dev/null +++ b/doc/pspp-figures/ctables2.sps @@ -0,0 +1,2 @@ +GET FILE='nhtsa.sav'. +CTABLES /TABLE=AgeGroup BY qns3a. diff --git a/doc/pspp-figures/ctables20.sps b/doc/pspp-figures/ctables20.sps new file mode 100644 index 0000000000..dc76dd41bf --- /dev/null +++ b/doc/pspp-figures/ctables20.sps @@ -0,0 +1,9 @@ +DATA LIST LIST NOTABLE/x (F8.0) y z (F8.2). +BEGIN DATA. +1 . 40 +1 10 50 +1 20 60 +1 30 . +END DATA. +VARIABLE LEVEL x (NOMINAL). +CTABLES /SMISSING LISTWISE /TABLE (y + z) > x. diff --git a/doc/pspp-figures/ctables21.sps b/doc/pspp-figures/ctables21.sps new file mode 100644 index 0000000000..c5396fa158 --- /dev/null +++ b/doc/pspp-figures/ctables21.sps @@ -0,0 +1,9 @@ +DATA LIST LIST NOTABLE/x (F8.0) y z (F8.2). +BEGIN DATA. +1 . 40 +1 10 50 +1 20 60 +1 30 . +END DATA. +VARIABLE LEVEL x (NOMINAL). +CTABLES /SMISSING LISTWISE /TABLE (y > x) + (z > x). diff --git a/doc/pspp-figures/ctables22.sps b/doc/pspp-figures/ctables22.sps new file mode 100644 index 0000000000..205814c3d7 --- /dev/null +++ b/doc/pspp-figures/ctables22.sps @@ -0,0 +1,5 @@ +GET FILE='nhtsa.sav'. +CTABLES + /VLABELS VARIABLES=ALL DISPLAY=NAME + /TABLE qn61 > qn57 BY qnd7a > qn86 + qn64b BY qns3a[TABLEID, LAYERID, SUBTABLEID] + /SLABELS POSITION=ROW. diff --git a/doc/pspp-figures/ctables23.sps b/doc/pspp-figures/ctables23.sps new file mode 100644 index 0000000000..df37390d46 --- /dev/null +++ b/doc/pspp-figures/ctables23.sps @@ -0,0 +1,2 @@ +GET FILE='nhtsa.sav'. +CTABLES /TABLE AgeGroup BY qns3a [ROWPCT, COLPCT]. diff --git a/doc/pspp-figures/ctables24.sps b/doc/pspp-figures/ctables24.sps new file mode 100644 index 0000000000..7a12c08037 --- /dev/null +++ b/doc/pspp-figures/ctables24.sps @@ -0,0 +1,4 @@ +GET FILE='nhtsa.sav'. +CTABLES + /TABLE AgeGroup BY qns3a [ROWPCT, COLPCT] + /CLABELS COLLABELS=OPPOSITE. diff --git a/doc/pspp-figures/ctables25.sps b/doc/pspp-figures/ctables25.sps new file mode 100644 index 0000000000..f52da99f06 --- /dev/null +++ b/doc/pspp-figures/ctables25.sps @@ -0,0 +1,4 @@ +GET FILE='nhtsa.sav'. +CTABLES /TABLE (qn105ba + qn105bb) [COLPCT]. +CTABLES /TABLE (qn105ba + qn105bb) [ROWPCT] + /CLABELS ROW=OPPOSITE. diff --git a/doc/pspp-figures/ctables26.sps b/doc/pspp-figures/ctables26.sps new file mode 100644 index 0000000000..270dfe65ca --- /dev/null +++ b/doc/pspp-figures/ctables26.sps @@ -0,0 +1,4 @@ +GET FILE='nhtsa.sav'. +CTABLES + /TABLE qnd7a [COUNT, TOTALS[COUNT, VALIDN]] + /CATEGORIES VARIABLES=qnd7a TOTAL=YES MISSING=INCLUDE. diff --git a/doc/pspp-figures/ctables27.sps b/doc/pspp-figures/ctables27.sps new file mode 100644 index 0000000000..bc613c0e37 --- /dev/null +++ b/doc/pspp-figures/ctables27.sps @@ -0,0 +1,3 @@ +GET FILE='nhtsa.sav'. +CTABLES /TABLE qn1. +CTABLES /TABLE qn1 /CATEGORIES VARIABLES=qn1 [1, 2, 3]. diff --git a/doc/pspp-figures/ctables28.sps b/doc/pspp-figures/ctables28.sps new file mode 100644 index 0000000000..dd8ffb4deb --- /dev/null +++ b/doc/pspp-figures/ctables28.sps @@ -0,0 +1,3 @@ +GET FILE='nhtsa.sav'. +CTABLES /TABLE qn1. +CTABLES /TABLE qn1 /CATEGORIES VARIABLES=qn1 MISSING=INCLUDE. diff --git a/doc/pspp-figures/ctables29.sps b/doc/pspp-figures/ctables29.sps new file mode 100644 index 0000000000..944ab1e5db --- /dev/null +++ b/doc/pspp-figures/ctables29.sps @@ -0,0 +1,6 @@ +GET FILE='nhtsa.sav'. +CTABLES + /TABLE qn1 + /CATEGORIES VARIABLES=qn1 [OTHERNM, SUBTOTAL='Valid Total', + MISSING, SUBTOTAL='Missing Total'] + TOTAL=YES LABEL='Overall Total'. diff --git a/doc/pspp-figures/ctables3.sps b/doc/pspp-figures/ctables3.sps new file mode 100644 index 0000000000..4736cce247 --- /dev/null +++ b/doc/pspp-figures/ctables3.sps @@ -0,0 +1,2 @@ +GET FILE='nhtsa.sav'. +CTABLES /TABLE AgeGroup > qns3a BY qn86. diff --git a/doc/pspp-figures/ctables30.sps b/doc/pspp-figures/ctables30.sps new file mode 100644 index 0000000000..569e4aed50 --- /dev/null +++ b/doc/pspp-figures/ctables30.sps @@ -0,0 +1,3 @@ +GET FILE='nhtsa.sav'. +CTABLES /TABLE=qn20 [MEAN F8.1, COUNT, VALIDN] > region + /CATEGORIES VARIABLES=region TOTAL=YES LABEL='All regions'. diff --git a/doc/pspp-figures/ctables31.sps b/doc/pspp-figures/ctables31.sps new file mode 100644 index 0000000000..bde6fa52a8 --- /dev/null +++ b/doc/pspp-figures/ctables31.sps @@ -0,0 +1,3 @@ +GET FILE='nhtsa.sav'. +CTABLES /TABLE=qns1. +CTABLES /TABLE=qns1 /CATEGORIES VARIABLES=qns1 EMPTY=EXCLUDE. diff --git a/doc/pspp-figures/ctables32.sps b/doc/pspp-figures/ctables32.sps new file mode 100644 index 0000000000..8884509167 --- /dev/null +++ b/doc/pspp-figures/ctables32.sps @@ -0,0 +1,15 @@ +DATA LIST LIST NOTABLE /x y (F1.0) z (F10.0). +VARIABLE LEVEL z (SCALE). +MISSING VALUES x y (9). +BEGIN DATA. +1 1 1 +1 2 10 +1 9 100 +2 1 1000 +2 2 10000 +2 9 100000 +9 1 1000000 +9 2 10000000 +9 9 100000000 +END DATA. +LIST. diff --git a/doc/pspp-figures/ctables33.sps b/doc/pspp-figures/ctables33.sps new file mode 100644 index 0000000000..ef768b864a --- /dev/null +++ b/doc/pspp-figures/ctables33.sps @@ -0,0 +1,15 @@ +DATA LIST LIST NOTABLE /x y (F1.0) z (F10.0). +VARIABLE LEVEL z (SCALE). +MISSING VALUES x y (9). +BEGIN DATA. +1 1 1 +1 2 10 +1 9 100 +2 1 1000 +2 2 10000 +2 9 100000 +9 1 1000000 +9 2 10000000 +9 9 100000000 +END DATA. +CTABLES /TABLE x > y > z [SUM]. diff --git a/doc/pspp-figures/ctables34.sps b/doc/pspp-figures/ctables34.sps new file mode 100644 index 0000000000..e8ef373624 --- /dev/null +++ b/doc/pspp-figures/ctables34.sps @@ -0,0 +1,16 @@ +DATA LIST LIST NOTABLE /x y (F1.0) z (F10.0). +VARIABLE LEVEL z (SCALE). +MISSING VALUES x y (9). +BEGIN DATA. +1 1 1 +1 2 10 +1 9 100 +2 1 1000 +2 2 10000 +2 9 100000 +9 1 1000000 +9 2 10000000 +9 9 100000000 +END DATA. +CTABLES /TABLE x > y > z [SUM] /CATEGORIES VARIABLES=y MISSING=INCLUDE. +CTABLES /TABLE x > y > z [SUM] /CATEGORIES VARIABLES=x y MISSING=INCLUDE. diff --git a/doc/pspp-figures/ctables35.sps b/doc/pspp-figures/ctables35.sps new file mode 100644 index 0000000000..7024f9d707 --- /dev/null +++ b/doc/pspp-figures/ctables35.sps @@ -0,0 +1,11 @@ +GET FILE='nhtsa.sav'. +CTABLES + /PCOMPUTE &all_drivers=EXPR([1 THRU 2] + [3 THRU 4]) + /PPROPERTIES &all_drivers LABEL='All Drivers' + /PCOMPUTE &pct_never=EXPR([5] / ([1 THRU 2] + [3 THRU 4] + [5]) * 100) + /PPROPERTIES &pct_never LABEL='% Not Drivers' FORMAT=COUNT PCT40.1 + /TABLE=qn1 BY qns3a + /CATEGORIES VARIABLES=qn1 [1 THRU 2, SUBTOTAL='Frequent Drivers', + 3 THRU 4, SUBTOTAL='Infrequent Drivers', + &all_drivers, 5, &pct_never, + MISSING, SUBTOTAL='Not Drivers or Missing']. diff --git a/doc/pspp-figures/ctables36.sps b/doc/pspp-figures/ctables36.sps new file mode 100644 index 0000000000..6ee7387aaa --- /dev/null +++ b/doc/pspp-figures/ctables36.sps @@ -0,0 +1,2 @@ +GET FILE='nhtsa.sav'. +CTABLES /HIDESMALLCOUNTS COUNT=10 /TABLE qn37. diff --git a/doc/pspp-figures/ctables4.sps b/doc/pspp-figures/ctables4.sps new file mode 100644 index 0000000000..4ddee23ef6 --- /dev/null +++ b/doc/pspp-figures/ctables4.sps @@ -0,0 +1,2 @@ +GET FILE='nhtsa.sav'. +CTABLES /TABLE AgeGroup + qn1 BY qns3a. diff --git a/doc/pspp-figures/ctables5.sps b/doc/pspp-figures/ctables5.sps new file mode 100644 index 0000000000..ba12f4b7a2 --- /dev/null +++ b/doc/pspp-figures/ctables5.sps @@ -0,0 +1,3 @@ +GET FILE='nhtsa.sav'. +CTABLES /TABLE qn26 + qn27 > qns3a. +CTABLES /TABLE (qn26 + qn27) > qns3a. diff --git a/doc/pspp-figures/ctables6.sps b/doc/pspp-figures/ctables6.sps new file mode 100644 index 0000000000..9cbaf89cc5 --- /dev/null +++ b/doc/pspp-figures/ctables6.sps @@ -0,0 +1,2 @@ +GET FILE='nhtsa.sav'. +CTABLES /TABLE qnd1. diff --git a/doc/pspp-figures/ctables7.sps b/doc/pspp-figures/ctables7.sps new file mode 100644 index 0000000000..678570a26b --- /dev/null +++ b/doc/pspp-figures/ctables7.sps @@ -0,0 +1,2 @@ +GET FILE='nhtsa.sav'. +CTABLES /TABLE qnd1 > qns3a BY lang. diff --git a/doc/pspp-figures/ctables8.sps b/doc/pspp-figures/ctables8.sps new file mode 100644 index 0000000000..799195ace5 --- /dev/null +++ b/doc/pspp-figures/ctables8.sps @@ -0,0 +1,2 @@ +GET FILE='nhtsa.sav'. +CTABLES /TABLE qns3a > qnd1 BY lang. diff --git a/doc/pspp-figures/ctables9.sps b/doc/pspp-figures/ctables9.sps new file mode 100644 index 0000000000..e0494444bb --- /dev/null +++ b/doc/pspp-figures/ctables9.sps @@ -0,0 +1,4 @@ +GET FILE='nhtsa.sav'. +CTABLES + /TABLE qn20 BY qns3a + /TABLE qn20 [C] BY qns3a. diff --git a/doc/statistics.texi b/doc/statistics.texi index 01976e27c9..e23f894080 100644 --- a/doc/statistics.texi +++ b/doc/statistics.texi @@ -20,6 +20,7 @@ far. * GRAPH:: Plot data. * CORRELATIONS:: Correlation tables. * CROSSTABS:: Crosstabulation tables. +* CTABLES:: Custom tables. * FACTOR:: Factor analysis and Principal Components analysis. * GLM:: Univariate Linear Models. * LOGISTIC REGRESSION:: Bivariate Logistic Regression. @@ -897,6 +898,1334 @@ person's occupation. @caption {The results of a test of independence between @exvar{sex} and @exvar{occupation}} @end float +@node CTABLES +@section CTABLES + +@vindex CTABLES +@cindex custom tables +@cindex tables, custom + +@code{CTABLES} has the following overall syntax. At least one +@code{TABLE} subcommand is required: + +@display +@t{CTABLES} + @dots{}@i{global subcommands}@dots{} + [@t{/TABLE} @i{axis} [@t{BY} @i{axis} [@t{BY} @i{axis}]] + @dots{}@i{per-table subcommands}@dots{}]@dots{} +@end display + +@noindent +where each @i{axis} may be empty or take one of the following forms: + +@display +@i{variable} +@i{variable} @t{[}@{@t{C} @math{|} @t{S}@}@t{]} +@i{axis} + @i{axis} +@i{axis} > @i{axis} +(@i{axis}) +@i{axis} @t{[}@i{summary} [@i{string}] [@i{format}]@t{]} +@end display + +The following subcommands precede the first @code{TABLE} subcommand +and apply to all of the output tables. All of these subcommands are +optional: + +@display +@t{/FORMAT} + [@t{MINCOLWIDTH=}@{@t{DEFAULT} @math{|} @i{width}@}] + [@t{MAXCOLWIDTH=}@{@t{DEFAULT} @math{|} @i{width}@}] + [@t{UNITS=}@{@t{POINTS} @math{|} @t{INCHES} @math{|} @t{CM}@}] + [@t{EMPTY=}@{@t{ZERO} @math{|} @t{BLANK} @math{|} @i{string}@}] + [@t{MISSING=}@i{string}] +@t{/VLABELS} + @t{VARIABLES=}@i{variables} + @t{DISPLAY}=@{@t{DEFAULT} @math{|} @t{NAME} @math{|} @t{LABEL} @math{|} @t{BOTH} @math{|} @t{NONE}@} +@ignore @c not yet implemented +@t{/MRSETS COUNTDUPLICATES=}@{@t{YES} @math{|} @t{NO}@} +@end ignore +@t{/SMISSING} @{@t{VARIABLE} @math{|} @t{LISTWISE}@} +@t{/PCOMPUTE} @t{&}@i{postcompute}@t{=EXPR(}@i{expression}@t{)} +@t{/PPROPERTIES} @t{&}@i{postcompute}@dots{} + [@t{LABEL=}@i{string}] + [@t{FORMAT=}[@i{summary} @i{format}]@dots{}] + [@t{HIDESOURCECATS=}@{@t{NO} @math{|} @t{YES}@} +@t{/WEIGHT VARIABLE=}@i{variable} +@t{/HIDESMALLCOUNTS COUNT=@i{count}} +@end display + +The following subcommands follow @code{TABLE} and apply only to the +previous @code{TABLE}. All of these subcommands are optional: + +@display +@t{/SLABELS} + [@t{POSITION=}@{@t{COLUMN} @math{|} @t{ROW} @math{|} @t{LAYER}@}] + [@t{VISIBLE=}@{@t{YES} @math{|} @t{NO}@}] +@t{/CLABELS} @{@t{AUTO} @math{|} @{@t{ROWLABELS}@math{|}@t{COLLABELS}@}@t{=}@{@t{OPPOSITE}@math{|}@t{LAYER}@}@} +@t{/CATEGORIES} @t{VARIABLES=}@i{variables} + @{@t{[}@i{value}@t{,} @i{value}@dots{}@t{]} + @math{|} [@t{ORDER=}@{@t{A} @math{|} @t{D}@}] + [@t{KEY=}@{@t{VALUE} @math{|} @t{LABEL} @math{|} @i{summary}@t{(}@i{variable}@t{)}@}] + [@t{MISSING=}@{@t{EXCLUDE} @math{|} @t{INCLUDE}@}]@} + [@t{TOTAL=}@{@t{NO} @math{|} @t{YES}@} [@t{LABEL=}@i{string}] [@t{POSITION=}@{@t{AFTER} @math{|} @t{BEFORE}@}]] + [@t{EMPTY=}@{@t{INCLUDE} @math{|} @t{EXCLUDE}@}] +@t{/TITLES} + [@t{TITLE=}@i{string}@dots{}] + [@t{CAPTION=}@i{string}@dots{}] + [@t{CORNER=}@i{string}@dots{}] +@ignore @c not yet implemented +@t{/CRITERIA CILEVEL=}@i{percentage} +@t{/SIGTEST TYPE=CHISQUARE} + [@t{ALPHA=}@i{siglevel}] + [@t{INCLUDEMRSETS=}@{@t{YES} @math{|} @t{NO}@}] + [@t{CATEGORIES=}@{@t{ALLVISIBLE} @math{|} @t{SUBTOTALS}@}] +@t{/COMPARETEST TYPE=}@{@t{PROP} @math{|} @t{MEAN}@} + [@t{ALPHA=}@i{value}[@t{,} @i{value}]] + [@t{ADJUST=}@{@t{BONFERRONI} @math{|} @t{BH} @math{|} @t{NONE}@}] + [@t{INCLUDEMRSETS=}@{@t{YES} @math{|} @t{NO}@}] + [@t{MEANSVARIANCE=}@{@t{ALLCATS} @math{|} @t{TESTEDCATS}@}] + [@t{CATEGORIES=}@{@t{ALLVISIBLE} @math{|} @t{SUBTOTALS}@}] + [@t{MERGE=}@{@t{NO} @math{|} @t{YES}@}] + [@t{STYLE=}@{@t{APA} @math{|} @t{SIMPLE}@}] + [@t{SHOWSIG=}@{@t{NO} @math{|} @t{YES}@}] +@end ignore +@end display + +The @code{CTABLES} (aka ``custom tables'') command produces +multi-dimensional tables from categorical and scale data. It offers +many options for data summarization and formatting. + +This section's examples use data from the 2008 (USA) National Survey +of Drinking and Driving Attitudes and Behaviors, a public domain data +set from the (USA) National Highway Traffic Administration and +available at @url{https://data.transportation.gov}. @pspp{} includes +this data set, with a slightly modified dictionary, as +@file{examples/nhtsa.sav}. + +@node CTABLES Basics +@subsection Basics + +The only required subcommand is @code{TABLE}, which specifies the +variables to include along each axis: +@display +@t{/TABLE} @i{rows} [@t{BY} @i{columns} [@t{BY} @i{layers}]] +@end display +@noindent +In @code{TABLE}, each of @var{rows}, @var{columns}, and @var{layers} +is either empty or an axis expression that specifies one or more +variables. At least one must specify an axis expression. + +@node CTABLES Categorical Variable Basics +@subsubsection Categorical Variables + +An axis expression that names a categorical variable divides the data +into cells according to the values of that variable. When all the +variables named on @code{TABLE} are categorical, by default each cell +displays the number of cases that it contains, so specifying a single +variable yields a frequency table, much like the output of the +@code{FREQUENCIES} command (@pxref{FREQUENCIES}): + +@example +CTABLES /TABLE=AgeGroup. +@end example +@psppoutput {ctables1} + +@noindent +Specifying a row and a column categorical variable yields a +crosstabulation, much like the output of the @code{CROSSTABS} command +(@pxref{CROSSTABS}): + +@example +CTABLES /TABLE=AgeGroup BY qns3a. +@end example +@psppoutput {ctables2} + +@noindent +The @samp{>} ``nesting'' operator nests multiple variables on a single +axis, e.g.: + +@example +CTABLES /TABLE qn105ba BY AgeGroup > qns3a. +@end example +@psppoutput {ctables3} + +@noindent +The @samp{+} ``stacking'' operator allows a single output table to +include multiple data analyses. With @samp{+}, @code{CTABLES} divides +the output table into multiple @dfn{sections}, each of which includes +an analysis of the full data set. For example, the following command +separately tabulates age group and driving frequency by gender: + +@example +CTABLES /TABLE AgeGroup + qn1 BY qns3a. +@end example +@psppoutput {ctables4} + +@noindent +When @samp{+} and @samp{>} are used together, @samp{>} binds more +tightly. Use parentheses to override operator precedence. Thus: + +@example +CTABLES /TABLE qn26 + qn27 > qns3a. +CTABLES /TABLE (qn26 + qn27) > qns3a. +@end example +@psppoutput {ctables5} + +@node CTABLES Scalar Variable Basics +@subsubsection Scalar Variables + +For a categorical variable, @code{CTABLES} divides the table into a +cell per category. For a scalar variable, @code{CTABLES} instead +calculates a summary measure, by default the mean, of the values that +fall into a cell. For example, if the only variable specified is a +scalar variable, then the output is a single cell that holds the mean +of all of the data: + +@example +CTABLES /TABLE qnd1. +@end example +@psppoutput {ctables6} + +A scalar variable may nest with categorical variables. The following +example shows the mean age of survey respondents across gender and +language groups: + +@example +CTABLES /TABLE qns3a > qnd1 BY region. +@end example +@psppoutput {ctables7} + +The order of nesting of scalar and categorical variables affects table +labeling, but it does not affect the data displayed in the table. The +following example shows how the output changes when the nesting order +of the scalar and categorical variable are interchanged: + +@example +CTABLES /TABLE qnd1 > qns3a BY region. +@end example +@psppoutput {ctables8} + +Only a single scalar variable may appear in each section; that is, a +scalar variable may not nest inside a scalar variable directly or +indirectly. Scalar variables may only appear on one axis within +@code{TABLE}. + +@node CTABLES Overriding Measurement Level +@subsubsection Overriding Measurement Level + +By default, @code{CTABLES} uses a variable's measurement level to +decide whether to treat it as categorical or scalar. Variables +assigned the nominal or ordinal measurement level are treated as +categorical, and scalar variables are treated as scalar. + +When @pspp{} reads data from a file in an external format, such as a +text file, variables' measurement levels are often unknown. If +@code{CTABLES} runs when a variable has an unknown measurement level, +it makes an initial pass through the data to guess measurement levels +using the rules described in an earlier section (@pxref{Measurement +Level}). Use the @code{VARIABLE LEVEL} command to set or change a +variable's measurement level (@pxref{VARIABLE LEVEL}). + +To treat a variable as categorical or scalar only for one use on +@code{CTABLES}, add @samp{[C]} or @samp{[S]}, respectively, after the +variable name. The following example shows the output when variable +@code{qn20} is analyzed as scalar (the default for its measurement +level) and as categorical: + +@example +CTABLES + /TABLE qn20 BY qns3a + /TABLE qn20 [C] BY qns3a. +@end example +@psppoutput {ctables9} + +@ignore +@node CTABLES Multiple Response Sets +@subsubheading Multiple Response Sets + +The @code{CTABLES} command does not yet support multiple response +sets. +@end ignore + +@node CTABLES Data Summarization +@subsection Data Summarization + +The @code{CTABLES} command allows the user to control how the data are +summarized with @dfn{summary specifications}, syntax that lists one or +more summary function names, optionally separated by commas, and which +are enclosed in square brackets following a variable name on the +@code{TABLE} subcommand. When all the variables are categorical, +summary specifications can be given for the innermost nested variables +on any one axis. When a scalar variable is present, only the scalar +variable may have summary specifications. + +The following example includes a summary specification for column and +row percentages for categorical variables, and mean and median for a +scalar variable: + +@example +CTABLES + /TABLE=qnd1 [MEAN, MEDIAN] BY qns3a + /TABLE=AgeGroup [COLPCT, ROWPCT] BY qns3a. +@end example +@psppoutput {ctables10} + +A summary specification may override the default label and format by +appending a string or format specification or both (in that order) to +the summary function name. For example: + +@example +CTABLES /TABLE=AgeGroup [COLPCT 'Gender %' PCT5.0, + ROWPCT 'Age Group %' PCT5.0] + BY qns3a. +@end example +@psppoutput {ctables11} + +In addition to the standard formats, @code{CTABLES} allows the user to +specify the following special formats: + +@multitable {@code{NEGPAREN@i{w}.@i{d}}} {Encloses all numbers in parentheses.} {@t{(42.96%)}} {@t{(-42.96%)}} +@item @code{NEGPAREN@i{w}.@i{d}} +@tab Encloses negative numbers in parentheses. +@tab @t{@w{ }42.96} +@tab @t{@w{ }(42.96)} + +@item @code{NEQUAL@i{w}.@i{d}} +@tab Adds a @code{N=} prefix. +@tab @t{@w{ }N=42.96} +@tab @t{@w{ }N=-42.96} + +@item @code{@code{PAREN@i{w}.@i{d}}} +@tab Encloses all numbers in parentheses. +@tab @t{@w{ }(42.96)} +@tab @t{@w{ }(-42.96)} + +@item @code{PCTPAREN@i{w}.@i{d}} +@tab Encloses all numbers in parentheses with a @samp{%} suffix. +@tab @t{@w{ }(42.96%)} +@tab @t{(-42.96%)} +@end multitable + +Parentheses provide a shorthand to apply summary specifications to +multiple variables. For example, both of these commands: + +@example +CTABLES /TABLE=AgeGroup[COLPCT] + qns1[COLPCT] BY qns3a. +CTABLES /TABLE=(AgeGroup + qns1)[COLPCT] BY qns3a. +@end example + +@noindent +produce the same output shown below: + +@psppoutput {ctables12} + +The following sections list the available summary functions. After +each function's name is given its default label and format. If no +format is listed, then the default format is the print format for the +variable being summarized. + +@node CTABLES Summary Functions for Individual Cells +@subsubsection Summary Functions for Individual Cells + +This section lists the summary functions that consider only an +individual cell in @code{CTABLES}. Only one such summary function, +@code{COUNT}, may be applied to both categorical and scale variables: + +@table @asis +@item @code{COUNT} (``Count'', F40.0) +The sum of weights in a cell. + +If @code{CATEGORIES} for one or more of the variables in a table +include missing values (@pxref{CTABLES Per-Variable Category +Options}), then some or all of the categories for a cell might be +missing values. @code{COUNT} counts data included in a cell +regardless of whether its categories are missing. +@end table + +The following summary functions apply only to scale variables or +totals and subtotals for categorical variables. Be cautious about +interpreting the summary value in the latter case, because it is not +necessarily meaningful; however, the mean of a Likert scale, etc.@: +may have a straightforward interpreation. + +@table @asis +@item @code{MAXIMUM} (``Maximum'') +The largest value. + +@item @code{MEAN} (``Mean'') +The mean. + +@item @code{MEDIAN} (``Median'') +The median value. + +@item @code{MINIMUM} (``Minimum'') +The smallest value. + +@item @code{MISSING} (``Missing'') +Sum of weights of user- and system-missing values. + +@item @code{MODE} (``Mode'') +The highest-frequency value. Ties are broken by taking the smallest mode. + +@item @code{PTILE} @i{n} (``Percentile @i{n}'') +The @var{n}th percentile, where @math{0 @leq{} @var{n} @leq{} 100}. + +@item @code{RANGE} (``Range'') +The maximum minus the minimum. + +@item @code{SEMEAN} (``Std Error of Mean'') +The standard error of the mean. + +@item @code{STDDEV} (``Std Deviation'') +The standard deviation. + +@item @code{SUM} (``Sum'') +The sum. + +@item @code{TOTALN} (``Total N'', F40.0) +The sum of weights in a cell. + +For scale data, @code{COUNT} and @code{TOTALN} are the same. + +For categorical data, @code{TOTALN} counts missing values in excluded +categories, that is, user-missing values not in an explicit category +list on @code{CATEGORIES} (@pxref{CTABLES Per-Variable Category +Options}), or user-missing values excluded because +@code{MISSING=EXCLUDE} is in effect on @code{CATEGORIES}, or +system-missing values. @code{COUNT} does not count these. + +@xref{CTABLES Missing Values for Summary Variables}, for details of +how @code{CTABLES} summarizes missing values. + +@item @code{VALIDN} (``Valid N'', F40.0) +The sum of valid count weights in included categories. + +For categorical variables, @code{VALIDN} does not count missing values +regardless of whether they are in included categories via +@code{CATEGORIES}. @code{VALIDN} does not count valid values that are +in excluded categories. @xref{CTABLES Missing Values for Summary +Variables}, for details. + +@item @code{VARIANCE} (``Variance'') +The variance. +@end table + +@node CTABLES Summary Functions for Groups of Cells +@subsubsection Summary Functions for Groups of Cells + +These summary functions summarize over multiple cells within an area +of the output chosen by the user and specified as part of the function +name. The following basic @var{area}s are supported, in decreasing +order of size: + +@table @code +@item TABLE +A @dfn{section}. Stacked variables divide sections of the output from +each other. sections may span multiple layers. + +@item LAYER +A section within a single layer. + +@item SUBTABLE +A @dfn{subtable}, whose contents are the cells that pair an innermost +row variable and an innermost column variable within a single layer. +@end table + +The following shows how the output for the table expression @code{qn61 +> qn57 BY qnd7a > qn86 + qn64b BY qns3a}@footnote{This is not +necessarily a meaningful table, so for clarity variable labels are +omitted.} is divided up into @code{TABLE}, @code{LAYER}, and +@code{SUBTABLE} areas. Each unique value for Table ID is one section, +and similarly for Layer ID and Subtable ID. Thus, this output has two +@code{TABLE} areas (one for @code{qnd7a} and one for @code{qn64b}), +four @code{LAYER} areas (for those two variables, per layer), and 12 +@code{SUBTABLE} areas. +@psppoutput {ctables22} + +@code{CTABLES} also supports the following @var{area}s that further +divide a subtable or a layer within a section: + +@table @code +@item LAYERROW +@itemx LAYERCOL +A row or column, respectively, in one layer of a section. + +@item ROW +@itemx COL +A row or column, respectively, in a subtable. +@end table + +The following summary functions for groups of cells are available for +each @var{area} described above, for both categorical and scale +variables: + +@table @asis +@item @code{@i{area}PCT} or @code{@i{area}PCT.COUNT} (``@i{Area} %'', PCT40.1) +A percentage of total counts within @var{area}. + +@item @code{@i{area}PCT.VALIDN} (``@i{Area} Valid N %'', PCT40.1) +A percentage of total counts for valid values within @var{area}. + +@item @code{@i{area}PCT.TOTALN} (``@i{Area} Total N %'', PCT40.1) +A percentage of total counts for all values within @var{area}. +@end table + +Scale variables and totals and subtotals for categorical variables may +use the following additional group cell summary function: + +@table @asis +@item @code{@i{area}PCT.SUM} (``@i{Area} Sum %'', PCT40.1) +Percentage of the sum of the values within @var{area}. +@end table + +@node CTABLES Summary Functions for Adjusted Weights +@subsubsection Summary Functions for Adjusted Weights + +If the @code{WEIGHT} subcommand specified an effective weight variable +(@pxref{CTABLES Effective Weight}), then the following summary functions +use its value instead of the dictionary weight variable. Otherwise, +they are equivalent to the summary function without the +@samp{E}-prefix: + +@itemize @bullet +@item +@code{ECOUNT} (``Adjusted Count'', F40.0) + +@item +@code{ETOTALN} (``Adjusted Total N'', F40.0) + +@item +@code{EVALIDN} (``Adjusted Valid N'', F40.0) +@end itemize + +@node CTABLES Unweighted Summary Functions +@subsubsection Unweighted Summary Functions + +The following summary functions with a @samp{U}-prefix are equivalent +to the same ones without the prefix, except that they use unweighted +counts: + +@itemize @bullet +@item +@code{UCOUNT} (``Unweighted Count'', F40.0) + +@item +@code{U@i{area}PCT} or @code{U@i{area}PCT.COUNT} (``Unweighted @i{Area} %'', PCT40.1) + +@item +@code{U@i{area}PCT.VALIDN} (``Unweighted @i{Area} Valid N %'', PCT40.1) + +@item +@code{U@i{area}PCT.TOTALN} (``Unweighted @i{Area} Total N %'', PCT40.1) + +@item +@code{UMEAN} (``Unweighted Mean'') + +@item +@code{UMEDIAN} (``Unweighted Median'') + +@item +@code{UMISSING} (``Unweighted Missing'') + +@item +@code{UMODE} (``Unweighted Mode'') + +@item +@code{U@i{area}PCT.SUM} (``Unweighted @i{Area} Sum %'', PCT40.1) + +@item +@code{UPTILE} @i{n} (``Unweighted Percentile @i{n}'') + +@item +@code{USEMEAN} (``Unweighted Std Error of Mean'') + +@item +@code{USTDDEV} (``Unweighted Std Deviation'') + +@item +@code{USUM} (``Unweighted Sum'') + +@item +@code{UTOTALN} (``Unweighted Total N'', F40.0) + +@item +@code{UVALIDN} (``Unweighted Valid N'', F40.0) + +@item +@code{UVARIANCE} (``Unweighted Variance'', F40.0) +@end itemize + +@node CTABLES Statistics Positions and Labels +@subsection Statistics Positions and Labels + +@display +@t{/SLABELS} + [@t{POSITION=}@{@t{COLUMN} @math{|} @t{ROW} @math{|} @t{LAYER}@}] + [@t{VISIBLE=}@{@t{YES} @math{|} @t{NO}@}] +@end display + +The @code{SLABELS} subcommand controls the position and visibility of +summary statistics for the @code{TABLE} subcommand that it follows. + +@code{POSITION} sets the axis on which summary statistics appear. +With @t{POSITION=COLUMN}, which is the default, each summary statistic +appears in a column. For example: + +@example +CTABLES /TABLE=qnd1 [MEAN, MEDIAN] BY qns3a. +@end example +@psppoutput {ctables13} + +@noindent +With @t{POSITION=ROW}, each summary statistic appears in a row, as +shown below: + +@example +CTABLES /TABLE=qnd1 [MEAN, MEDIAN] BY qns3a /SLABELS POSITION=ROW. +@end example +@psppoutput {ctables14} + +@noindent +@t{POSITION=LAYER} is also available to place each summary statistic in +a separate layer. + +Labels for summary statistics are shown by default. Use +@t{VISIBLE=NO} to suppress them. Because unlabeled data can cause +confusion, it should only be considered if the meaning of the data is +evident, as in a simple case like this: + +@example +CTABLES /TABLE=AgeGroup [TABLEPCT] /SLABELS VISIBLE=NO. +@end example +@psppoutput {ctables15} + +@node CTABLES Category Label Positions +@subsection Category Label Positions + +@display +@t{/CLABELS} @{@t{AUTO} @math{|} @{@t{ROWLABELS}@math{|}@t{COLLABELS}@}@t{=}@{@t{OPPOSITE}@math{|}@t{LAYER}@}@} +@end display + +The @code{CLABELS} subcommand controls the position of category labels +for the @code{TABLE} subcommand that it follows. By default, or if +@t{AUTO} is specified, category labels for a given variable nest +inside the variable's label on the same axis. For example, the +command below results in age categories nesting within the age group +variable on the rows axis and gender categories within the gender +variable on the columns axis: + +@example +CTABLES /TABLE AgeGroup BY qns3a. +@end example +@psppoutput {ctables16} + +@t{ROWLABELS=OPPOSITE} or @t{COLLABELS=OPPOSITE} move row or column +variable category labels, respectively, to the opposite axis. The +setting affects only the innermost variable or variables, which must +be categorical, on the given axis. For example: + +@example +CTABLES /TABLE AgeGroup BY qns3a /CLABELS ROWLABELS=OPPOSITE. +CTABLES /TABLE AgeGroup BY qns3a /CLABELS COLLABELS=OPPOSITE. +@end example +@psppoutput {ctables17} + +@t{ROWLABELS=LAYER} or @t{COLLABELS=LAYER} move the innermost row or +column variable category labels, respectively, to the layer axis. + +Only one axis's labels may be moved, whether to the opposite axis or +to the layer axis. + +@subsubheading Effect on Summary Statistics + +@code{CLABELS} primarily affects the appearance of tables, not the +data displayed in them. However, @code{CTABLES} can affect the values +displayed for statistics that summarize areas of a table, since it can +change the definitions of these areas. + +For example, consider the following syntax and output: + +@example +CTABLES /TABLE AgeGroup BY qns3a [ROWPCT, COLPCT]. +@end example +@psppoutput {ctables23} + +@noindent +Using @code{COLLABELS=OPPOSITE} changes the definitions of rows and +columns, so that column percentages display what were previously row +percentages and the new row percentages become meaningless (because +there is only one cell per row): + +@example +CTABLES + /TABLE AgeGroup BY qns3a [ROWPCT, COLPCT] + /CLABELS COLLABELS=OPPOSITE. +@end example +@psppoutput {ctables24} + +@subsubheading Moving Categories for Stacked Variables + +If @code{CLABELS} moves category labels from an axis with stacked +variables, the variables that are moved must have the same category +specifications (@pxref{CTABLES Per-Variable Category Options}) and the +same value labels. + +The following shows both moving stacked category variables and +adapting to the changing definitions of rows and columns: + +@example +CTABLES /TABLE (qn105ba + qn105bb) [COLPCT]. +CTABLES /TABLE (qn105ba + qn105bb) [ROWPCT] + /CLABELS ROW=OPPOSITE. +@end example +@psppoutput {ctables25} + +@node CTABLES Per-Variable Category Options +@subsection Per-Variable Category Options + +@display +@t{/CATEGORIES} @t{VARIABLES=}@i{variables} + @{@t{[}@i{value}@t{,} @i{value}@dots{}@t{]} + @math{|} [@t{ORDER=}@{@t{A} @math{|} @t{D}@}] + [@t{KEY=}@{@t{VALUE} @math{|} @t{LABEL} @math{|} @i{summary}@t{(}@i{variable}@t{)}@}] + [@t{MISSING=}@{@t{EXCLUDE} @math{|} @t{INCLUDE}@}]@} + [@t{TOTAL=}@{@t{NO} @math{|} @t{YES}@} [@t{LABEL=}@i{string}] [@t{POSITION=}@{@t{AFTER} @math{|} @t{BEFORE}@}]] + [@t{EMPTY=}@{@t{INCLUDE} @math{|} @t{EXCLUDE}@}] +@end display + +The @code{CATEGORIES} subcommand specifies, for one or more +categorical variables, the categories to include and exclude, the sort +order for included categories, and treatment of missing values. It +also controls the totals and subtotals to display. It may be +specified any number of times, each time for a different set of +variables. @code{CATEGORIES} applies to the table produced by the +@code{TABLE} subcommand that it follows. + +@code{CATEGORIES} does not apply to scalar variables. + +@t{VARIABLES} is required and must list the variables for the subcommand +to affect. + +The syntax may specify the categories to include and their sort order +either explicitly or implicitly. The following sections give the +details of each form of syntax, followed by information on totals and +subtotals and the @code{EMPTY} setting. + +@node CTABLES Explicit Categories +@subsubsection Explicit Categories + +@anchor{CTABLES Explicit Category List} + +To use @code{CTABLES} to explicitly specify categories to include, +list the categories within square brackets in the desired sort order. +Use spaces or commas to separate values. Categories not covered by +the list are excluded from analysis. + +Each element of the list takes one of the following forms: + +@table @t +@item @i{number} +@itemx '@i{string}' +A numeric or string category value, for variables that have the +corresponding type. + +@item '@i{date}' +@itemx '@i{time}' +A date or time category value, for variables that have a date or time +print format. + +@item @i{min} THRU @i{max} +@itemx LO THRU @i{max} +@itemx @i{min} THRU HI +A range of category values, where @var{min} and @var{max} each takes +one of the forms above, in increasing order. + +@item MISSING +All user-missing values. (To match individual user-missing values, +specify their category values.) + +@item OTHERNM +Any non-missing value not covered by any other element of the list +(regardless of where @t{OTHERNM} is placed in the list). + +@item &@i{postcompute} +A computed category name (@pxref{CTABLES Computed Categories}). + +@item SUBTOTAL +@itemx HSUBTOTAL +A subtotal (@pxref{CTABLES Totals and Subtotals}). +@end table + +If multiple elements of the list cover a given category, the last one +in the list takes precedence. + +The following example syntax and output show how an explicit category +can limit the displayed categories: + +@example +CTABLES /TABLE qn1. +CTABLES /TABLE qn1 /CATEGORIES VARIABLES=qn1 [1, 2, 3]. +@end example +@psppoutput {ctables27} + +@node CTABLES Implicit Categories +@subsubsection Implicit Categories + +In the absence of an explicit list of categories, @code{CATEGORIES} +allows @code{KEY}, @code{ORDER}, and @code{MISSING} to specify how to +select and sort categories. + +The @code{KEY} setting specifies the sort key. By default, or with +@code{KEY=VALUE}, categories are sorted by default. Categories may +also be sorted by value label, with @code{KEY=LABEL}, or by the value +of a summary function, e.g.@: @code{KEY=COUNT}. +@ignore @c Not yet implemented +For summary functions, a variable name may be specified in +parentheses, e.g.@: @code{KEY=MAXIUM(qnd1)}, and this is required for +functions that apply only to scalar variables. The @code{PTILE} +function also requires a percentage argument, e.g.@: +@code{KEY=PTILE(qnd1, 90)}. Only summary functions used in the table +may be used, except that @code{COUNT} is always allowed. +@end ignore + +By default, or with @code{ORDER=A}, categories are sorted in ascending +order. Specify @code{ORDER=D} to sort in descending order. + +User-missing values are excluded by default, or with +@code{MISSING=EXCLUDE}. Specify @code{MISSING=INCLUDE} to include +user-missing values. The system-missing value is always excluded. + +The following example syntax and output show how +@code{MISSING=INCLUDE} causes missing values to be included in a +category list. + +@example +CTABLES /TABLE qn1. +CTABLES /TABLE qn1 /CATEGORIES VARIABLES=qn1 MISSING=INCLUDE. +@end example +@psppoutput {ctables28} + +@node CTABLES Totals and Subtotals +@subsubsection Totals and Subtotals + +@code{CATEGORIES} also controls display of totals and subtotals. By +default, or with @code{TOTAL=NO}, totals are not displayed. Use +@code{TOTAL=YES} to display a total. By default, the total is labeled +``Total''; use @code{LABEL="@i{label}"} to override it. + +Subtotals are also not displayed by default. To add one or more +subtotals, use an explicit category list and insert @code{SUBTOTAL} or +@code{HSUBTOTAL} in the position or positions where the subtotal +should appear. The subtotal becomes an extra row or column or layer. +@code{HSUBTOTAL} additionally hides the categories that make up the +subtotal. Either way, the default label is ``Subtotal'', use +@code{SUBTOTAL="@i{label}"} or @code{HSUBTOTAL="@i{label}"} to specify +a custom label. + +The following example syntax and output show how to use +@code{TOTAL=YES} and @code{SUBTOTAL}: + +@example +CTABLES + /TABLE qn1 + /CATEGORIES VARIABLES=qn1 [OTHERNM, SUBTOTAL='Valid Total', + MISSING, SUBTOTAL='Missing Total'] + TOTAL=YES LABEL='Overall Total'. +@end example +@psppoutput {ctables29} + +By default, or with @code{POSITION=AFTER}, totals are displayed in the +output after the last category and subtotals apply to categories that +precede them. With @code{POSITION=BEFORE}, totals come before the +first category and subtotals apply to categories that follow them. + +Only categorical variables may have totals and subtotals. Scalar +variables may be ``totaled'' indirectly by enabling totals and +subtotals on a categorical variable within which the scalar variable +is summarized. For example, the following syntax produces a mean, +count, and valid count across all data by adding a total on the +categorical @code{region} variable, as shown: + +@example +CTABLES /TABLE=region > qn20 [MEAN, VALIDN] + /CATEGORIES VARIABLES=region TOTAL=YES LABEL='All regions'. +@end example +@psppoutput {ctables30} + +By default, @pspp{} uses the same summary functions for totals and +subtotals as other categories. To summarize totals and subtotals +differently, specify the summary functions for totals and subtotals +after the ordinary summary functions inside a nested set of @code{[]} +following @code{TOTALS}. For example, the following syntax displays +@code{COUNT} for individual categories and totals and @code{VALIDN} +for totals, as shown: + +@example +CTABLES + /TABLE qnd7a [COUNT, TOTALS[COUNT, VALIDN]] + /CATEGORIES VARIABLES=qnd7a TOTAL=YES MISSING=INCLUDE. +@end example +@psppoutput {ctables26} + +@node CTABLES Categories Without Values +@subsubsection Categories Without Values + +Some categories might not be included in the data set being analyzed. +For example, our example data set has no cases in the ``15 or +younger'' age group. By default, or with @code{EMPTY=INCLUDE}, +@pspp{} includes these empty categories in output tables. To exclude +them, specify @code{EMPTY=EXCLUDE}. + +For implicit categories, empty categories potentially include all the +values with value labels for a given variable; for explicit +categories, they include all the values listed individually and all +values with value labels that are covered by ranges or @code{MISSING} +or @code{OTHERNM}. + +The following example syntax and output show the effect of +@code{EMPTY=EXCLUDE} for the @code{qns1} variable, in which 0 is labeled +``None'' but no cases exist with that value: + +@example +CTABLES /TABLE=qns1. +CTABLES /TABLE=qns1 /CATEGORIES VARIABLES=qns1 EMPTY=EXCLUDE. +@end example +@psppoutput {ctables31} + +@node CTABLES Titles +@subsection Titles + +@display +@t{/TITLES} + [@t{TITLE=}@i{string}@dots{}] + [@t{CAPTION=}@i{string}@dots{}] + [@t{CORNER=}@i{string}@dots{}] +@end display + +The @code{TITLES} subcommand sets the title, caption, and corner text +for the table output for the previous @code{TABLE} subcommand. Any +number of strings may be specified for each kind of text, with each +string appearing on a separate line in the output. The title appears +above the table, the caption below the table, and the corner text +appears in the table's upper left corner. By default, the title is +``Custom Tables'' and the caption and corner text are empty. With +some table output styles, the corner text is not displayed. + +The strings provided in this subcommand may contain the following +macro-like keywords that @pspp{} substitutes at the time that it runs +the command: + +@table @code @c ( +@item )DATE +The current date, e.g.@: MM/DD/YY. The format is locale-dependent. + +@c ( +@item )TIME +The current time, e.g.@: HH:MM:SS. The format is locale-dependent. + +@c ( +@item )TABLE +The expression specified on the @code{TABLE} command. Summary +and measurement level specifications are omitted, and variable labels are used in place of variable names. +@end table + +@node CTABLES Table Formatting +@subsection Table Formatting + +@display +@t{/FORMAT} + [@t{MINCOLWIDTH=}@{@t{DEFAULT} @math{|} @i{width}@}] + [@t{MAXCOLWIDTH=}@{@t{DEFAULT} @math{|} @i{width}@}] + [@t{UNITS=}@{@t{POINTS} @math{|} @t{INCHES} @math{|} @t{CM}@}] + [@t{EMPTY=}@{@t{ZERO} @math{|} @t{BLANK} @math{|} @i{string}@}] + [@t{MISSING=}@i{string}] +@end display + +The @code{FORMAT} subcommand, which must precede the first +@code{TABLE} subcommand, controls formatting for all the output +tables. @code{FORMAT} and all of its settings are optional. + +Use @code{MINCOLWIDTH} and @code{MAXCOLWIDTH} to control the minimum +or maximum width of columns in output tables. By default, with +@code{DEFAULT}, column width varies based on content. Otherwise, +specify a number for either or both of these settings. If both are +specified, @code{MAXCOLWIDTH} must be greater than or equal to +@code{MINCOLWIDTH}. The default unit, or with @code{UNITS=POINTS}, is +points (1/72 inch), or specify @code{UNITS=INCHES} to use inches or +@code{UNITS=CM} for centimeters. @pspp{} does not currently honor any +of these settings. + +By default, or with @code{EMPTY=ZERO}, zero values are displayed in +their usual format. Use @code{EMPTY=BLANK} to use an empty cell +instead, or @code{EMPTY="@i{string}"} to use the specified string. + +By default, missing values are displayed as @samp{.}, the same as in +other tables. Specify @code{MISSING="@i{string}"} to instead use a +custom string. + +@node CTABLES Display of Variable Labels +@subsection Display of Variable Labels + +@display +@t{/VLABELS} + @t{VARIABLES=}@i{variables} + @t{DISPLAY}=@{@t{DEFAULT} @math{|} @t{NAME} @math{|} @t{LABEL} @math{|} @t{BOTH} @math{|} @t{NONE}@} +@end display + +The @code{VLABELS} subcommand, which must precede the first +@code{TABLE} subcommand, controls display of variable labels in all +the output tables. @code{VLABELS} is optional. It may appear +multiple times to adjust settings for different variables. + +@code{VARIABLES} and @code{DISPLAY} are required. The value of +@code{DISPLAY} controls how variable labels are displayed for the +variables listed on @code{VARIABLES}. The supported values are: + +@table @code +@item DEFAULT +Use the setting from @code{SET TVARS} (@pxref{SET TVARS}). + +@item NAME +Show only a variable name. + +@item LABEL +Show only a variable label. + +@item BOTH +Show variable name and label. + +@item NONE +Show nothing. +@end table + +@node CTABLES Missing Value Treatment +@subsection Missing Value Treatment + +The @code{TABLE} subcommand on @code{CTABLES} specifies two different +kinds of variables: variables that divide tables into cells (which are +always categorical) and variables being summarized (which may be +categorical or scale). @pspp{} treats missing values differently in +each kind of variable, as described in the sections below. + +@node CTABLES Missing Values for Cell-Defining Variables +@subsubsection Missing Values for Cell-Defining Variables + +For variables that divide tables into cells, per-variable category +options, as described in @ref{CTABLES Per-Variable Category Options}, +determine which data is analyzed. If any of the categories for such a +variable would exclude a case, then that case is not included. + +As an example, consider the following entirely artificial dataset, in +which @samp{x} and @samp{y} are categorical variables with missing +value 9, and @samp{z} is scale: + +@psppoutput{ctables32} + +Using @samp{x} and @samp{y} to define cells, and summarizing @samp{z}, +by default @pspp{} omits all the cases that have @samp{x} or @samp{y} (or both) +missing: + +@example +CTABLES /TABLE x > y > z [SUM]. +@end example +@psppoutput{ctables33} + +If, however, we add @code{CATEGORIES} specifications to include +missing values for @samp{y} or for @samp{x} and @samp{y}, the output +table includes them, like so: + +@example +CTABLES /TABLE x > y > z [SUM] /CATEGORIES VARIABLES=y MISSING=INCLUDE. +CTABLES /TABLE x > y > z [SUM] /CATEGORIES VARIABLES=x y MISSING=INCLUDE. +@end example +@psppoutput{ctables34} + +@node CTABLES Missing Values for Summary Variables +@subsubsection Missing Values for Summary Variables + +For summary variables, values that are valid and in included +categories are analyzed, and values that are missing or in excluded +categories are not analyzed, with the following exceptions: + +@itemize @bullet +@item +The ``@t{VALIDN}'' summary functions (@code{VALIDN}, @code{EVALIDN}, +@code{UVALIDN}, @code{@i{area}PCT.VALIDN}, and +@code{U@i{area}PCT.VALIDN}) only count valid values in included +categories (not missing values in included categories). + +@item +The ``@t{TOTALN}'' summary functions (@code{TOTALN}, @code{ETOTALN}, +@code{UTOTALN}, @code{@i{area}PCT.TOTALN}), and +@code{U@i{area}PCT.TOTALN} count all values (valid and missing) in +included categories and missing (but not valid) values in excluded +categories. +@end itemize + +@noindent +For categorical variables, system-missing values are never in included +categories. For scale variables, there is no notion of included and +excluded categories, so all values are effectively included. + +The following table provides another view of the above rules: + +@multitable {@w{ }@w{ }@w{ }@w{ }Missing values in excluded categories} {@t{VALIDN}} {other} {@t{TOTALN}} +@headitem @tab @t{VALIDN} @tab other @tab @t{TOTALN} +@item @headitemfont{Categorical variables:} +@item @w{ }@w{ }@w{ }@w{ }Valid values in included categories @tab yes @tab yes @tab yes +@item @w{ }@w{ }@w{ }@w{ }Missing values in included categories @tab --- @tab yes @tab yes +@item @w{ }@w{ }@w{ }@w{ }Missing values in excluded categories @tab --- @tab --- @tab yes +@item @w{ }@w{ }@w{ }@w{ }Valid values in excluded categories @tab --- @tab --- @tab --- +@item @headitemfont{Scale variables:} +@item @w{ }@w{ }@w{ }@w{ }Valid values @tab yes @tab yes @tab yes +@item @w{ }@w{ }@w{ }@w{ }User- or system-missing values @tab --- @tab yes @tab yes +@end multitable + +@node CTABLES Scale Missing Values +@subsubsection Scale Missing Values + +@display +@t{/SMISSING} @{@t{VARIABLE} @math{|} @t{LISTWISE}@} +@end display + +The @code{SMISSING} subcommand, which must precede the first +@code{TABLE} subcommand, controls treatment of missing values for +scalar variables in producing all the output tables. @code{SMISSING} +is optional. + +With @code{SMISSING=VARIABLE}, which is the default, missing values +are excluded on a variable-by-variable basis. With +@code{SMISSING=LISTWISE}, when stacked scalar variables are nested +together with a categorical variable, a missing value for any of the +scalar variables causes the case to be excluded for all of them. + +As an example, consider the following dataset, in which @samp{x} is a +categorical variable and @samp{y} and @samp{z} are scale: + +@psppoutput{ctables18} + +@noindent +With the default missing-value treatment, @samp{x}'s mean is 20, based +on the values 10, 20, and 30, and @samp{y}'s mean is 50, based on 40, +50, and 60: + +@example +CTABLES /TABLE (y + z) > x. +@end example +@psppoutput{ctables19} + +@noindent +By adding @code{SMISSING=LISTWISE}, only cases where @samp{y} and +@samp{z} are both non-missing are considered, so @samp{x}'s mean +becomes 15, as the average of 10 and 20, and @samp{y}'s mean becomes +55, the average of 50 and 60: + +@example +CTABLES /SMISSING LISTWISE /TABLE (y + z) > x. +@end example +@psppoutput{ctables20} + +@noindent +Even with @code{SMISSING=LISTWISE}, if @samp{y} and @samp{z} are +separately nested with @samp{x}, instead of using a single @samp{>} +operator, missing values revert to being considered on a +variable-by-variable basis: + +@example +CTABLES /SMISSING LISTWISE /TABLE (y > x) + (z > x). +@end example +@psppoutput{ctables21} + +@node CTABLES Computed Categories +@subsection Computed Categories + +@display +@t{/PCOMPUTE} @t{&}@i{postcompute}@t{=EXPR(}@i{expression}@t{)} +@t{/PPROPERTIES} @t{&}@i{postcompute}@dots{} + [@t{LABEL=}@i{string}] + [@t{FORMAT=}[@i{summary} @i{format}]@dots{}] + [@t{HIDESOURCECATS=}@{@t{NO} @math{|} @t{YES}@} +@end display + +@dfn{Computed categories}, also called @dfn{postcomputes}, are +categories created using arithmetic on categories obtained from the +data. The @code{PCOMPUTE} subcommand creates a postcompute, which may +then be used on @code{CATEGORIES} within an explicit category list +(@pxref{CTABLES Explicit Category List}). Optionally, +@code{PPROPERTIES} refines how a postcompute is displayed. The +following sections provide the details. + +@node CTABLES PCOMPUTE +@subsubsection PCOMPUTE + +@display +@t{/PCOMPUTE} @t{&}@i{postcompute}@t{=EXPR(}@i{expression}@t{)} +@end display + +The @code{PCOMPUTE} subcommand, which must precede the first +@code{TABLE} command, defines computed categories. It is optional and +may be used any number of times to define multiple postcomputes. + +Each @code{PCOMPUTE} defines one postcompute. Its syntax consists of +a name to identify the postcompute as a @pspp{} identifier prefixed by +@samp{&}, followed by @samp{=} and a postcompute expression enclosed +in @code{EXPR(@dots{})}. A postcompute expression consists of: + +@table @t +@item [@i{category}] +This form evaluates to the summary statistic for @i{category}, e.g.@: +@code{[1]} evaluates to the value of the summary statistic associated +with category 1. The @i{category} may be a number, a quoted string, +or a quoted time or date value. All of the categories for a given +postcompute must have the same form. The category must appear in all +the @code{CATEGORIES} list in which the postcompute is used. + +@item [@i{min} THRU @i{max}] +@itemx [LO THRU @i{max}] +@itemx [@i{min} THRU HI] +@itemx MISSING +@itemx OTHERNM +These forms evaluate to the summary statistics for a category +specified with the same syntax, as described in previous section +(@pxref{CTABLES Explicit Category List}). The category must appear in +all the @code{CATEGORIES} list in which the postcompute is used. + +@item SUBTOTAL +The summary statistic for the subtotal category. This form is allowed +only if the @code{CATEGORIES} lists that include this postcompute have +exactly one subtotal. + +@item SUBTOTAL[@i{index}] +The summary statistic for subtotal category @i{index}, where 1 is the +first subtotal, 2 is the second, and so on. This form may be used for +@code{CATEGORIES} lists with any number of subtotals. + +@item TOTAL +The summary statistic for the total. The @code{CATEGORIES} lsits that +include this postcompute must have a total enabled. + +@item @i{a} + @i{b} +@itemx @i{a} - @i{b} +@itemx @i{a} * @i{b} +@itemx @i{a} / @i{b} +@itemx @i{a} ** @i{b} +These forms perform arithmetic on the values of postcompute +expressions @i{a} and @i{b}. The usual operator precedence rules +apply. + +@item @i{number} +Numeric constants may be used in postcompute expressions. + +@item (@i{a}) +Parentheses override operator precedence. +@end table + +A postcompute is not associated with any particular variable. +Instead, it may be referenced within @code{CATEGORIES} for any +suitable variable (e.g.@: only a string variable is suitable for a +postcompute expression that refers to a string category, only a +variable with subtotals for an expression that refers to subtotals, +@dots{}). + +Normally a named postcompute is defined only once, but if a later +@code{PCOMPUTE} redefines a postcompute with the same name as an +earlier one, the later one take precedence. + +The following syntax and output shows how @code{PCOMPUTE} can compute +a total over subtotals, summing the ``Frequent Drivers'' and +``Infrequent Drivers'' subtotals to form an ``All Drivers'' +postcompute. It also shows how to calculate and display a percentage, +in this case the percentage of valid responses that report never +driving. It uses @code{PPROPERTIES} (@pxref{CTABLES PPROPERTIES}) to +display the latter in @code{PCT} format. + +@example +CTABLES + /PCOMPUTE &all_drivers=EXPR([1 THRU 2] + [3 THRU 4]) + /PPROPERTIES &all_drivers LABEL='All Drivers' + /PCOMPUTE &pct_never=EXPR([5] / ([1 THRU 2] + [3 THRU 4] + [5]) * 100) + /PPROPERTIES &pct_never LABEL='% Not Drivers' FORMAT=COUNT PCT40.1 + /TABLE=qn1 BY qns3a + /CATEGORIES VARIABLES=qn1 [1 THRU 2, SUBTOTAL='Frequent Drivers', + 3 THRU 4, SUBTOTAL='Infrequent Drivers', + &all_drivers, 5, &pct_never, + MISSING, SUBTOTAL='Not Drivers or Missing']. +@end example +@psppoutput{ctables35} + +@node CTABLES PPROPERTIES +@subsubsection PPROPERTIES + +@display +@t{/PPROPERTIES} @t{&}@i{postcompute}@dots{} + [@t{LABEL=}@i{string}] + [@t{FORMAT=}[@i{summary} @i{format}]@dots{}] + [@t{HIDESOURCECATS=}@{@t{NO} @math{|} @t{YES}@} +@end display + +The @code{PPROPERTIES} subcommand, which must appear before +@code{TABLE}, sets properties for one or more postcomputes defined on +prior @code{PCOMPUTE} subcommands. The subcommand syntax begins with +the list of postcomputes, each prefixed with @samp{&} as specified on +@code{PCOMPUTE}. + +All of the settings on @code{PPROPERTIES} are optional. Use +@code{LABEL} to set the label shown for the postcomputes in table +output. The default label for a postcompute is the expression used to +define it. + +A postcompute always uses same summary functions as the variable whose +categories contain it, but @code{FORMAT} allows control over the +format used to display their values. It takes a list of summary +function names and format specifiers. + +By default, or with @code{HIDESOURCECATS=NO}, categories referred to +by computed categories are displayed like other categories. Use +@code{HIDESOURCECATS=YES} to hide them. + +The previous section provides an example for @code{PPROPERTIES}. + +@node CTABLES Effective Weight +@subsection Effective Weight + +@display +@t{/WEIGHT VARIABLE=}@i{variable} +@end display + +The @code{WEIGHT} subcommand is optional and must appear before +@code{TABLE}. If it appears, it must name a numeric variable, known +as the @dfn{effective weight} or @dfn{adjustment weight}. The +effective weight variable stands in for the dictionary's weight +variable (@pxref{WEIGHT}), if any, in most calculations in +@code{CTABLES}. The only exceptions are the @code{COUNT}, +@code{TOTALN}, and @code{VALIDN} summary functions, which use the +dictionary weight instead. + +Weights obtained from the @pspp{} dictionary are rounded to the +nearest integer at the case level. Effective weights are not rounded. +Regardless of the weighting source, @pspp{} does not analyze cases +with zero, missing, or negative effective weights. + +@node CTABLES Hiding Small Counts +@subsection Hiding Small Counts + +@display +@t{/HIDESMALLCOUNTS COUNT=@i{count}} +@end display + +The @code{HIDESMALLCOUNTS} subcommand is optional. If it specified, +then @code{COUNT}, @code{ECOUNT}, and @code{UCOUNT} values in output +tables less than the value of @i{count} are shown as @code{<@i{count}} +instead of their true values. The value of @i{count} must be an +integer and must be at least 2. + +The following syntax and example shows how to use +@code{HIDESMALLCOUNTS}: + +@example +CTABLES /HIDESMALLCOUNTS COUNT=10 /TABLE qn37. +@end example +@psppoutput{ctables36} @node FACTOR @section FACTOR diff --git a/doc/tutorial.stt b/doc/tutorial.stt index 130ae9b23b..5c15a7130d 100644 --- a/doc/tutorial.stt +++ b/doc/tutorial.stt @@ -49,5 +49,5 @@ - + diff --git a/doc/utilities.texi b/doc/utilities.texi index 4cad836ad1..5062ead2eb 100644 --- a/doc/utilities.texi +++ b/doc/utilities.texi @@ -861,6 +861,7 @@ If the value has no label, then the literal value is used for display. If @subcmd{TNUMBERS} is set to @subcmd{BOTH}, then values are displayed with both their label (if any) and their literal value in parentheses. @item TVARS +@anchor{SET TVARS} The @subcmd{TVARS} option sets the way in which variables are displayed in output tables. The valid settings are @subcmd{NAMES}, @subcmd{LABELS} and @subcmd{BOTH}. If @subcmd{TVARS} is set to @subcmd{NAMES}, then all variables are displayed using their names. diff --git a/doc/variables.texi b/doc/variables.texi index 5cc1a23620..ab6f83daea 100644 --- a/doc/variables.texi +++ b/doc/variables.texi @@ -600,18 +600,12 @@ purposes. It does not affect the display of variables in the @pspp{} output. @section VARIABLE LEVEL @vindex VARIABLE LEVEL @display -VARIABLE LEVEL - @var{var_list} ( SCALE | NOMINAL | ORDINAL ) - [ /@var{var_list} ( SCALE | NOMINAL | ORDINAL ) ] - . - . - . - [ /@var{var_list} ( SCALE | NOMINAL | ORDINAL ) ] +@t{VARIABLE LEVEL} @i{variables} @t{(}@{@t{SCALE} @math{|} @t{NOMINAL} @math{|} @t{ORDINAL}@}@t{)}@dots{} @end display -@cmd{VARIABLE LEVEL} sets the measurement level of variables. -Currently, this has no effect except for certain third party software. - +@cmd{VARIABLE LEVEL} sets the measurement level of @var{variables} as +specified. @xref{Attributes}, for the definitions of the available +measurement levels. @node VARIABLE ROLE @section VARIABLE ROLE diff --git a/examples/automake.mk b/examples/automake.mk index fd78765c00..b20cfea8a9 100644 --- a/examples/automake.mk +++ b/examples/automake.mk @@ -25,10 +25,14 @@ examples_DATA = \ examples/grid.sps \ examples/hotel.sav \ examples/horticulture.sav \ + examples/nhtsa.sav \ examples/personnel.sav \ examples/physiology.sav \ examples/repairs.sav \ examples/regress.sps \ examples/regress_categorical.sps -EXTRA_DIST += $(examples_DATA) +EXTRA_DIST += \ + $(examples_DATA) \ + examples/nhtsa-drinking-2008.sav \ + examples/nhtsa-drinking-2008.sps diff --git a/examples/nhtsa-drinking-2008.sav b/examples/nhtsa-drinking-2008.sav new file mode 100644 index 0000000000..bae9e0109e Binary files /dev/null and b/examples/nhtsa-drinking-2008.sav differ diff --git a/examples/nhtsa-drinking-2008.sps b/examples/nhtsa-drinking-2008.sps new file mode 100644 index 0000000000..84cbc6a440 --- /dev/null +++ b/examples/nhtsa-drinking-2008.sps @@ -0,0 +1,102 @@ +* This syntax reads 'nhtsa-drinking-2008.sav', which is the exact file + obtained from data.gov and adjusts the dictionary to better reflect + the data's real measurement levels, formats, missing values, and + other metadata, and saves it as 'nhtsa.sav'. + +GET 'nhtsa-drinking-2008.sav'. +VARIABLE LEVEL + ALL (NOMINAL) + qns1 qn1 qn15 qn49 qn87 qn103 qn105ba TO qn105bd qn122c qn139a TO qn139n qn139ca TO qn139cn qn140aa TO qn140af qnd8 qnd11 (ORDINAL) + id qn18 qn19a qn20 qn23 qn31 qn35 qn36 qn38 qn41 qn44 qn52 qn65 qn66 qn114 qn121 qn126 qnd1 qnd1b qnd9 (SCALE). +FORMATS + state qns1 qn1 (F2.0) + qn100 qn102 qn103 qn116 qn123 qn131a qn133 qn139a qn139e qn139g qn139h (F1.0). +MISSING VALUES + qns1 (97, 98, 99) + qn1 (6, 7) + qn15 (8, 9) + qn17 (2, 3) + qn18 (98, 99) + qn19a (97, 98, 99) + qn20 qn23 (98, 99) + qn26 qn27 qn28 qn29 (3, 4) + qn31 (98, 99) + qn33 (3, 4) + qn35 (998, 999) + qn36 (98, 99) + qn37 (2, 3) + qn38 (998, 999) + qn39h (0) + qn39m (0) + qn41 (998, 999) + qn43a (3, 4) + qn44 (98, 99) + qn44a (98, 99) + qn49 (5, 6) + qn52 (998, 999) + qn56 (2, 3) + qn57 (3, 4) + qn61 (3, 4) + qn64b (3, 4) + qn65 (98, 99) + qn65a (3, 4) + qn66 (98, 99) + qn86 (3, 4) + qn87 (6, 7) + qn88_1 qn88_2 qn88_3 (2, 3) + qn89 qn90 qn90a (3, 4) + qn91_1 qn91_2 qn91_3 (2, 3) + qn96a (3, 4) + qn100 (3, 4) + qn101 (2, 3) + qn102 qn102b qn102c (3, 4) + qn103 (4, 5) + qn105ba qn105bb qn105bc qn105bd (6, 7) + qn113 (3, 4) + qn114 (98, 99) + qn116 (7, 8) + qn120 (3, 4) + qn121 (998, 999) + qn122c (6, 7) + qn123 (3, 4) + qn126 (98, 99) + qn131a (3, 4) + qn132a (3, 4) + qn133 (3, 4) + qn139a qn139e qn139g qn139h qn139k qn139l qn139m qn139n (6, 7) + qn139_a (3, 4) + qn139_b (98, 99) + qn139ca qn139ce qn139cf qn139cg qn139ch qn139ck qn139cl qn139cn (6, 7) + qn140aa qn140ab qn140ac qn140ad qn140ae qn140af (6, 7) + qnd1 (998, 999) + qnd1b (8, 9) + qnd2_1 qnd2_2 qnd2_3 (2, 3) + qnd3 (10, 11) + qnd5 (3, 4) + qnd5a (9, 10) + qnd6_1 qnd6_2 qnd6_3 qnd6_4 qnd6_5 (2, 3) + qnd7a (3, 4) + qnd8 (8, 9) + qnd9 (997, 998, 999) + qnd11a (3, 4) + qnd11 (6, 7). +RECODE qnd1 (LO THRU 15=1) + (16 THRU 25=2) + (26 THRU 35=3) + (36 THRU 45=4) + (46 THRU 55=5) + (56 THRU 65=6) + (66 THRU HI=7) + INTO agegroup. +VAR LEVEL agegroup (ORDINAL). +VARIABLE LABEL agegroup 'Age group'. +VALUE LABELS + /agegroup + 1 '15 or younger' + 2 '16 to 25' + 3 '26 to 35' + 4 '36 to 45' + 5 '46 to 55' + 6 '56 to 65' + 7 '66 or older'. +SAVE OUTFILE='nhtsa.sav'. diff --git a/examples/nhtsa.sav b/examples/nhtsa.sav new file mode 100644 index 0000000000..48d0143544 Binary files /dev/null and b/examples/nhtsa.sav differ diff --git a/src/language/command.def b/src/language/command.def index 352f7c1078..6db5e74e2e 100644 --- a/src/language/command.def +++ b/src/language/command.def @@ -114,6 +114,7 @@ DEF_CMD (S_DATA, 0, "AUTORECODE", cmd_autorecode) DEF_CMD (S_DATA, 0, "BEGIN DATA", cmd_begin_data) DEF_CMD (S_DATA, 0, "COUNT", cmd_count) DEF_CMD (S_DATA, 0, "CROSSTABS", cmd_crosstabs) +DEF_CMD (S_DATA, 0, "CTABLES", cmd_ctables) DEF_CMD (S_DATA, 0, "CORRELATIONS", cmd_correlation) DEF_CMD (S_DATA, 0, "DELETE VARIABLES", cmd_delete_variables) DEF_CMD (S_DATA, 0, "DESCRIPTIVES", cmd_descriptives) @@ -194,7 +195,6 @@ UNIMPL_CMD ("CSLOGISTIC", "Complex samples logistic regression") UNIMPL_CMD ("CSPLAN", "Complex samples design") UNIMPL_CMD ("CSSELECT", "Select complex samples") UNIMPL_CMD ("CSTABULATE", "Tabulate complex samples") -UNIMPL_CMD ("CTABLES", "Display complex samples") UNIMPL_CMD ("CURVEFIT", "Fit curve to line plot") UNIMPL_CMD ("DATE", "Create time series data") UNIMPL_CMD ("DETECTANOMALY", "Find unusual cases") diff --git a/src/language/stats/automake.mk b/src/language/stats/automake.mk index 460e95e707..26284d9f5c 100644 --- a/src/language/stats/automake.mk +++ b/src/language/stats/automake.mk @@ -31,6 +31,8 @@ language_stats_sources = \ src/language/stats/cochran.h \ src/language/stats/correlations.c \ src/language/stats/crosstabs.c \ + src/language/stats/ctables.c \ + src/language/stats/ctables.inc \ src/language/stats/descriptives.c \ src/language/stats/examine.c \ src/language/stats/factor.c \ diff --git a/src/language/stats/ctables.c b/src/language/stats/ctables.c new file mode 100644 index 0000000000..7d2f15df5a --- /dev/null +++ b/src/language/stats/ctables.c @@ -0,0 +1,6704 @@ +/* PSPP - a program for statistical analysis. + Copyright (C) 2021 Free Software Foundation, Inc. + + This program is free software: you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation, either version 3 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program. If not, see . */ + +#include + +#include +#include + +#include "data/casegrouper.h" +#include "data/casereader.h" +#include "data/casewriter.h" +#include "data/data-in.h" +#include "data/data-out.h" +#include "data/dataset.h" +#include "data/dictionary.h" +#include "data/mrset.h" +#include "data/subcase.h" +#include "data/value-labels.h" +#include "language/command.h" +#include "language/dictionary/split-file.h" +#include "language/lexer/format-parser.h" +#include "language/lexer/lexer.h" +#include "language/lexer/token.h" +#include "language/lexer/variable-parser.h" +#include "libpspp/array.h" +#include "libpspp/assertion.h" +#include "libpspp/hash-functions.h" +#include "libpspp/hmap.h" +#include "libpspp/i18n.h" +#include "libpspp/message.h" +#include "libpspp/string-array.h" +#include "math/mode.h" +#include "math/moments.h" +#include "math/percentiles.h" +#include "math/sort.h" +#include "output/pivot-table.h" + +#include "gl/minmax.h" +#include "gl/xalloc.h" + +#include "gettext.h" +#define _(msgid) gettext (msgid) +#define N_(msgid) (msgid) + +struct ctables; + +/* The three forms of weighting supported by CTABLES. */ +enum ctables_weighting + { + CTW_EFFECTIVE, /* Effective base weight (WEIGHT subcommand). */ + CTW_DICTIONARY, /* Dictionary weight. */ + CTW_UNWEIGHTED /* No weight. */ +#define N_CTWS 3 + }; + +/* CTABLES table areas. */ + +enum ctables_area_type + { + /* Within a section, where stacked variables divide one section from + another. + + Keep CTAT_LAYER after CTAT_LAYERROW and CTAT_LAYERCOL so that + parse_ctables_summary_function() parses correctly. */ + CTAT_TABLE, /* All layers of a whole section. */ + CTAT_LAYERROW, /* Row in one layer within a section. */ + CTAT_LAYERCOL, /* Column in one layer within a section. */ + CTAT_LAYER, /* One layer within a section. */ + + /* Within a subtable, where a subtable pairs an innermost row variable with + an innermost column variable within a single layer. */ + CTAT_SUBTABLE, /* Whole subtable. */ + CTAT_ROW, /* Row within a subtable. */ + CTAT_COL, /* Column within a subtable. */ +#define N_CTATS 7 + }; + +static const char *ctables_area_type_name[N_CTATS] = { + [CTAT_TABLE] = "TABLE", + [CTAT_LAYER] = "LAYER", + [CTAT_LAYERROW] = "LAYERROW", + [CTAT_LAYERCOL] = "LAYERCOL", + [CTAT_SUBTABLE] = "SUBTABLE", + [CTAT_ROW] = "ROW", + [CTAT_COL] = "COL", +}; + +/* Summary statistics for an area. */ +struct ctables_area + { + struct hmap_node node; + const struct ctables_cell *example; + + /* Sequence number used for CTSF_ID. */ + size_t sequence; + + /* Weights for CTSF_areaPCT_COUNT, CTSF_areaPCT_VALIDN, and + CTSF_areaPCT_TOTALN. */ + double count[N_CTWS]; + double valid[N_CTWS]; + double total[N_CTWS]; + + /* Sums for CTSF_areaPCT_SUM. */ + struct ctables_sum *sums; + }; + +struct ctables_sum + { + double sum[N_CTWS]; + }; + +/* CTABLES summary functions. */ + +enum ctables_function_type + { + /* A function that operates on data in a single cell. It operates on + effective weights. It does not have an unweighted version. */ + CTFT_CELL, + + /* A function that operates on data in a single cell. The function + operates on effective weights and has a U-prefixed unweighted + version. */ + CTFT_UCELL, + + /* A function that operates on data in a single cell. It operates on + dictionary weights, and has U-prefixed unweighted version and an + E-prefixed effective weight version. */ + CTFT_UECELL, + + /* A function that operates on an area of cells. It operates on effective + weights and has a U-prefixed unweighted version. */ + CTFT_AREA, + }; + +enum ctables_format + { + CTF_COUNT, /* F40.0. */ + CTF_PERCENT, /* PCT40.1. */ + CTF_GENERAL /* Variable's print format. */ + }; + +enum ctables_function_availability + { + CTFA_ALL, /* Any variables. */ + CTFA_SCALE, /* Only scale variables, totals, and subtotals. */ + //CTFA_MRSETS, /* Only multiple-response sets */ + }; + +enum ctables_summary_function + { +#define S(ENUM, NAME, TYPE, FORMAT, AVAILABILITY) ENUM, +#include "ctables.inc" +#undef S + }; + +enum { +#define S(ENUM, NAME, TYPE, FORMAT, AVAILABILITY) +1 + N_CTSF_FUNCTIONS = +#include "ctables.inc" +#undef S +}; + +struct ctables_function_info + { + struct substring basename; + enum ctables_function_type type; + enum ctables_format format; + enum ctables_function_availability availability; + + bool u_prefix; /* Accepts a 'U' prefix (for unweighted)? */ + bool e_prefix; /* Accepts an 'E' prefix (for effective)? */ + bool is_area; /* Needs an area prefix. */ + }; +static const struct ctables_function_info ctables_function_info[N_CTSF_FUNCTIONS] = { +#define S(ENUM, NAME, TYPE, FORMAT, AVAILABILITY) \ + [ENUM] = { \ + .basename = SS_LITERAL_INITIALIZER (NAME), \ + .type = TYPE, \ + .format = FORMAT, \ + .availability = AVAILABILITY, \ + .u_prefix = (TYPE) == CTFT_UCELL || (TYPE) == CTFT_UECELL || (TYPE) == CTFT_AREA, \ + .e_prefix = (TYPE) == CTFT_UECELL, \ + .is_area = (TYPE) == CTFT_AREA \ + }, +#include "ctables.inc" +#undef S +}; + +static struct fmt_spec +ctables_summary_default_format (enum ctables_summary_function function, + const struct variable *var) +{ + static const enum ctables_format default_formats[] = { +#define S(ENUM, NAME, TYPE, FORMAT, AVAILABILITY) [ENUM] = FORMAT, +#include "ctables.inc" +#undef S + }; + switch (default_formats[function]) + { + case CTF_COUNT: + return (struct fmt_spec) { .type = FMT_F, .w = 40 }; + + case CTF_PERCENT: + return (struct fmt_spec) { .type = FMT_PCT, .w = 40, .d = 1 }; + + case CTF_GENERAL: + return *var_get_print_format (var); + + default: + NOT_REACHED (); + } +} + +static enum ctables_function_availability +ctables_function_availability (enum ctables_summary_function f) +{ + static enum ctables_function_availability availability[] = { +#define S(ENUM, NAME, TYPE, FORMAT, AVAILABILITY) [ENUM] = AVAILABILITY, +#include "ctables.inc" +#undef S + }; + + return availability[f]; +} + +static bool +parse_ctables_summary_function (struct lexer *lexer, + enum ctables_summary_function *function, + enum ctables_weighting *weighting, + enum ctables_area_type *area) +{ + if (!lex_force_id (lexer)) + return false; + + struct substring name = lex_tokss (lexer); + if (ss_ends_with_case (name, ss_cstr (".LCL")) + || ss_ends_with_case (name, ss_cstr (".UCL")) + || ss_ends_with_case (name, ss_cstr (".SE"))) + { + lex_error (lexer, _("Support for LCL, UCL, and SE summary functions " + "is not yet implemented.")); + return false; + } + + bool u = ss_match_byte (&name, 'U') || ss_match_byte (&name, 'u'); + bool e = !u && (ss_match_byte (&name, 'E') || ss_match_byte (&name, 'e')); + + bool has_area = false; + *area = 0; + for (enum ctables_area_type at = 0; at < N_CTATS; at++) + if (ss_match_string_case (&name, ss_cstr (ctables_area_type_name[at]))) + { + has_area = true; + *area = at; + + if (ss_equals_case (name, ss_cstr ("PCT"))) + { + /* Special case where .COUNT suffix is omitted. */ + *function = CTSF_areaPCT_COUNT; + *weighting = CTW_EFFECTIVE; + lex_get (lexer); + return true; + } + break; + } + + for (int f = 0; f < N_CTSF_FUNCTIONS; f++) + { + const struct ctables_function_info *cfi = &ctables_function_info[f]; + if (ss_equals_case (cfi->basename, name)) + { + *function = f; + if ((u && !cfi->u_prefix) || (e && !cfi->e_prefix) || (has_area != cfi->is_area)) + break; + + *weighting = (e ? CTW_EFFECTIVE + : u ? CTW_UNWEIGHTED + : cfi->e_prefix ? CTW_DICTIONARY + : CTW_EFFECTIVE); + lex_get (lexer); + return true; + } + } + + lex_error (lexer, _("Expecting summary function name.")); + return false; +} + +static const char * +ctables_summary_function_name (enum ctables_summary_function function, + enum ctables_weighting weighting, + enum ctables_area_type area, + char *buffer, size_t bufsize) +{ + const struct ctables_function_info *cfi = &ctables_function_info[function]; + snprintf (buffer, bufsize, "%s%s%s", + (weighting == CTW_UNWEIGHTED ? "U" + : weighting == CTW_DICTIONARY ? "" + : cfi->e_prefix ? "E" + : ""), + cfi->is_area ? ctables_area_type_name[area] : "", + cfi->basename.string); + return buffer; +} + +static const char * +ctables_summary_function_label__ (enum ctables_summary_function function, + enum ctables_weighting weighting, + enum ctables_area_type area) +{ + bool w = weighting != CTW_UNWEIGHTED; + bool d = weighting == CTW_DICTIONARY; + enum ctables_area_type a = area; + switch (function) + { + case CTSF_COUNT: + return d ? N_("Count") : w ? N_("Adjusted Count") : N_("Unweighted Count"); + + case CTSF_areaPCT_COUNT: + switch (a) + { + case CTAT_TABLE: return w ? N_("Table %") : N_("Unweighted Table %"); + case CTAT_LAYER: return w ? N_("Layer %") : N_("Unweighted Layer %"); + case CTAT_LAYERROW: return w ? N_("Layer Row %") : N_("Unweighted Layer Row %"); + case CTAT_LAYERCOL: return w ? N_("Layer Column %") : N_("Unweighted Layer Column %"); + case CTAT_SUBTABLE: return w ? N_("Subtable %") : N_("Unweighted Subtable %"); + case CTAT_ROW: return w ? N_("Row %") : N_("Unweighted Row %"); + case CTAT_COL: return w ? N_("Column %") : N_("Unweighted Column %"); + } + NOT_REACHED (); + + case CTSF_areaPCT_VALIDN: + switch (a) + { + case CTAT_TABLE: return w ? N_("Table Valid N %") : N_("Unweighted Table Valid N %"); + case CTAT_LAYER: return w ? N_("Layer Valid N %") : N_("Unweighted Layer Valid N %"); + case CTAT_LAYERROW: return w ? N_("Layer Row Valid N %") : N_("Unweighted Layer Row Valid N %"); + case CTAT_LAYERCOL: return w ? N_("Layer Column Valid N %") : N_("Unweighted Layer Column Valid N %"); + case CTAT_SUBTABLE: return w ? N_("Subtable Valid N %") : N_("Unweighted Subtable Valid N %"); + case CTAT_ROW: return w ? N_("Row Valid N %") : N_("Unweighted Row Valid N %"); + case CTAT_COL: return w ? N_("Column Valid N %") : N_("Unweighted Column Valid N %"); + } + NOT_REACHED (); + + case CTSF_areaPCT_TOTALN: + switch (a) + { + case CTAT_TABLE: return w ? N_("Table Total N %") : N_("Unweighted Table Total N %"); + case CTAT_LAYER: return w ? N_("Layer Total N %") : N_("Unweighted Layer Total N %"); + case CTAT_LAYERROW: return w ? N_("Layer Row Total N %") : N_("Unweighted Layer Row Total N %"); + case CTAT_LAYERCOL: return w ? N_("Layer Column Total N %") : N_("Unweighted Layer Column Total N %"); + case CTAT_SUBTABLE: return w ? N_("Subtable Total N %") : N_("Unweighted Subtable Total N %"); + case CTAT_ROW: return w ? N_("Row Total N %") : N_("Unweighted Row Total N %"); + case CTAT_COL: return w ? N_("Column Total N %") : N_("Unweighted Column Total N %"); + } + NOT_REACHED (); + + case CTSF_MAXIMUM: return N_("Maximum"); + case CTSF_MEAN: return w ? N_("Mean") : N_("Unweighted Mean"); + case CTSF_MEDIAN: return w ? N_("Median") : N_("Unweighted Median"); + case CTSF_MINIMUM: return N_("Minimum"); + case CTSF_MISSING: return w ? N_("Missing") : N_("Unweighted Missing"); + case CTSF_MODE: return w ? N_("Mode") : N_("Unweighted Mode"); + case CTSF_PTILE: NOT_REACHED (); + case CTSF_RANGE: return N_("Range"); + case CTSF_SEMEAN: return w ? N_("Std Error of Mean") : N_("Unweighted Std Error of Mean"); + case CTSF_STDDEV: return w ? N_("Std Deviation") : N_("Unweighted Std Deviation"); + case CTSF_SUM: return w ? N_("Sum") : N_("Unweighted Sum"); + case CTSF_TOTALN: return (d ? N_("Total N") + : w ? N_("Adjusted Total N") + : N_("Unweighted Total N")); + case CTSF_VALIDN: return (d ? N_("Valid N") + : w ? N_("Adjusted Valid N") + : N_("Unweighted Valid N")); + case CTSF_VARIANCE: return w ? N_("Variance") : N_("Unweighted Variance"); + case CTSF_areaPCT_SUM: + switch (a) + { + case CTAT_TABLE: return w ? N_("Table Sum %") : N_("Unweighted Table Sum %"); + case CTAT_LAYER: return w ? N_("Layer Sum %") : N_("Unweighted Layer Sum %"); + case CTAT_LAYERROW: return w ? N_("Layer Row Sum %") : N_("Unweighted Layer Row Sum %"); + case CTAT_LAYERCOL: return w ? N_("Layer Column Sum %") : N_("Unweighted Layer Column Sum %"); + case CTAT_SUBTABLE: return w ? N_("Subtable Sum %") : N_("Unweighted Subtable Sum %"); + case CTAT_ROW: return w ? N_("Row Sum %") : N_("Unweighted Row Sum %"); + case CTAT_COL: return w ? N_("Column Sum %") : N_("Unweighted Column Sum %"); + } + NOT_REACHED (); + + case CTSF_areaID: + switch (a) + { + /* Don't bother translating these: they are for developers only. */ + case CTAT_TABLE: return "Table ID"; + case CTAT_LAYER: return "Layer ID"; + case CTAT_LAYERROW: return "Layer Row ID"; + case CTAT_LAYERCOL: return "Layer Column ID"; + case CTAT_SUBTABLE: return "Subtable ID"; + case CTAT_ROW: return "Row ID"; + case CTAT_COL: return "Column ID"; + } + NOT_REACHED (); + } + + NOT_REACHED (); +} + +static struct pivot_value * +ctables_summary_function_label (enum ctables_summary_function function, + enum ctables_weighting weighting, + enum ctables_area_type area, + double percentile) +{ + if (function == CTSF_PTILE) + { + char *s = (weighting != CTW_UNWEIGHTED + ? xasprintf (_("Percentile %.2f"), percentile) + : xasprintf (_("Unweighted Percentile %.2f"), percentile)); + return pivot_value_new_user_text_nocopy (s); + } + else + return pivot_value_new_text (ctables_summary_function_label__ ( + function, weighting, area)); +} + +/* CTABLES summaries. */ + +struct ctables_summary_spec + { + /* The calculation to be performed. + + 'function' is the function to calculate. 'weighted' specifies whether + to use weighted or unweighted data (for functions that do not support a + choice, it must be true). 'calc_area' is the area over which the + calculation takes place (for functions that target only an individual + cell, it must be 0). For CTSF_PTILE only, 'percentile' is the + percentile between 0 and 100 (for other functions it must be 0). */ + enum ctables_summary_function function; + enum ctables_weighting weighting; + enum ctables_area_type calc_area; + double percentile; /* CTSF_PTILE only. */ + + /* How to display the result of the calculation. + + 'label' is a user-specified label, NULL if the user didn't specify + one. + + 'user_area' is usually the same as 'calc_area', but when category labels + are rotated from one axis to another it swaps rows and columns. + + 'format' is the format for displaying the output. If + 'is_ctables_format' is true, then 'format.type' is one of the special + CTEF_* formats instead of the standard ones. */ + char *label; + enum ctables_area_type user_area; + struct fmt_spec format; + bool is_ctables_format; /* Is 'format' one of CTEF_*? */ + + size_t axis_idx; /* Leaf index if summary dimension in use. */ + size_t sum_var_idx; /* Offset into 'sums' in ctables_area. */ + }; + +static void +ctables_summary_spec_clone (struct ctables_summary_spec *dst, + const struct ctables_summary_spec *src) +{ + *dst = *src; + dst->label = xstrdup_if_nonnull (src->label); +} + +static void +ctables_summary_spec_uninit (struct ctables_summary_spec *s) +{ + if (s) + free (s->label); +} + +/* Collections of summary functions. */ + +struct ctables_summary_spec_set + { + struct ctables_summary_spec *specs; + size_t n; + size_t allocated; + + /* The variable to which the summary specs are applied. */ + struct variable *var; + + /* Whether the variable to which the summary specs are applied is a scale + variable for the purpose of summarization. + + (VALIDN and TOTALN act differently for summarizing scale and categorical + variables.) */ + bool is_scale; + + /* If any of these optional additional scale variables are missing, then + treat 'var' as if it's missing too. This is for implementing + SMISSING=LISTWISE. */ + struct variable **listwise_vars; + size_t n_listwise_vars; + }; + +static void +ctables_summary_spec_set_clone (struct ctables_summary_spec_set *dst, + const struct ctables_summary_spec_set *src) +{ + struct ctables_summary_spec *specs + = (src->n ? xnmalloc (src->n, sizeof *specs) : NULL); + for (size_t i = 0; i < src->n; i++) + ctables_summary_spec_clone (&specs[i], &src->specs[i]); + + *dst = (struct ctables_summary_spec_set) { + .specs = specs, + .n = src->n, + .allocated = src->n, + .var = src->var, + .is_scale = src->is_scale, + }; +} + +static void +ctables_summary_spec_set_uninit (struct ctables_summary_spec_set *set) +{ + for (size_t i = 0; i < set->n; i++) + ctables_summary_spec_uninit (&set->specs[i]); + free (set->listwise_vars); + free (set->specs); +} + +static bool +is_listwise_missing (const struct ctables_summary_spec_set *specs, + const struct ccase *c) +{ + for (size_t i = 0; i < specs->n_listwise_vars; i++) + { + const struct variable *var = specs->listwise_vars[i]; + if (var_is_num_missing (var, case_num (c, var))) + return true; + } + + return false; +} + +/* CTABLES postcompute expressions. */ + +struct ctables_postcompute + { + struct hmap_node hmap_node; /* In struct ctables's 'pcompute' hmap. */ + char *name; /* Name, without leading &. */ + + struct msg_location *location; /* Location of definition. */ + struct ctables_pcexpr *expr; + char *label; + struct ctables_summary_spec_set *specs; + bool hide_source_cats; + }; + +struct ctables_pcexpr + { + /* Precedence table: + + () + ** + - + * / + - + + */ + enum ctables_pcexpr_op + { + /* Terminals. */ + CTPO_CONSTANT, /* 5 */ + CTPO_CAT_NUMBER, /* [5] */ + CTPO_CAT_STRING, /* ["STRING"] */ + CTPO_CAT_NRANGE, /* [LO THRU 5] */ + CTPO_CAT_SRANGE, /* ["A" THRU "B"] */ + CTPO_CAT_MISSING, /* MISSING */ + CTPO_CAT_OTHERNM, /* OTHERNM */ + CTPO_CAT_SUBTOTAL, /* SUBTOTAL */ + CTPO_CAT_TOTAL, /* TOTAL */ + + /* Nonterminals. */ + CTPO_ADD, + CTPO_SUB, + CTPO_MUL, + CTPO_DIV, + CTPO_POW, + CTPO_NEG, + } + op; + + union + { + /* CTPO_CAT_NUMBER. */ + double number; + + /* CTPO_CAT_STRING, in dictionary encoding. */ + struct substring string; + + /* CTPO_CAT_NRANGE. */ + double nrange[2]; + + /* CTPO_CAT_SRANGE. */ + struct substring srange[2]; + + /* CTPO_CAT_SUBTOTAL. */ + size_t subtotal_index; + + /* Two elements: CTPO_ADD, CTPO_SUB, CTPO_MUL, CTPO_DIV, CTPO_POW. + One element: CTPO_NEG. */ + struct ctables_pcexpr *subs[2]; + }; + + /* Source location. */ + struct msg_location *location; + }; + +static struct ctables_postcompute *ctables_find_postcompute (struct ctables *, + const char *name); + +static struct ctables_pcexpr *ctables_pcexpr_allocate_binary ( + enum ctables_pcexpr_op, struct ctables_pcexpr *sub0, + struct ctables_pcexpr *sub1); + +typedef struct ctables_pcexpr *parse_recursively_func (struct lexer *, + struct dictionary *); + +static void +ctables_pcexpr_destroy (struct ctables_pcexpr *e) +{ + if (e) + { + switch (e->op) + { + case CTPO_CAT_STRING: + ss_dealloc (&e->string); + break; + + case CTPO_CAT_SRANGE: + for (size_t i = 0; i < 2; i++) + ss_dealloc (&e->srange[i]); + break; + + case CTPO_ADD: + case CTPO_SUB: + case CTPO_MUL: + case CTPO_DIV: + case CTPO_POW: + case CTPO_NEG: + for (size_t i = 0; i < 2; i++) + ctables_pcexpr_destroy (e->subs[i]); + break; + + case CTPO_CONSTANT: + case CTPO_CAT_NUMBER: + case CTPO_CAT_NRANGE: + case CTPO_CAT_MISSING: + case CTPO_CAT_OTHERNM: + case CTPO_CAT_SUBTOTAL: + case CTPO_CAT_TOTAL: + break; + } + + msg_location_destroy (e->location); + free (e); + } +} + +static struct ctables_pcexpr * +ctables_pcexpr_allocate_binary (enum ctables_pcexpr_op op, + struct ctables_pcexpr *sub0, + struct ctables_pcexpr *sub1) +{ + struct ctables_pcexpr *e = xmalloc (sizeof *e); + *e = (struct ctables_pcexpr) { + .op = op, + .subs = { sub0, sub1 }, + .location = msg_location_merged (sub0->location, sub1->location), + }; + return e; +} + +/* How to parse an operator. */ +struct operator + { + enum token_type token; + enum ctables_pcexpr_op op; + }; + +static const struct operator * +ctables_pcexpr_match_operator (struct lexer *lexer, + const struct operator ops[], size_t n_ops) +{ + for (const struct operator *op = ops; op < ops + n_ops; op++) + if (lex_token (lexer) == op->token) + { + if (op->token != T_NEG_NUM) + lex_get (lexer); + + return op; + } + + return NULL; +} + +static struct ctables_pcexpr * +ctables_pcexpr_parse_binary_operators__ ( + struct lexer *lexer, struct dictionary *dict, + const struct operator ops[], size_t n_ops, + parse_recursively_func *parse_next_level, + const char *chain_warning, struct ctables_pcexpr *lhs) +{ + for (int op_count = 0; ; op_count++) + { + const struct operator *op + = ctables_pcexpr_match_operator (lexer, ops, n_ops); + if (!op) + { + if (op_count > 1 && chain_warning) + msg_at (SW, lhs->location, "%s", chain_warning); + + return lhs; + } + + struct ctables_pcexpr *rhs = parse_next_level (lexer, dict); + if (!rhs) + { + ctables_pcexpr_destroy (lhs); + return NULL; + } + + lhs = ctables_pcexpr_allocate_binary (op->op, lhs, rhs); + } +} + +static struct ctables_pcexpr * +ctables_pcexpr_parse_binary_operators ( + struct lexer *lexer, struct dictionary *dict, + const struct operator ops[], size_t n_ops, + parse_recursively_func *parse_next_level, const char *chain_warning) +{ + struct ctables_pcexpr *lhs = parse_next_level (lexer, dict); + if (!lhs) + return NULL; + + return ctables_pcexpr_parse_binary_operators__ (lexer, dict, ops, n_ops, + parse_next_level, + chain_warning, lhs); +} + +static struct ctables_pcexpr *ctables_pcexpr_parse_add (struct lexer *, + struct dictionary *); + +static struct ctables_pcexpr +ctpo_cat_nrange (double low, double high) +{ + return (struct ctables_pcexpr) { + .op = CTPO_CAT_NRANGE, + .nrange = { low, high }, + }; +} + +static struct ctables_pcexpr +ctpo_cat_srange (struct substring low, struct substring high) +{ + return (struct ctables_pcexpr) { + .op = CTPO_CAT_SRANGE, + .srange = { low, high }, + }; +} + +static struct substring +parse_substring (struct lexer *lexer, struct dictionary *dict) +{ + struct substring s = recode_substring_pool ( + dict_get_encoding (dict), "UTF-8", lex_tokss (lexer), NULL); + ss_rtrim (&s, ss_cstr (" ")); + lex_get (lexer); + return s; +} + +static struct ctables_pcexpr * +ctables_pcexpr_parse_primary (struct lexer *lexer, struct dictionary *dict) +{ + int start_ofs = lex_ofs (lexer); + struct ctables_pcexpr e; + if (lex_is_number (lexer)) + { + e = (struct ctables_pcexpr) { .op = CTPO_CONSTANT, + .number = lex_number (lexer) }; + lex_get (lexer); + } + else if (lex_match_id (lexer, "MISSING")) + e = (struct ctables_pcexpr) { .op = CTPO_CAT_MISSING }; + else if (lex_match_id (lexer, "OTHERNM")) + e = (struct ctables_pcexpr) { .op = CTPO_CAT_OTHERNM }; + else if (lex_match_id (lexer, "TOTAL")) + e = (struct ctables_pcexpr) { .op = CTPO_CAT_TOTAL }; + else if (lex_match_id (lexer, "SUBTOTAL")) + { + size_t subtotal_index = 0; + if (lex_match (lexer, T_LBRACK)) + { + if (!lex_force_int_range (lexer, "SUBTOTAL", 1, LONG_MAX)) + return NULL; + subtotal_index = lex_integer (lexer); + lex_get (lexer); + if (!lex_force_match (lexer, T_RBRACK)) + return NULL; + } + e = (struct ctables_pcexpr) { .op = CTPO_CAT_SUBTOTAL, + .subtotal_index = subtotal_index }; + } + else if (lex_match (lexer, T_LBRACK)) + { + if (lex_match_id (lexer, "LO")) + { + if (!lex_force_match_id (lexer, "THRU")) + return false; + + if (lex_is_string (lexer)) + { + struct substring low = { .string = NULL }; + struct substring high = parse_substring (lexer, dict); + e = ctpo_cat_srange (low, high); + } + else + { + if (!lex_force_num (lexer)) + return false; + e = ctpo_cat_nrange (-DBL_MAX, lex_number (lexer)); + lex_get (lexer); + } + } + else if (lex_is_number (lexer)) + { + double number = lex_number (lexer); + lex_get (lexer); + if (lex_match_id (lexer, "THRU")) + { + if (lex_match_id (lexer, "HI")) + e = ctpo_cat_nrange (number, DBL_MAX); + else + { + if (!lex_force_num (lexer)) + return false; + e = ctpo_cat_nrange (number, lex_number (lexer)); + lex_get (lexer); + } + } + else + e = (struct ctables_pcexpr) { .op = CTPO_CAT_NUMBER, + .number = number }; + } + else if (lex_is_string (lexer)) + { + struct substring s = parse_substring (lexer, dict); + + if (lex_match_id (lexer, "THRU")) + { + struct substring high; + + if (lex_match_id (lexer, "HI")) + high = (struct substring) { .string = NULL }; + else + { + if (!lex_force_string (lexer)) + { + ss_dealloc (&s); + return false; + } + high = parse_substring (lexer, dict); + } + + e = ctpo_cat_srange (s, high); + } + else + e = (struct ctables_pcexpr) { .op = CTPO_CAT_STRING, .string = s }; + } + else + { + lex_error (lexer, NULL); + return NULL; + } + + if (!lex_force_match (lexer, T_RBRACK)) + { + if (e.op == CTPO_CAT_STRING) + ss_dealloc (&e.string); + else if (e.op == CTPO_CAT_SRANGE) + { + ss_dealloc (&e.srange[0]); + ss_dealloc (&e.srange[1]); + } + return NULL; + } + } + else if (lex_match (lexer, T_LPAREN)) + { + struct ctables_pcexpr *ep = ctables_pcexpr_parse_add (lexer, dict); + if (!ep) + return NULL; + if (!lex_force_match (lexer, T_RPAREN)) + { + ctables_pcexpr_destroy (ep); + return NULL; + } + return ep; + } + else + { + lex_error (lexer, NULL); + return NULL; + } + + e.location = lex_ofs_location (lexer, start_ofs, lex_ofs (lexer) - 1); + return xmemdup (&e, sizeof e); +} + +static struct ctables_pcexpr * +ctables_pcexpr_allocate_neg (struct ctables_pcexpr *sub, + struct lexer *lexer, int start_ofs) +{ + struct ctables_pcexpr *e = xmalloc (sizeof *e); + *e = (struct ctables_pcexpr) { + .op = CTPO_NEG, + .subs = { sub }, + .location = lex_ofs_location (lexer, start_ofs, lex_ofs (lexer) - 1), + }; + return e; +} + +static struct ctables_pcexpr * +ctables_pcexpr_parse_exp (struct lexer *lexer, struct dictionary *dict) +{ + static const struct operator op = { T_EXP, CTPO_POW }; + + const char *chain_warning = + _("The exponentiation operator (`**') is left-associative: " + "`a**b**c' equals `(a**b)**c', not `a**(b**c)'. " + "To disable this warning, insert parentheses."); + + if (lex_token (lexer) != T_NEG_NUM || lex_next_token (lexer, 1) != T_EXP) + return ctables_pcexpr_parse_binary_operators (lexer, dict, &op, 1, + ctables_pcexpr_parse_primary, + chain_warning); + + /* Special case for situations like "-5**6", which must be parsed as + -(5**6). */ + + int start_ofs = lex_ofs (lexer); + struct ctables_pcexpr *lhs = xmalloc (sizeof *lhs); + *lhs = (struct ctables_pcexpr) { + .op = CTPO_CONSTANT, + .number = -lex_tokval (lexer), + .location = lex_ofs_location (lexer, start_ofs, lex_ofs (lexer)), + }; + lex_get (lexer); + + struct ctables_pcexpr *node = ctables_pcexpr_parse_binary_operators__ ( + lexer, dict, &op, 1, + ctables_pcexpr_parse_primary, chain_warning, lhs); + if (!node) + return NULL; + + return ctables_pcexpr_allocate_neg (node, lexer, start_ofs); +} + +/* Parses the unary minus level. */ +static struct ctables_pcexpr * +ctables_pcexpr_parse_neg (struct lexer *lexer, struct dictionary *dict) +{ + int start_ofs = lex_ofs (lexer); + if (!lex_match (lexer, T_DASH)) + return ctables_pcexpr_parse_exp (lexer, dict); + + struct ctables_pcexpr *inner = ctables_pcexpr_parse_neg (lexer, dict); + if (!inner) + return NULL; + + return ctables_pcexpr_allocate_neg (inner, lexer, start_ofs); +} + +/* Parses the multiplication and division level. */ +static struct ctables_pcexpr * +ctables_pcexpr_parse_mul (struct lexer *lexer, struct dictionary *dict) +{ + static const struct operator ops[] = + { + { T_ASTERISK, CTPO_MUL }, + { T_SLASH, CTPO_DIV }, + }; + + return ctables_pcexpr_parse_binary_operators (lexer, dict, ops, + sizeof ops / sizeof *ops, + ctables_pcexpr_parse_neg, NULL); +} + +/* Parses the addition and subtraction level. */ +static struct ctables_pcexpr * +ctables_pcexpr_parse_add (struct lexer *lexer, struct dictionary *dict) +{ + static const struct operator ops[] = + { + { T_PLUS, CTPO_ADD }, + { T_DASH, CTPO_SUB }, + { T_NEG_NUM, CTPO_ADD }, + }; + + return ctables_pcexpr_parse_binary_operators (lexer, dict, + ops, sizeof ops / sizeof *ops, + ctables_pcexpr_parse_mul, NULL); +} + +/* CTABLES axis expressions. */ + +/* CTABLES has a number of extra formats that we implement via custom + currency specifications on an alternate fmt_settings. */ +#define CTEF_NEGPAREN FMT_CCA +#define CTEF_NEQUAL FMT_CCB +#define CTEF_PAREN FMT_CCC +#define CTEF_PCTPAREN FMT_CCD + +enum ctables_summary_variant + { + CSV_CELL, + CSV_TOTAL +#define N_CSVS 2 + }; + +struct ctables_axis + { + enum ctables_axis_op + { + /* Terminals. */ + CTAO_VAR, + + /* Nonterminals. */ + CTAO_STACK, /* + */ + CTAO_NEST, /* > */ + } + op; + + union + { + /* Terminals. */ + struct + { + struct variable *var; + bool scale; + struct ctables_summary_spec_set specs[N_CSVS]; + }; + + /* Nonterminals. */ + struct ctables_axis *subs[2]; + }; + + struct msg_location *loc; + }; + +static void +ctables_axis_destroy (struct ctables_axis *axis) +{ + if (!axis) + return; + + switch (axis->op) + { + case CTAO_VAR: + for (size_t i = 0; i < N_CSVS; i++) + ctables_summary_spec_set_uninit (&axis->specs[i]); + break; + + case CTAO_STACK: + case CTAO_NEST: + ctables_axis_destroy (axis->subs[0]); + ctables_axis_destroy (axis->subs[1]); + break; + } + msg_location_destroy (axis->loc); + free (axis); +} + +static struct ctables_axis * +ctables_axis_new_nonterminal (enum ctables_axis_op op, + struct ctables_axis *sub0, + struct ctables_axis *sub1, + struct lexer *lexer, int start_ofs) +{ + struct ctables_axis *axis = xmalloc (sizeof *axis); + *axis = (struct ctables_axis) { + .op = op, + .subs = { sub0, sub1 }, + .loc = lex_ofs_location (lexer, start_ofs, lex_ofs (lexer) - 1), + }; + return axis; +} + +struct ctables_axis_parse_ctx + { + struct lexer *lexer; + struct dictionary *dict; + }; + +static struct pivot_value * +ctables_summary_label (const struct ctables_summary_spec *spec, double cilevel) +{ + if (!spec->label) + return ctables_summary_function_label (spec->function, spec->weighting, + spec->user_area, spec->percentile); + else + { + struct substring in = ss_cstr (spec->label); + struct substring target = ss_cstr (")CILEVEL"); + + struct string out = DS_EMPTY_INITIALIZER; + for (;;) + { + size_t chunk = ss_find_substring (in, target); + ds_put_substring (&out, ss_head (in, chunk)); + ss_advance (&in, chunk); + if (!in.length) + return pivot_value_new_user_text_nocopy (ds_steal_cstr (&out)); + + ss_advance (&in, target.length); + ds_put_format (&out, "%g", cilevel); + } + } +} + +static bool +add_summary_spec (struct ctables_axis *axis, + enum ctables_summary_function function, + enum ctables_weighting weighting, + enum ctables_area_type area, double percentile, + const char *label, const struct fmt_spec *format, + bool is_ctables_format, const struct msg_location *loc, + enum ctables_summary_variant sv) +{ + if (axis->op == CTAO_VAR) + { + char function_name[128]; + ctables_summary_function_name (function, weighting, area, + function_name, sizeof function_name); + const char *var_name = var_get_name (axis->var); + switch (ctables_function_availability (function)) + { +#if 0 + case CTFA_MRSETS: + msg_at (SE, loc, _("Summary function %s applies only to multiple " + "response sets."), function_name); + msg_at (SN, axis->loc, _("'%s' is not a multiple response set."), + var_name); + return false; +#endif + + case CTFA_SCALE: + if (!axis->scale && sv != CSV_TOTAL) + { + msg_at (SE, loc, + _("Summary function %s applies only to scale variables."), + function_name); + msg_at (SN, axis->loc, _("'%s' is not a scale variable."), + var_name); + return false; + } + break; + + case CTFA_ALL: + break; + } + + struct ctables_summary_spec_set *set = &axis->specs[sv]; + if (set->n >= set->allocated) + set->specs = x2nrealloc (set->specs, &set->allocated, + sizeof *set->specs); + + struct ctables_summary_spec *dst = &set->specs[set->n++]; + *dst = (struct ctables_summary_spec) { + .function = function, + .weighting = weighting, + .calc_area = area, + .user_area = area, + .percentile = percentile, + .label = xstrdup_if_nonnull (label), + .format = (format ? *format + : ctables_summary_default_format (function, axis->var)), + .is_ctables_format = is_ctables_format, + }; + return true; + } + else + { + for (size_t i = 0; i < 2; i++) + if (!add_summary_spec (axis->subs[i], function, weighting, area, + percentile, label, format, is_ctables_format, + loc, sv)) + return false; + return true; + } +} + +static struct ctables_axis *ctables_axis_parse_stack ( + struct ctables_axis_parse_ctx *); + +static struct ctables_axis * +ctables_axis_parse_primary (struct ctables_axis_parse_ctx *ctx) +{ + if (lex_match (ctx->lexer, T_LPAREN)) + { + struct ctables_axis *sub = ctables_axis_parse_stack (ctx); + if (!sub || !lex_force_match (ctx->lexer, T_RPAREN)) + { + ctables_axis_destroy (sub); + return NULL; + } + return sub; + } + + if (!lex_force_id (ctx->lexer)) + return NULL; + + if (lex_tokcstr (ctx->lexer)[0] == '$') + { + lex_error (ctx->lexer, + _("Multiple response set support not implemented.")); + return NULL; + } + + int start_ofs = lex_ofs (ctx->lexer); + struct variable *var = parse_variable (ctx->lexer, ctx->dict); + if (!var) + return NULL; + + struct ctables_axis *axis = xmalloc (sizeof *axis); + *axis = (struct ctables_axis) { .op = CTAO_VAR, .var = var }; + + axis->scale = (lex_match_phrase (ctx->lexer, "[S]") ? true + : lex_match_phrase (ctx->lexer, "[C]") ? false + : var_get_measure (var) == MEASURE_SCALE); + axis->loc = lex_ofs_location (ctx->lexer, start_ofs, + lex_ofs (ctx->lexer) - 1); + if (axis->scale && var_is_alpha (var)) + { + msg_at (SE, axis->loc, _("Cannot use string variable %s as a scale " + "variable."), + var_get_name (var)); + ctables_axis_destroy (axis); + return NULL; + } + + return axis; +} + +static bool +has_digit (const char *s) +{ + return s[strcspn (s, "0123456789")] != '\0'; +} + +static bool +parse_ctables_format_specifier (struct lexer *lexer, struct fmt_spec *format, + bool *is_ctables_format) +{ + char type[FMT_TYPE_LEN_MAX + 1]; + if (!parse_abstract_format_specifier__ (lexer, type, &format->w, &format->d)) + return false; + + if (!strcasecmp (type, "NEGPAREN")) + format->type = CTEF_NEGPAREN; + else if (!strcasecmp (type, "NEQUAL")) + format->type = CTEF_NEQUAL; + else if (!strcasecmp (type, "PAREN")) + format->type = CTEF_PAREN; + else if (!strcasecmp (type, "PCTPAREN")) + format->type = CTEF_PCTPAREN; + else + { + *is_ctables_format = false; + return (parse_format_specifier (lexer, format) + && fmt_check_output (format) + && fmt_check_type_compat (format, VAL_NUMERIC)); + } + + lex_get (lexer); + if (format->w < 2) + { + lex_next_error (lexer, -1, -1, + _("Output format %s requires width 2 or greater."), type); + return false; + } + else if (format->d > format->w - 1) + { + lex_next_error (lexer, -1, -1, _("Output format %s requires width " + "greater than decimals."), type); + return false; + } + else + { + *is_ctables_format = true; + return true; + } +} + +static struct ctables_axis * +ctables_axis_parse_postfix (struct ctables_axis_parse_ctx *ctx) +{ + struct ctables_axis *sub = ctables_axis_parse_primary (ctx); + if (!sub || !lex_match (ctx->lexer, T_LBRACK)) + return sub; + + enum ctables_summary_variant sv = CSV_CELL; + for (;;) + { + int start_ofs = lex_ofs (ctx->lexer); + + /* Parse function. */ + enum ctables_summary_function function; + enum ctables_weighting weighting; + enum ctables_area_type area; + if (!parse_ctables_summary_function (ctx->lexer, &function, &weighting, + &area)) + goto error; + + /* Parse percentile. */ + double percentile = 0; + if (function == CTSF_PTILE) + { + if (!lex_force_num_range_closed (ctx->lexer, "PTILE", 0, 100)) + goto error; + percentile = lex_number (ctx->lexer); + lex_get (ctx->lexer); + } + + /* Parse label. */ + char *label = NULL; + if (lex_is_string (ctx->lexer)) + { + label = ss_xstrdup (lex_tokss (ctx->lexer)); + lex_get (ctx->lexer); + } + + /* Parse format. */ + struct fmt_spec format; + const struct fmt_spec *formatp; + bool is_ctables_format = false; + if (lex_token (ctx->lexer) == T_ID + && has_digit (lex_tokcstr (ctx->lexer))) + { + if (!parse_ctables_format_specifier (ctx->lexer, &format, + &is_ctables_format)) + { + free (label); + goto error; + } + formatp = &format; + } + else + formatp = NULL; + + struct msg_location *loc = lex_ofs_location (ctx->lexer, start_ofs, + lex_ofs (ctx->lexer) - 1); + add_summary_spec (sub, function, weighting, area, percentile, label, + formatp, is_ctables_format, loc, sv); + free (label); + msg_location_destroy (loc); + + lex_match (ctx->lexer, T_COMMA); + if (sv == CSV_CELL && lex_match_id (ctx->lexer, "TOTALS")) + { + if (!lex_force_match (ctx->lexer, T_LBRACK)) + goto error; + sv = CSV_TOTAL; + } + else if (lex_match (ctx->lexer, T_RBRACK)) + { + if (sv == CSV_TOTAL && !lex_force_match (ctx->lexer, T_RBRACK)) + goto error; + return sub; + } + } + +error: + ctables_axis_destroy (sub); + return NULL; +} + +static const struct ctables_axis * +find_scale (const struct ctables_axis *axis) +{ + if (!axis) + return NULL; + else if (axis->op == CTAO_VAR) + return axis->scale ? axis : NULL; + else + { + for (size_t i = 0; i < 2; i++) + { + const struct ctables_axis *scale = find_scale (axis->subs[i]); + if (scale) + return scale; + } + return NULL; + } +} + +static const struct ctables_axis * +find_categorical_summary_spec (const struct ctables_axis *axis) +{ + if (!axis) + return NULL; + else if (axis->op == CTAO_VAR) + return !axis->scale && axis->specs[CSV_CELL].n ? axis : NULL; + else + { + for (size_t i = 0; i < 2; i++) + { + const struct ctables_axis *sum + = find_categorical_summary_spec (axis->subs[i]); + if (sum) + return sum; + } + return NULL; + } +} + +static struct ctables_axis * +ctables_axis_parse_nest (struct ctables_axis_parse_ctx *ctx) +{ + int start_ofs = lex_ofs (ctx->lexer); + struct ctables_axis *lhs = ctables_axis_parse_postfix (ctx); + if (!lhs) + return NULL; + + while (lex_match (ctx->lexer, T_GT)) + { + struct ctables_axis *rhs = ctables_axis_parse_postfix (ctx); + if (!rhs) + { + ctables_axis_destroy (lhs); + return NULL; + } + + struct ctables_axis *nest = ctables_axis_new_nonterminal ( + CTAO_NEST, lhs, rhs, ctx->lexer, start_ofs); + + const struct ctables_axis *outer_scale = find_scale (lhs); + const struct ctables_axis *inner_scale = find_scale (rhs); + if (outer_scale && inner_scale) + { + msg_at (SE, nest->loc, _("Cannot nest scale variables.")); + msg_at (SN, outer_scale->loc, _("This is an outer scale variable.")); + msg_at (SN, inner_scale->loc, _("This is an inner scale variable.")); + ctables_axis_destroy (nest); + return NULL; + } + + const struct ctables_axis *outer_sum = find_categorical_summary_spec (lhs); + if (outer_sum) + { + msg_at (SE, nest->loc, + _("Summaries may only be requested for categorical variables " + "at the innermost nesting level.")); + msg_at (SN, outer_sum->loc, + _("This outer categorical variable has a summary.")); + ctables_axis_destroy (nest); + return NULL; + } + + lhs = nest; + } + + return lhs; +} + +static struct ctables_axis * +ctables_axis_parse_stack (struct ctables_axis_parse_ctx *ctx) +{ + int start_ofs = lex_ofs (ctx->lexer); + struct ctables_axis *lhs = ctables_axis_parse_nest (ctx); + if (!lhs) + return NULL; + + while (lex_match (ctx->lexer, T_PLUS)) + { + struct ctables_axis *rhs = ctables_axis_parse_nest (ctx); + if (!rhs) + { + ctables_axis_destroy (lhs); + return NULL; + } + + lhs = ctables_axis_new_nonterminal (CTAO_STACK, lhs, rhs, + ctx->lexer, start_ofs); + } + + return lhs; +} + +static bool +ctables_axis_parse (struct lexer *lexer, struct dictionary *dict, + struct ctables_axis **axisp) +{ + *axisp = NULL; + if (lex_token (lexer) == T_BY + || lex_token (lexer) == T_SLASH + || lex_token (lexer) == T_ENDCMD) + return true; + + struct ctables_axis_parse_ctx ctx = { + .lexer = lexer, + .dict = dict, + }; + *axisp = ctables_axis_parse_stack (&ctx); + return *axisp; +} + +/* CTABLES categories. */ + +struct ctables_categories + { + size_t n_refs; + struct ctables_category *cats; + size_t n_cats; + bool show_empty; + }; + +struct ctables_category + { + enum ctables_category_type + { + /* Explicit category lists. */ + CCT_NUMBER, + CCT_STRING, + CCT_NRANGE, /* Numerical range. */ + CCT_SRANGE, /* String range. */ + CCT_MISSING, + CCT_OTHERNM, + CCT_POSTCOMPUTE, + + /* Totals and subtotals. */ + CCT_SUBTOTAL, + CCT_TOTAL, + + /* Implicit category lists. */ + CCT_VALUE, + CCT_LABEL, + CCT_FUNCTION, + + /* For contributing to TOTALN. */ + CCT_EXCLUDED_MISSING, + } + type; + + struct ctables_category *subtotal; + + bool hide; + + union + { + double number; /* CCT_NUMBER. */ + struct substring string; /* CCT_STRING, in dictionary encoding. */ + double nrange[2]; /* CCT_NRANGE. */ + struct substring srange[2]; /* CCT_SRANGE. */ + + struct + { + char *total_label; /* CCT_SUBTOTAL, CCT_TOTAL. */ + bool hide_subcategories; /* CCT_SUBTOTAL. */ + }; + + /* CCT_POSTCOMPUTE. */ + struct + { + const struct ctables_postcompute *pc; + enum fmt_type parse_format; + }; + + /* CCT_VALUE, CCT_LABEL, CCT_FUNCTION. */ + struct + { + bool include_missing; + bool sort_ascending; + + /* CCT_FUNCTION. */ + enum ctables_summary_function sort_function; + enum ctables_weighting weighting; + enum ctables_area_type area; + struct variable *sort_var; + double percentile; + }; + }; + + /* Source location. This is null for CCT_TOTAL, CCT_VALUE, CCT_LABEL, + CCT_FUNCTION, CCT_EXCLUDED_MISSING. */ + struct msg_location *location; + }; + +static void +ctables_category_uninit (struct ctables_category *cat) +{ + if (!cat) + return; + + msg_location_destroy (cat->location); + switch (cat->type) + { + case CCT_NUMBER: + case CCT_NRANGE: + case CCT_MISSING: + case CCT_OTHERNM: + case CCT_POSTCOMPUTE: + break; + + case CCT_STRING: + ss_dealloc (&cat->string); + break; + + case CCT_SRANGE: + ss_dealloc (&cat->srange[0]); + ss_dealloc (&cat->srange[1]); + break; + + case CCT_SUBTOTAL: + case CCT_TOTAL: + free (cat->total_label); + break; + + case CCT_VALUE: + case CCT_LABEL: + case CCT_FUNCTION: + break; + + case CCT_EXCLUDED_MISSING: + break; + } +} + +static bool +nullable_substring_equal (const struct substring *a, + const struct substring *b) +{ + return !a->string ? !b->string : b->string && ss_equals (*a, *b); +} + +static bool +ctables_category_equal (const struct ctables_category *a, + const struct ctables_category *b) +{ + if (a->type != b->type) + return false; + + switch (a->type) + { + case CCT_NUMBER: + return a->number == b->number; + + case CCT_STRING: + return ss_equals (a->string, b->string); + + case CCT_NRANGE: + return a->nrange[0] == b->nrange[0] && a->nrange[1] == b->nrange[1]; + + case CCT_SRANGE: + return (nullable_substring_equal (&a->srange[0], &b->srange[0]) + && nullable_substring_equal (&a->srange[1], &b->srange[1])); + + case CCT_MISSING: + case CCT_OTHERNM: + return true; + + case CCT_POSTCOMPUTE: + return a->pc == b->pc; + + case CCT_SUBTOTAL: + case CCT_TOTAL: + return !strcmp (a->total_label, b->total_label); + + case CCT_VALUE: + case CCT_LABEL: + case CCT_FUNCTION: + return (a->include_missing == b->include_missing + && a->sort_ascending == b->sort_ascending + && a->sort_function == b->sort_function + && a->sort_var == b->sort_var + && a->percentile == b->percentile); + + case CCT_EXCLUDED_MISSING: + return true; + } + + NOT_REACHED (); +} + +static void +ctables_categories_unref (struct ctables_categories *c) +{ + if (!c) + return; + + assert (c->n_refs > 0); + if (--c->n_refs) + return; + + for (size_t i = 0; i < c->n_cats; i++) + ctables_category_uninit (&c->cats[i]); + free (c->cats); + free (c); +} + +static bool +ctables_categories_equal (const struct ctables_categories *a, + const struct ctables_categories *b) +{ + if (a->n_cats != b->n_cats || a->show_empty != b->show_empty) + return false; + + for (size_t i = 0; i < a->n_cats; i++) + if (!ctables_category_equal (&a->cats[i], &b->cats[i])) + return false; + + return true; +} + +static struct ctables_category +cct_nrange (double low, double high) +{ + return (struct ctables_category) { + .type = CCT_NRANGE, + .nrange = { low, high } + }; +} + +static struct ctables_category +cct_srange (struct substring low, struct substring high) +{ + return (struct ctables_category) { + .type = CCT_SRANGE, + .srange = { low, high } + }; +} + +static bool +ctables_table_parse_subtotal (struct lexer *lexer, bool hide_subcategories, + struct ctables_category *cat) +{ + char *total_label; + if (lex_match (lexer, T_EQUALS)) + { + if (!lex_force_string (lexer)) + return false; + + total_label = ss_xstrdup (lex_tokss (lexer)); + lex_get (lexer); + } + else + total_label = xstrdup (_("Subtotal")); + + *cat = (struct ctables_category) { + .type = CCT_SUBTOTAL, + .hide_subcategories = hide_subcategories, + .total_label = total_label + }; + return true; +} + +static bool +ctables_table_parse_explicit_category (struct lexer *lexer, + struct dictionary *dict, + struct ctables *ct, + struct ctables_category *cat) +{ + if (lex_match_id (lexer, "OTHERNM")) + *cat = (struct ctables_category) { .type = CCT_OTHERNM }; + else if (lex_match_id (lexer, "MISSING")) + *cat = (struct ctables_category) { .type = CCT_MISSING }; + else if (lex_match_id (lexer, "SUBTOTAL")) + return ctables_table_parse_subtotal (lexer, false, cat); + else if (lex_match_id (lexer, "HSUBTOTAL")) + return ctables_table_parse_subtotal (lexer, true, cat); + else if (lex_match_id (lexer, "LO")) + { + if (!lex_force_match_id (lexer, "THRU")) + return false; + if (lex_is_string (lexer)) + { + struct substring sr0 = { .string = NULL }; + struct substring sr1 = parse_substring (lexer, dict); + *cat = cct_srange (sr0, sr1); + } + else if (lex_force_num (lexer)) + { + *cat = cct_nrange (-DBL_MAX, lex_number (lexer)); + lex_get (lexer); + } + else + return false; + } + else if (lex_is_number (lexer)) + { + double number = lex_number (lexer); + lex_get (lexer); + if (lex_match_id (lexer, "THRU")) + { + if (lex_match_id (lexer, "HI")) + *cat = cct_nrange (number, DBL_MAX); + else + { + if (!lex_force_num (lexer)) + return false; + *cat = cct_nrange (number, lex_number (lexer)); + lex_get (lexer); + } + } + else + *cat = (struct ctables_category) { + .type = CCT_NUMBER, + .number = number + }; + } + else if (lex_is_string (lexer)) + { + struct substring s = parse_substring (lexer, dict); + if (lex_match_id (lexer, "THRU")) + { + if (lex_match_id (lexer, "HI")) + { + struct substring sr1 = { .string = NULL }; + *cat = cct_srange (s, sr1); + } + else + { + if (!lex_force_string (lexer)) + { + ss_dealloc (&s); + return false; + } + struct substring sr1 = parse_substring (lexer, dict); + *cat = cct_srange (s, sr1); + } + } + else + *cat = (struct ctables_category) { .type = CCT_STRING, .string = s }; + } + else if (lex_match (lexer, T_AND)) + { + if (!lex_force_id (lexer)) + return false; + struct ctables_postcompute *pc = ctables_find_postcompute ( + ct, lex_tokcstr (lexer)); + if (!pc) + { + struct msg_location *loc = lex_get_location (lexer, -1, 0); + msg_at (SE, loc, _("Unknown postcompute &%s."), + lex_tokcstr (lexer)); + msg_location_destroy (loc); + return false; + } + lex_get (lexer); + + *cat = (struct ctables_category) { .type = CCT_POSTCOMPUTE, .pc = pc }; + } + else + { + lex_error (lexer, NULL); + return false; + } + + return true; +} + +static bool +parse_category_string (struct msg_location *location, + struct substring s, const struct dictionary *dict, + enum fmt_type format, double *n) +{ + union value v; + char *error = data_in (s, dict_get_encoding (dict), format, + settings_get_fmt_settings (), &v, 0, NULL); + if (error) + { + msg_at (SE, location, + _("Failed to parse category specification as format %s: %s."), + fmt_name (format), error); + free (error); + return false; + } + + *n = v.f; + return true; +} + +static struct ctables_category * +ctables_find_category_for_postcompute__ (const struct ctables_categories *cats, + const struct ctables_pcexpr *e) +{ + struct ctables_category *best = NULL; + size_t n_subtotals = 0; + for (size_t i = 0; i < cats->n_cats; i++) + { + struct ctables_category *cat = &cats->cats[i]; + switch (e->op) + { + case CTPO_CAT_NUMBER: + if (cat->type == CCT_NUMBER && cat->number == e->number) + best = cat; + break; + + case CTPO_CAT_STRING: + if (cat->type == CCT_STRING && ss_equals (cat->string, e->string)) + best = cat; + break; + + case CTPO_CAT_NRANGE: + if (cat->type == CCT_NRANGE + && cat->nrange[0] == e->nrange[0] + && cat->nrange[1] == e->nrange[1]) + best = cat; + break; + + case CTPO_CAT_SRANGE: + if (cat->type == CCT_SRANGE + && nullable_substring_equal (&cat->srange[0], &e->srange[0]) + && nullable_substring_equal (&cat->srange[1], &e->srange[1])) + best = cat; + break; + + case CTPO_CAT_MISSING: + if (cat->type == CCT_MISSING) + best = cat; + break; + + case CTPO_CAT_OTHERNM: + if (cat->type == CCT_OTHERNM) + best = cat; + break; + + case CTPO_CAT_SUBTOTAL: + if (cat->type == CCT_SUBTOTAL) + { + n_subtotals++; + if (e->subtotal_index == n_subtotals) + return cat; + else if (e->subtotal_index == 0) + best = cat; + } + break; + + case CTPO_CAT_TOTAL: + if (cat->type == CCT_TOTAL) + return cat; + break; + + case CTPO_CONSTANT: + case CTPO_ADD: + case CTPO_SUB: + case CTPO_MUL: + case CTPO_DIV: + case CTPO_POW: + case CTPO_NEG: + NOT_REACHED (); + } + } + if (e->op == CTPO_CAT_SUBTOTAL && e->subtotal_index == 0 && n_subtotals > 1) + return NULL; + return best; +} + +static struct ctables_category * +ctables_find_category_for_postcompute (const struct dictionary *dict, + const struct ctables_categories *cats, + enum fmt_type parse_format, + const struct ctables_pcexpr *e) +{ + if (parse_format != FMT_F) + { + if (e->op == CTPO_CAT_STRING) + { + double number; + if (!parse_category_string (e->location, e->string, dict, + parse_format, &number)) + return NULL; + + struct ctables_pcexpr e2 = { + .op = CTPO_CAT_NUMBER, + .number = number, + .location = e->location, + }; + return ctables_find_category_for_postcompute__ (cats, &e2); + } + else if (e->op == CTPO_CAT_SRANGE) + { + double nrange[2]; + if (!e->srange[0].string) + nrange[0] = -DBL_MAX; + else if (!parse_category_string (e->location, e->srange[0], dict, + parse_format, &nrange[0])) + return NULL; + + if (!e->srange[1].string) + nrange[1] = DBL_MAX; + else if (!parse_category_string (e->location, e->srange[1], dict, + parse_format, &nrange[1])) + return NULL; + + struct ctables_pcexpr e2 = { + .op = CTPO_CAT_NRANGE, + .nrange = { nrange[0], nrange[1] }, + .location = e->location, + }; + return ctables_find_category_for_postcompute__ (cats, &e2); + } + } + return ctables_find_category_for_postcompute__ (cats, e); +} + +static struct substring +rtrim_value (const union value *v, const struct variable *var) +{ + struct substring s = ss_buffer (CHAR_CAST (char *, v->s), + var_get_width (var)); + ss_rtrim (&s, ss_cstr (" ")); + return s; +} + +static bool +in_string_range (const union value *v, const struct variable *var, + const struct substring *srange) +{ + struct substring s = rtrim_value (v, var); + return ((!srange[0].string || ss_compare (s, srange[0]) >= 0) + && (!srange[1].string || ss_compare (s, srange[1]) <= 0)); +} + +static const struct ctables_category * +ctables_categories_match (const struct ctables_categories *c, + const union value *v, const struct variable *var) +{ + if (var_is_numeric (var) && v->f == SYSMIS) + return NULL; + + const struct ctables_category *othernm = NULL; + for (size_t i = c->n_cats; i-- > 0; ) + { + const struct ctables_category *cat = &c->cats[i]; + switch (cat->type) + { + case CCT_NUMBER: + if (cat->number == v->f) + return cat; + break; + + case CCT_STRING: + if (ss_equals (cat->string, rtrim_value (v, var))) + return cat; + break; + + case CCT_NRANGE: + if ((cat->nrange[0] == -DBL_MAX || v->f >= cat->nrange[0]) + && (cat->nrange[1] == DBL_MAX || v->f <= cat->nrange[1])) + return cat; + break; + + case CCT_SRANGE: + if (in_string_range (v, var, cat->srange)) + return cat; + break; + + case CCT_MISSING: + if (var_is_value_missing (var, v)) + return cat; + break; + + case CCT_POSTCOMPUTE: + break; + + case CCT_OTHERNM: + if (!othernm) + othernm = cat; + break; + + case CCT_SUBTOTAL: + case CCT_TOTAL: + break; + + case CCT_VALUE: + case CCT_LABEL: + case CCT_FUNCTION: + return (cat->include_missing || !var_is_value_missing (var, v) ? cat + : NULL); + + case CCT_EXCLUDED_MISSING: + break; + } + } + + return var_is_value_missing (var, v) ? NULL : othernm; +} + +static const struct ctables_category * +ctables_categories_total (const struct ctables_categories *c) +{ + const struct ctables_category *first = &c->cats[0]; + const struct ctables_category *last = &c->cats[c->n_cats - 1]; + return (first->type == CCT_TOTAL ? first + : last->type == CCT_TOTAL ? last + : NULL); +} + +static void +ctables_category_format_number (double number, const struct variable *var, + struct string *s) +{ + struct pivot_value *pv = pivot_value_new_var_value ( + var, &(union value) { .f = number }); + pivot_value_format (pv, NULL, s); + pivot_value_destroy (pv); +} + +static void +ctables_category_format_string (struct substring string, + const struct variable *var, struct string *out) +{ + int width = var_get_width (var); + char *s = xmalloc (width); + buf_copy_rpad (s, width, string.string, string.length, ' '); + struct pivot_value *pv = pivot_value_new_var_value ( + var, &(union value) { .s = CHAR_CAST (uint8_t *, s) }); + pivot_value_format (pv, NULL, out); + pivot_value_destroy (pv); + free (s); +} + +static bool +ctables_category_format_label (const struct ctables_category *cat, + const struct variable *var, + struct string *s) +{ + switch (cat->type) + { + case CCT_NUMBER: + ctables_category_format_number (cat->number, var, s); + return true; + + case CCT_STRING: + ctables_category_format_string (cat->string, var, s); + return true; + + case CCT_NRANGE: + ctables_category_format_number (cat->nrange[0], var, s); + ds_put_format (s, " THRU "); + ctables_category_format_number (cat->nrange[1], var, s); + return true; + + case CCT_SRANGE: + ctables_category_format_string (cat->srange[0], var, s); + ds_put_format (s, " THRU "); + ctables_category_format_string (cat->srange[1], var, s); + return true; + + case CCT_MISSING: + ds_put_cstr (s, "MISSING"); + return true; + + case CCT_OTHERNM: + ds_put_cstr (s, "OTHERNM"); + return true; + + case CCT_POSTCOMPUTE: + ds_put_format (s, "&%s", cat->pc->name); + return true; + + case CCT_TOTAL: + case CCT_SUBTOTAL: + ds_put_cstr (s, cat->total_label); + return true; + + case CCT_VALUE: + case CCT_LABEL: + case CCT_FUNCTION: + case CCT_EXCLUDED_MISSING: + return false; + } + + return false; +} + +static bool +ctables_recursive_check_postcompute (struct dictionary *dict, + const struct ctables_pcexpr *e, + struct ctables_category *pc_cat, + const struct ctables_categories *cats, + const struct msg_location *cats_location) +{ + switch (e->op) + { + case CTPO_CAT_NUMBER: + case CTPO_CAT_STRING: + case CTPO_CAT_NRANGE: + case CTPO_CAT_SRANGE: + case CTPO_CAT_MISSING: + case CTPO_CAT_OTHERNM: + case CTPO_CAT_SUBTOTAL: + case CTPO_CAT_TOTAL: + { + struct ctables_category *cat = ctables_find_category_for_postcompute ( + dict, cats, pc_cat->parse_format, e); + if (!cat) + { + if (e->op == CTPO_CAT_SUBTOTAL && e->subtotal_index == 0) + { + size_t n_subtotals = 0; + for (size_t i = 0; i < cats->n_cats; i++) + n_subtotals += cats->cats[i].type == CCT_SUBTOTAL; + if (n_subtotals > 1) + { + msg_at (SE, cats_location, + ngettext ("These categories include %zu instance " + "of SUBTOTAL or HSUBTOTAL, so references " + "from computed categories must refer to " + "subtotals by position, " + "e.g. SUBTOTAL[1].", + "These categories include %zu instances " + "of SUBTOTAL or HSUBTOTAL, so references " + "from computed categories must refer to " + "subtotals by position, " + "e.g. SUBTOTAL[1].", + n_subtotals), + n_subtotals); + msg_at (SN, e->location, + _("This is the reference that lacks a position.")); + return NULL; + } + } + + msg_at (SE, pc_cat->location, + _("Computed category &%s references a category not included " + "in the category list."), + pc_cat->pc->name); + msg_at (SN, e->location, _("This is the missing category.")); + if (e->op == CTPO_CAT_SUBTOTAL) + msg_at (SN, cats_location, + _("To fix the problem, add subtotals to the " + "list of categories here.")); + else if (e->op == CTPO_CAT_TOTAL) + msg (SN, _("To fix the problem, add TOTAL=YES to the variable's " + "CATEGORIES specification.")); + else + msg_at (SN, cats_location, + _("To fix the problem, add the missing category to the " + "list of categories here.")); + return false; + } + if (pc_cat->pc->hide_source_cats) + cat->hide = true; + return true; + } + + case CTPO_CONSTANT: + return true; + + case CTPO_ADD: + case CTPO_SUB: + case CTPO_MUL: + case CTPO_DIV: + case CTPO_POW: + case CTPO_NEG: + for (size_t i = 0; i < 2; i++) + if (e->subs[i] && !ctables_recursive_check_postcompute ( + dict, e->subs[i], pc_cat, cats, cats_location)) + return false; + return true; + } + + NOT_REACHED (); +} + +static struct pivot_value * +ctables_postcompute_label (const struct ctables_categories *cats, + const struct ctables_category *cat, + const struct variable *var) +{ + struct substring in = ss_cstr (cat->pc->label); + struct substring target = ss_cstr (")LABEL["); + + struct string out = DS_EMPTY_INITIALIZER; + for (;;) + { + size_t chunk = ss_find_substring (in, target); + if (chunk == SIZE_MAX) + { + if (ds_is_empty (&out)) + return pivot_value_new_user_text (in.string, in.length); + else + { + ds_put_substring (&out, in); + return pivot_value_new_user_text_nocopy (ds_steal_cstr (&out)); + } + } + + ds_put_substring (&out, ss_head (in, chunk)); + ss_advance (&in, chunk + target.length); + + struct substring idx_s; + if (!ss_get_until (&in, ']', &idx_s)) + goto error; + char *tail; + long int idx = strtol (idx_s.string, &tail, 10); + if (idx < 1 || idx > cats->n_cats || tail != ss_end (idx_s)) + goto error; + + struct ctables_category *cat2 = &cats->cats[idx - 1]; + if (!ctables_category_format_label (cat2, var, &out)) + goto error; + } + +error: + ds_destroy (&out); + return pivot_value_new_user_text (cat->pc->label, SIZE_MAX); +} + +static struct pivot_value * +ctables_category_create_value_label (const struct ctables_categories *cats, + const struct ctables_category *cat, + const struct variable *var, + const union value *value) +{ + return (cat->type == CCT_POSTCOMPUTE && cat->pc->label + ? ctables_postcompute_label (cats, cat, var) + : cat->type == CCT_TOTAL || cat->type == CCT_SUBTOTAL + ? pivot_value_new_user_text (cat->total_label, SIZE_MAX) + : pivot_value_new_var_value (var, value)); +} + +/* CTABLES variable nesting and stacking. */ + +/* A nested sequence of variables, e.g. a > b > c. */ +struct ctables_nest + { + struct variable **vars; + size_t n; + size_t scale_idx; + size_t summary_idx; + size_t *areas[N_CTATS]; + size_t n_areas[N_CTATS]; + size_t group_head; + + struct ctables_summary_spec_set specs[N_CSVS]; + }; + +/* A stack of nestings, e.g. nest1 + nest2 + ... + nestN. */ +struct ctables_stack + { + struct ctables_nest *nests; + size_t n; + }; + +static void +ctables_nest_uninit (struct ctables_nest *nest) +{ + free (nest->vars); + for (enum ctables_summary_variant sv = 0; sv < N_CSVS; sv++) + ctables_summary_spec_set_uninit (&nest->specs[sv]); + for (enum ctables_area_type at = 0; at < N_CTATS; at++) + free (nest->areas[at]); +} + +static void +ctables_stack_uninit (struct ctables_stack *stack) +{ + if (stack) + { + for (size_t i = 0; i < stack->n; i++) + ctables_nest_uninit (&stack->nests[i]); + free (stack->nests); + } +} + +static struct ctables_stack +nest_fts (struct ctables_stack s0, struct ctables_stack s1) +{ + if (!s0.n) + return s1; + else if (!s1.n) + return s0; + + struct ctables_stack stack = { .nests = xnmalloc (s0.n, s1.n * sizeof *stack.nests) }; + for (size_t i = 0; i < s0.n; i++) + for (size_t j = 0; j < s1.n; j++) + { + const struct ctables_nest *a = &s0.nests[i]; + const struct ctables_nest *b = &s1.nests[j]; + + size_t allocate = a->n + b->n; + struct variable **vars = xnmalloc (allocate, sizeof *vars); + size_t n = 0; + for (size_t k = 0; k < a->n; k++) + vars[n++] = a->vars[k]; + for (size_t k = 0; k < b->n; k++) + vars[n++] = b->vars[k]; + assert (n == allocate); + + const struct ctables_nest *summary_src; + if (!a->specs[CSV_CELL].var) + summary_src = b; + else if (!b->specs[CSV_CELL].var) + summary_src = a; + else + NOT_REACHED (); + + struct ctables_nest *new = &stack.nests[stack.n++]; + *new = (struct ctables_nest) { + .vars = vars, + .scale_idx = (a->scale_idx != SIZE_MAX ? a->scale_idx + : b->scale_idx != SIZE_MAX ? a->n + b->scale_idx + : SIZE_MAX), + .summary_idx = (a->summary_idx != SIZE_MAX ? a->summary_idx + : b->summary_idx != SIZE_MAX ? a->n + b->summary_idx + : SIZE_MAX), + .n = n, + }; + for (enum ctables_summary_variant sv = 0; sv < N_CSVS; sv++) + ctables_summary_spec_set_clone (&new->specs[sv], &summary_src->specs[sv]); + } + ctables_stack_uninit (&s0); + ctables_stack_uninit (&s1); + return stack; +} + +static struct ctables_stack +stack_fts (struct ctables_stack s0, struct ctables_stack s1) +{ + struct ctables_stack stack = { .nests = xnmalloc (s0.n + s1.n, sizeof *stack.nests) }; + for (size_t i = 0; i < s0.n; i++) + stack.nests[stack.n++] = s0.nests[i]; + for (size_t i = 0; i < s1.n; i++) + { + stack.nests[stack.n] = s1.nests[i]; + stack.nests[stack.n].group_head += s0.n; + stack.n++; + } + assert (stack.n == s0.n + s1.n); + free (s0.nests); + free (s1.nests); + return stack; +} + +static struct ctables_stack +var_fts (const struct ctables_axis *a) +{ + struct variable **vars = xmalloc (sizeof *vars); + *vars = a->var; + + bool is_summary = a->specs[CSV_CELL].n || a->scale; + struct ctables_nest *nest = xmalloc (sizeof *nest); + *nest = (struct ctables_nest) { + .vars = vars, + .n = 1, + .scale_idx = a->scale ? 0 : SIZE_MAX, + .summary_idx = is_summary ? 0 : SIZE_MAX, + }; + if (is_summary) + for (enum ctables_summary_variant sv = 0; sv < N_CSVS; sv++) + { + ctables_summary_spec_set_clone (&nest->specs[sv], &a->specs[sv]); + nest->specs[sv].var = a->var; + nest->specs[sv].is_scale = a->scale; + } + return (struct ctables_stack) { .nests = nest, .n = 1 }; +} + +static struct ctables_stack +enumerate_fts (enum pivot_axis_type axis_type, const struct ctables_axis *a) +{ + if (!a) + return (struct ctables_stack) { .n = 0 }; + + switch (a->op) + { + case CTAO_VAR: + return var_fts (a); + + case CTAO_STACK: + return stack_fts (enumerate_fts (axis_type, a->subs[0]), + enumerate_fts (axis_type, a->subs[1])); + + case CTAO_NEST: + /* This should consider any of the scale variables found in the result to + be linked to each other listwise for SMISSING=LISTWISE. */ + return nest_fts (enumerate_fts (axis_type, a->subs[0]), + enumerate_fts (axis_type, a->subs[1])); + } + + NOT_REACHED (); +} + +/* CTABLES summary calculation. */ + +union ctables_summary + { + /* COUNT, VALIDN, TOTALN. */ + double count; + + /* MINIMUM, MAXIMUM, RANGE. */ + struct + { + double min; + double max; + }; + + /* MEAN, SEMEAN, STDDEV, SUM, VARIANCE, *.SUM. */ + struct moments1 *moments; + + /* MEDIAN, MODE, PTILE. */ + struct + { + struct casewriter *writer; + double ovalid; + double ovalue; + }; + }; + +static void +ctables_summary_init (union ctables_summary *s, + const struct ctables_summary_spec *ss) +{ + switch (ss->function) + { + case CTSF_COUNT: + case CTSF_areaPCT_COUNT: + case CTSF_areaPCT_VALIDN: + case CTSF_areaPCT_TOTALN: + case CTSF_MISSING: + case CTSF_TOTALN: + case CTSF_VALIDN: + s->count = 0; + break; + + case CTSF_areaID: + break; + + case CTSF_MAXIMUM: + case CTSF_MINIMUM: + case CTSF_RANGE: + s->min = s->max = SYSMIS; + break; + + case CTSF_MEAN: + case CTSF_SUM: + case CTSF_areaPCT_SUM: + s->moments = moments1_create (MOMENT_MEAN); + break; + + case CTSF_SEMEAN: + case CTSF_STDDEV: + case CTSF_VARIANCE: + s->moments = moments1_create (MOMENT_VARIANCE); + break; + + case CTSF_MEDIAN: + case CTSF_MODE: + case CTSF_PTILE: + { + struct caseproto *proto = caseproto_create (); + proto = caseproto_add_width (proto, 0); + proto = caseproto_add_width (proto, 0); + + struct subcase ordering; + subcase_init (&ordering, 0, 0, SC_ASCEND); + s->writer = sort_create_writer (&ordering, proto); + subcase_uninit (&ordering); + caseproto_unref (proto); + + s->ovalid = 0; + s->ovalue = SYSMIS; + } + break; + } +} + +static void +ctables_summary_uninit (union ctables_summary *s, + const struct ctables_summary_spec *ss) +{ + switch (ss->function) + { + case CTSF_COUNT: + case CTSF_areaPCT_COUNT: + case CTSF_areaPCT_VALIDN: + case CTSF_areaPCT_TOTALN: + case CTSF_MISSING: + case CTSF_TOTALN: + case CTSF_VALIDN: + break; + + case CTSF_areaID: + break; + + case CTSF_MAXIMUM: + case CTSF_MINIMUM: + case CTSF_RANGE: + break; + + case CTSF_MEAN: + case CTSF_SEMEAN: + case CTSF_STDDEV: + case CTSF_SUM: + case CTSF_VARIANCE: + case CTSF_areaPCT_SUM: + moments1_destroy (s->moments); + break; + + case CTSF_MEDIAN: + case CTSF_MODE: + case CTSF_PTILE: + casewriter_destroy (s->writer); + break; + } +} + +static void +ctables_summary_add (union ctables_summary *s, + const struct ctables_summary_spec *ss, + const union value *value, + bool is_missing, bool is_included, + double weight) +{ + /* To determine whether a case is included in a given table for a particular + kind of summary, consider the following charts for the variable being + summarized. Only if "yes" appears is the case counted. + + Categorical variables: VALIDN other TOTALN + Valid values in included categories yes yes yes + Missing values in included categories --- yes yes + Missing values in excluded categories --- --- yes + Valid values in excluded categories --- --- --- + + Scale variables: VALIDN other TOTALN + Valid value yes yes yes + Missing value --- yes yes + + Missing values include both user- and system-missing. (The system-missing + value is always in an excluded category.) + + One way to interpret the above table is that scale variables are like + categorical variables in which all values are in included categories. + */ + switch (ss->function) + { + case CTSF_TOTALN: + case CTSF_areaPCT_TOTALN: + s->count += weight; + break; + + case CTSF_COUNT: + case CTSF_areaPCT_COUNT: + if (is_included) + s->count += weight; + break; + + case CTSF_VALIDN: + case CTSF_areaPCT_VALIDN: + if (!is_missing) + s->count += weight; + break; + + case CTSF_areaID: + break; + + case CTSF_MISSING: + if (is_missing) + s->count += weight; + break; + + case CTSF_MAXIMUM: + case CTSF_MINIMUM: + case CTSF_RANGE: + if (!is_missing) + { + if (s->min == SYSMIS || value->f < s->min) + s->min = value->f; + if (s->max == SYSMIS || value->f > s->max) + s->max = value->f; + } + break; + + case CTSF_MEAN: + case CTSF_SEMEAN: + case CTSF_STDDEV: + case CTSF_SUM: + case CTSF_VARIANCE: + if (!is_missing) + moments1_add (s->moments, value->f, weight); + break; + + case CTSF_areaPCT_SUM: + if (!is_missing) + moments1_add (s->moments, value->f, weight); + break; + + case CTSF_MEDIAN: + case CTSF_MODE: + case CTSF_PTILE: + if (!is_missing) + { + s->ovalid += weight; + + struct ccase *c = case_create (casewriter_get_proto (s->writer)); + *case_num_rw_idx (c, 0) = value->f; + *case_num_rw_idx (c, 1) = weight; + casewriter_write (s->writer, c); + } + break; + } +} + +static double +ctables_summary_value (struct ctables_area *areas[N_CTATS], + union ctables_summary *s, + const struct ctables_summary_spec *ss) +{ + switch (ss->function) + { + case CTSF_COUNT: + return s->count; + + case CTSF_areaID: + return areas[ss->calc_area]->sequence; + + case CTSF_areaPCT_COUNT: + { + const struct ctables_area *a = areas[ss->calc_area]; + double a_count = a->count[ss->weighting]; + return a_count ? s->count / a_count * 100 : SYSMIS; + } + + case CTSF_areaPCT_VALIDN: + { + const struct ctables_area *a = areas[ss->calc_area]; + double a_valid = a->valid[ss->weighting]; + return a_valid ? s->count / a_valid * 100 : SYSMIS; + } + + case CTSF_areaPCT_TOTALN: + { + const struct ctables_area *a = areas[ss->calc_area]; + double a_total = a->total[ss->weighting]; + return a_total ? s->count / a_total * 100 : SYSMIS; + } + + case CTSF_MISSING: + case CTSF_TOTALN: + case CTSF_VALIDN: + return s->count; + + case CTSF_MAXIMUM: + return s->max; + + case CTSF_MINIMUM: + return s->min; + + case CTSF_RANGE: + return s->max != SYSMIS && s->min != SYSMIS ? s->max - s->min : SYSMIS; + + case CTSF_MEAN: + { + double mean; + moments1_calculate (s->moments, NULL, &mean, NULL, NULL, NULL); + return mean; + } + + case CTSF_SEMEAN: + { + double weight, variance; + moments1_calculate (s->moments, &weight, NULL, &variance, NULL, NULL); + return calc_semean (variance, weight); + } + + case CTSF_STDDEV: + { + double variance; + moments1_calculate (s->moments, NULL, NULL, &variance, NULL, NULL); + return variance != SYSMIS ? sqrt (variance) : SYSMIS; + } + + case CTSF_SUM: + { + double weight, mean; + moments1_calculate (s->moments, &weight, &mean, NULL, NULL, NULL); + return weight != SYSMIS && mean != SYSMIS ? weight * mean : SYSMIS; + } + + case CTSF_VARIANCE: + { + double variance; + moments1_calculate (s->moments, NULL, NULL, &variance, NULL, NULL); + return variance; + } + + case CTSF_areaPCT_SUM: + { + double weight, mean; + moments1_calculate (s->moments, &weight, &mean, NULL, NULL, NULL); + if (weight == SYSMIS || mean == SYSMIS) + return SYSMIS; + + const struct ctables_area *a = areas[ss->calc_area]; + const struct ctables_sum *sum = &a->sums[ss->sum_var_idx]; + double denom = sum->sum[ss->weighting]; + return denom != 0 ? weight * mean / denom * 100 : SYSMIS; + } + + case CTSF_MEDIAN: + case CTSF_PTILE: + if (s->writer) + { + struct casereader *reader = casewriter_make_reader (s->writer); + s->writer = NULL; + + struct percentile *ptile = percentile_create ( + ss->function == CTSF_PTILE ? ss->percentile : 0.5, s->ovalid); + struct order_stats *os = &ptile->parent; + order_stats_accumulate_idx (&os, 1, reader, 1, 0); + s->ovalue = percentile_calculate (ptile, PC_HAVERAGE); + statistic_destroy (&ptile->parent.parent); + } + return s->ovalue; + + case CTSF_MODE: + if (s->writer) + { + struct casereader *reader = casewriter_make_reader (s->writer); + s->writer = NULL; + + struct mode *mode = mode_create (); + struct order_stats *os = &mode->parent; + order_stats_accumulate_idx (&os, 1, reader, 1, 0); + s->ovalue = mode->mode; + statistic_destroy (&mode->parent.parent); + } + return s->ovalue; + } + + NOT_REACHED (); +} + +/* CTABLES occurrences. */ + +struct ctables_occurrence + { + struct hmap_node node; + union value value; + }; + +static void +ctables_add_occurrence (const struct variable *var, + const union value *value, + struct hmap *occurrences) +{ + int width = var_get_width (var); + unsigned int hash = value_hash (value, width, 0); + + struct ctables_occurrence *o; + HMAP_FOR_EACH_WITH_HASH (o, struct ctables_occurrence, node, hash, + occurrences) + if (value_equal (value, &o->value, width)) + return; + + o = xmalloc (sizeof *o); + value_clone (&o->value, value, width); + hmap_insert (occurrences, &o->node, hash); +} + +enum ctables_vlabel + { + CTVL_NONE = SETTINGS_VALUE_SHOW_DEFAULT, + CTVL_NAME = SETTINGS_VALUE_SHOW_VALUE, + CTVL_LABEL = SETTINGS_VALUE_SHOW_LABEL, + CTVL_BOTH = SETTINGS_VALUE_SHOW_BOTH, + }; + +struct ctables_cell + { + /* In struct ctables_section's 'cells' hmap. Indexed by all the values in + all the axes (except the scalar variable, if any). */ + struct hmap_node node; + + /* The areas that contain this cell. */ + uint32_t omit_areas; + struct ctables_area *areas[N_CTATS]; + + bool hide; + + bool postcompute; + enum ctables_summary_variant sv; + + struct ctables_cell_axis + { + struct ctables_cell_value + { + const struct ctables_category *category; + union value value; + } + *cvs; + int leaf; + } + axes[PIVOT_N_AXES]; + + union ctables_summary *summaries; + }; + +struct ctables_section + { + /* Settings. */ + struct ctables_table *table; + struct ctables_nest *nests[PIVOT_N_AXES]; + + /* Data. */ + struct hmap *occurrences[PIVOT_N_AXES]; /* "struct ctables_occurrence"s. */ + struct hmap cells; /* Contains "struct ctables_cell"s. */ + struct hmap areas[N_CTATS]; /* Contains "struct ctables_area"s. */ + }; + +static void ctables_section_uninit (struct ctables_section *); + +struct ctables_table + { + struct ctables *ctables; + struct ctables_axis *axes[PIVOT_N_AXES]; + struct ctables_stack stacks[PIVOT_N_AXES]; + struct ctables_section *sections; + size_t n_sections; + enum pivot_axis_type summary_axis; + struct ctables_summary_spec_set summary_specs; + struct variable **sum_vars; + size_t n_sum_vars; + + enum pivot_axis_type slabels_axis; + bool slabels_visible; + + /* The innermost category labels for axis 'a' appear on axis label_axis[a]. + + Most commonly, label_axis[a] == a, and in particular we always have + label_axis{PIVOT_AXIS_LAYER] == PIVOT_AXIS_LAYER. + + If ROWLABELS or COLLABELS is specified, then one of + label_axis[PIVOT_AXIS_ROW] or label_axis[PIVOT_AXIS_COLUMN] can be the + opposite axis or PIVOT_AXIS_LAYER. Only one of them will differ. + + If any category labels are moved, then 'clabels_example' is one of the + variables being moved (and it is otherwise NULL). All of the variables + being moved have the same width, value labels, and categories, so this + example variable can be used to find those out. + + The remaining members in this group are relevant only if category labels + are moved. + + 'clabels_values_map' holds a "struct ctables_value" for all the values + that appear in all of the variables in the moved categories. It is + accumulated as the data is read. Once the data is fully read, its + sorted values are put into 'clabels_values' and 'n_clabels_values'. + */ + enum pivot_axis_type label_axis[PIVOT_N_AXES]; + enum pivot_axis_type clabels_from_axis; + enum pivot_axis_type clabels_to_axis; + const struct variable *clabels_example; + struct hmap clabels_values_map; + struct ctables_value **clabels_values; + size_t n_clabels_values; + + /* Indexed by variable dictionary index. */ + struct ctables_categories **categories; + size_t n_categories; + + double cilevel; + + char *caption; + char *corner; + char *title; + + struct ctables_chisq *chisq; + struct ctables_pairwise *pairwise; + }; + +struct ctables_cell_sort_aux + { + const struct ctables_nest *nest; + enum pivot_axis_type a; + }; + +static int +ctables_cell_compare_3way (const void *a_, const void *b_, const void *aux_) +{ + const struct ctables_cell_sort_aux *aux = aux_; + struct ctables_cell *const *ap = a_; + struct ctables_cell *const *bp = b_; + const struct ctables_cell *a = *ap; + const struct ctables_cell *b = *bp; + + const struct ctables_nest *nest = aux->nest; + for (size_t i = 0; i < nest->n; i++) + if (i != nest->scale_idx) + { + const struct variable *var = nest->vars[i]; + const struct ctables_cell_value *a_cv = &a->axes[aux->a].cvs[i]; + const struct ctables_cell_value *b_cv = &b->axes[aux->a].cvs[i]; + if (a_cv->category != b_cv->category) + return a_cv->category > b_cv->category ? 1 : -1; + + const union value *a_val = &a_cv->value; + const union value *b_val = &b_cv->value; + switch (a_cv->category->type) + { + case CCT_NUMBER: + case CCT_STRING: + case CCT_SUBTOTAL: + case CCT_TOTAL: + case CCT_POSTCOMPUTE: + case CCT_EXCLUDED_MISSING: + /* Must be equal. */ + continue; + + case CCT_NRANGE: + case CCT_SRANGE: + case CCT_MISSING: + case CCT_OTHERNM: + { + int cmp = value_compare_3way (a_val, b_val, var_get_width (var)); + if (cmp) + return cmp; + } + break; + + case CCT_VALUE: + { + int cmp = value_compare_3way (a_val, b_val, var_get_width (var)); + if (cmp) + return a_cv->category->sort_ascending ? cmp : -cmp; + } + break; + + case CCT_LABEL: + { + const char *a_label = var_lookup_value_label (var, a_val); + const char *b_label = var_lookup_value_label (var, b_val); + int cmp; + if (a_label) + { + if (!b_label) + return -1; + cmp = strcmp (a_label, b_label); + } + else + { + if (b_label) + return 1; + cmp = value_compare_3way (a_val, b_val, var_get_width (var)); + } + if (cmp) + return a_cv->category->sort_ascending ? cmp : -cmp; + } + break; + + case CCT_FUNCTION: + NOT_REACHED (); + } + } + return 0; +} + +static int +ctables_cell_compare_leaf_3way (const void *a_, const void *b_, + const void *aux UNUSED) +{ + struct ctables_cell *const *ap = a_; + struct ctables_cell *const *bp = b_; + const struct ctables_cell *a = *ap; + const struct ctables_cell *b = *bp; + + for (enum pivot_axis_type axis = 0; axis < PIVOT_N_AXES; axis++) + { + int al = a->axes[axis].leaf; + int bl = b->axes[axis].leaf; + if (al != bl) + return al > bl ? 1 : -1; + } + return 0; +} + +static struct ctables_area * +ctables_area_insert (struct ctables_section *s, struct ctables_cell *cell, + enum ctables_area_type area) +{ + size_t hash = 0; + for (enum pivot_axis_type a = 0; a < PIVOT_N_AXES; a++) + { + const struct ctables_nest *nest = s->nests[a]; + for (size_t i = 0; i < nest->n_areas[area]; i++) + { + size_t v_idx = nest->areas[area][i]; + struct ctables_cell_value *cv = &cell->axes[a].cvs[v_idx]; + hash = hash_pointer (cv->category, hash); + if (cv->category->type != CCT_TOTAL + && cv->category->type != CCT_SUBTOTAL + && cv->category->type != CCT_POSTCOMPUTE) + hash = value_hash (&cv->value, + var_get_width (nest->vars[v_idx]), hash); + } + } + + struct ctables_area *a; + HMAP_FOR_EACH_WITH_HASH (a, struct ctables_area, node, hash, &s->areas[area]) + { + const struct ctables_cell *df = a->example; + for (enum pivot_axis_type a = 0; a < PIVOT_N_AXES; a++) + { + const struct ctables_nest *nest = s->nests[a]; + for (size_t i = 0; i < nest->n_areas[area]; i++) + { + size_t v_idx = nest->areas[area][i]; + struct ctables_cell_value *cv1 = &df->axes[a].cvs[v_idx]; + struct ctables_cell_value *cv2 = &cell->axes[a].cvs[v_idx]; + if (cv1->category != cv2->category + || (cv1->category->type != CCT_TOTAL + && cv1->category->type != CCT_SUBTOTAL + && cv1->category->type != CCT_POSTCOMPUTE + && !value_equal (&cv1->value, &cv2->value, + var_get_width (nest->vars[v_idx])))) + goto not_equal; + } + } + return a; + + not_equal: ; + } + + struct ctables_sum *sums = (s->table->n_sum_vars + ? xzalloc (s->table->n_sum_vars * sizeof *sums) + : NULL); + + a = xmalloc (sizeof *a); + *a = (struct ctables_area) { .example = cell, .sums = sums }; + hmap_insert (&s->areas[area], &a->node, hash); + return a; +} + +static struct ctables_cell * +ctables_cell_insert__ (struct ctables_section *s, const struct ccase *c, + const struct ctables_category **cats[PIVOT_N_AXES]) +{ + size_t hash = 0; + enum ctables_summary_variant sv = CSV_CELL; + for (enum pivot_axis_type a = 0; a < PIVOT_N_AXES; a++) + { + const struct ctables_nest *nest = s->nests[a]; + for (size_t i = 0; i < nest->n; i++) + if (i != nest->scale_idx) + { + hash = hash_pointer (cats[a][i], hash); + if (cats[a][i]->type != CCT_TOTAL + && cats[a][i]->type != CCT_SUBTOTAL + && cats[a][i]->type != CCT_POSTCOMPUTE) + hash = value_hash (case_data (c, nest->vars[i]), + var_get_width (nest->vars[i]), hash); + else + sv = CSV_TOTAL; + } + } + + struct ctables_cell *cell; + HMAP_FOR_EACH_WITH_HASH (cell, struct ctables_cell, node, hash, &s->cells) + { + for (enum pivot_axis_type a = 0; a < PIVOT_N_AXES; a++) + { + const struct ctables_nest *nest = s->nests[a]; + for (size_t i = 0; i < nest->n; i++) + if (i != nest->scale_idx + && (cats[a][i] != cell->axes[a].cvs[i].category + || (cats[a][i]->type != CCT_TOTAL + && cats[a][i]->type != CCT_SUBTOTAL + && cats[a][i]->type != CCT_POSTCOMPUTE + && !value_equal (case_data (c, nest->vars[i]), + &cell->axes[a].cvs[i].value, + var_get_width (nest->vars[i]))))) + goto not_equal; + } + + return cell; + + not_equal: ; + } + + cell = xmalloc (sizeof *cell); + cell->hide = false; + cell->sv = sv; + cell->omit_areas = 0; + cell->postcompute = false; + for (enum pivot_axis_type a = 0; a < PIVOT_N_AXES; a++) + { + const struct ctables_nest *nest = s->nests[a]; + cell->axes[a].cvs = (nest->n + ? xnmalloc (nest->n, sizeof *cell->axes[a].cvs) + : NULL); + for (size_t i = 0; i < nest->n; i++) + { + const struct ctables_category *cat = cats[a][i]; + const struct variable *var = nest->vars[i]; + const union value *value = case_data (c, var); + if (i != nest->scale_idx) + { + const struct ctables_category *subtotal = cat->subtotal; + if (cat->hide || (subtotal && subtotal->hide_subcategories)) + cell->hide = true; + + if (cat->type == CCT_TOTAL + || cat->type == CCT_SUBTOTAL + || cat->type == CCT_POSTCOMPUTE) + { + switch (a) + { + case PIVOT_AXIS_COLUMN: + cell->omit_areas |= ((1u << CTAT_TABLE) | + (1u << CTAT_LAYER) | + (1u << CTAT_LAYERCOL) | + (1u << CTAT_SUBTABLE) | + (1u << CTAT_COL)); + break; + case PIVOT_AXIS_ROW: + cell->omit_areas |= ((1u << CTAT_TABLE) | + (1u << CTAT_LAYER) | + (1u << CTAT_LAYERROW) | + (1u << CTAT_SUBTABLE) | + (1u << CTAT_ROW)); + break; + case PIVOT_AXIS_LAYER: + cell->omit_areas |= ((1u << CTAT_TABLE) | + (1u << CTAT_LAYER)); + break; + } + } + if (cat->type == CCT_POSTCOMPUTE) + cell->postcompute = true; + } + + cell->axes[a].cvs[i].category = cat; + value_clone (&cell->axes[a].cvs[i].value, value, var_get_width (var)); + } + } + + const struct ctables_nest *ss = s->nests[s->table->summary_axis]; + const struct ctables_summary_spec_set *specs = &ss->specs[cell->sv]; + cell->summaries = xmalloc (specs->n * sizeof *cell->summaries); + for (size_t i = 0; i < specs->n; i++) + ctables_summary_init (&cell->summaries[i], &specs->specs[i]); + for (enum ctables_area_type at = 0; at < N_CTATS; at++) + cell->areas[at] = ctables_area_insert (s, cell, at); + hmap_insert (&s->cells, &cell->node, hash); + return cell; +} + +static void +add_weight (double dst[N_CTWS], const double src[N_CTWS]) +{ + for (enum ctables_weighting wt = 0; wt < N_CTWS; wt++) + dst[wt] += src[wt]; +} + +static void +ctables_cell_add__ (struct ctables_section *s, const struct ccase *c, + const struct ctables_category **cats[PIVOT_N_AXES], + bool is_included, double weight[N_CTWS]) +{ + struct ctables_cell *cell = ctables_cell_insert__ (s, c, cats); + const struct ctables_nest *ss = s->nests[s->table->summary_axis]; + + const struct ctables_summary_spec_set *specs = &ss->specs[cell->sv]; + const union value *value = case_data (c, specs->var); + bool is_missing = var_is_value_missing (specs->var, value); + bool is_scale_missing + = is_missing || (specs->is_scale && is_listwise_missing (specs, c)); + + for (size_t i = 0; i < specs->n; i++) + ctables_summary_add (&cell->summaries[i], &specs->specs[i], value, + is_scale_missing, is_included, + weight[specs->specs[i].weighting]); + for (enum ctables_area_type at = 0; at < N_CTATS; at++) + if (!(cell->omit_areas && (1u << at))) + { + struct ctables_area *a = cell->areas[at]; + + add_weight (a->total, weight); + if (is_included) + add_weight (a->count, weight); + if (!is_missing) + { + add_weight (a->valid, weight); + + if (!is_scale_missing) + for (size_t i = 0; i < s->table->n_sum_vars; i++) + { + const struct variable *var = s->table->sum_vars[i]; + double addend = case_num (c, var); + if (!var_is_num_missing (var, addend)) + for (enum ctables_weighting wt = 0; wt < N_CTWS; wt++) + a->sums[i].sum[wt] += addend * weight[wt]; + } + } + } +} + +static void +recurse_totals (struct ctables_section *s, const struct ccase *c, + const struct ctables_category **cats[PIVOT_N_AXES], + bool is_included, double weight[N_CTWS], + enum pivot_axis_type start_axis, size_t start_nest) +{ + for (enum pivot_axis_type a = start_axis; a < PIVOT_N_AXES; a++) + { + const struct ctables_nest *nest = s->nests[a]; + for (size_t i = start_nest; i < nest->n; i++) + { + if (i == nest->scale_idx) + continue; + + const struct variable *var = nest->vars[i]; + + const struct ctables_category *total = ctables_categories_total ( + s->table->categories[var_get_dict_index (var)]); + if (total) + { + const struct ctables_category *save = cats[a][i]; + cats[a][i] = total; + ctables_cell_add__ (s, c, cats, is_included, weight); + recurse_totals (s, c, cats, is_included, weight, a, i + 1); + cats[a][i] = save; + } + } + start_nest = 0; + } +} + +static void +recurse_subtotals (struct ctables_section *s, const struct ccase *c, + const struct ctables_category **cats[PIVOT_N_AXES], + bool is_included, double weight[N_CTWS], + enum pivot_axis_type start_axis, size_t start_nest) +{ + for (enum pivot_axis_type a = start_axis; a < PIVOT_N_AXES; a++) + { + const struct ctables_nest *nest = s->nests[a]; + for (size_t i = start_nest; i < nest->n; i++) + { + if (i == nest->scale_idx) + continue; + + const struct ctables_category *save = cats[a][i]; + if (save->subtotal) + { + cats[a][i] = save->subtotal; + ctables_cell_add__ (s, c, cats, is_included, weight); + recurse_subtotals (s, c, cats, is_included, weight, a, i + 1); + cats[a][i] = save; + } + } + start_nest = 0; + } +} + +static void +ctables_cell_insert (struct ctables_section *s, const struct ccase *c, + double weight[N_CTWS]) +{ + const struct ctables_category *layer_cats[s->nests[PIVOT_AXIS_LAYER]->n]; + const struct ctables_category *row_cats[s->nests[PIVOT_AXIS_ROW]->n]; + const struct ctables_category *column_cats[s->nests[PIVOT_AXIS_COLUMN]->n]; + const struct ctables_category **cats[PIVOT_N_AXES] = + { + [PIVOT_AXIS_LAYER] = layer_cats, + [PIVOT_AXIS_ROW] = row_cats, + [PIVOT_AXIS_COLUMN] = column_cats, + }; + + bool is_included = true; + + for (enum pivot_axis_type a = 0; a < PIVOT_N_AXES; a++) + { + const struct ctables_nest *nest = s->nests[a]; + for (size_t i = 0; i < nest->n; i++) + if (i != nest->scale_idx) + { + const struct variable *var = nest->vars[i]; + const union value *value = case_data (c, var); + + cats[a][i] = ctables_categories_match ( + s->table->categories[var_get_dict_index (var)], value, var); + if (!cats[a][i]) + { + if (i != nest->summary_idx) + return; + + if (!var_is_value_missing (var, value)) + return; + + static const struct ctables_category cct_excluded_missing = { + .type = CCT_EXCLUDED_MISSING, + .hide = true, + }; + cats[a][i] = &cct_excluded_missing; + is_included = false; + } + } + } + + if (is_included) + for (enum pivot_axis_type a = 0; a < PIVOT_N_AXES; a++) + { + const struct ctables_nest *nest = s->nests[a]; + for (size_t i = 0; i < nest->n; i++) + if (i != nest->scale_idx) + { + const struct variable *var = nest->vars[i]; + const union value *value = case_data (c, var); + ctables_add_occurrence (var, value, &s->occurrences[a][i]); + } + } + + ctables_cell_add__ (s, c, cats, is_included, weight); + recurse_totals (s, c, cats, is_included, weight, 0, 0); + recurse_subtotals (s, c, cats, is_included, weight, 0, 0); +} + +struct ctables_value + { + struct hmap_node node; + union value value; + int leaf; + }; + +static struct ctables_value * +ctables_value_find__ (struct ctables_table *t, const union value *value, + int width, unsigned int hash) +{ + struct ctables_value *clv; + HMAP_FOR_EACH_WITH_HASH (clv, struct ctables_value, node, + hash, &t->clabels_values_map) + if (value_equal (value, &clv->value, width)) + return clv; + return NULL; +} + +static void +ctables_value_insert (struct ctables_table *t, const union value *value, + int width) +{ + unsigned int hash = value_hash (value, width, 0); + struct ctables_value *clv = ctables_value_find__ (t, value, width, hash); + if (!clv) + { + clv = xmalloc (sizeof *clv); + value_clone (&clv->value, value, width); + hmap_insert (&t->clabels_values_map, &clv->node, hash); + } +} + +static struct ctables_value * +ctables_value_find (struct ctables_table *t, + const union value *value, int width) +{ + return ctables_value_find__ (t, value, width, + value_hash (value, width, 0)); +} + +static int +compare_ctables_values_3way (const void *a_, const void *b_, const void *width_) +{ + const struct ctables_value *const *ap = a_; + const struct ctables_value *const *bp = b_; + const struct ctables_value *a = *ap; + const struct ctables_value *b = *bp; + const int *width = width_; + return value_compare_3way (&a->value, &b->value, *width); +} + +static void +ctables_sort_clabels_values (struct ctables_table *t) +{ + const struct variable *v0 = t->clabels_example; + int width = var_get_width (v0); + + struct ctables_categories *c0 = t->categories[var_get_dict_index (v0)]; + if (c0->show_empty) + { + const struct val_labs *val_labs = var_get_value_labels (v0); + for (const struct val_lab *vl = val_labs_first (val_labs); vl; + vl = val_labs_next (val_labs, vl)) + if (ctables_categories_match (c0, &vl->value, v0)) + ctables_value_insert (t, &vl->value, width); + } + + size_t n = hmap_count (&t->clabels_values_map); + t->clabels_values = xnmalloc (n, sizeof *t->clabels_values); + + struct ctables_value *clv; + size_t i = 0; + HMAP_FOR_EACH (clv, struct ctables_value, node, &t->clabels_values_map) + t->clabels_values[i++] = clv; + t->n_clabels_values = n; + assert (i == n); + + sort (t->clabels_values, n, sizeof *t->clabels_values, + compare_ctables_values_3way, &width); + + for (size_t i = 0; i < n; i++) + t->clabels_values[i]->leaf = i; +} + +struct ctables + { + const struct dictionary *dict; + struct pivot_table_look *look; + + /* For CTEF_* formats. */ + struct fmt_settings ctables_formats; + + /* If this is NULL, zeros are displayed using the normal print format. + Otherwise, this string is displayed. */ + char *zero; + + /* If this is NULL, missing values are displayed using the normal print + format. Otherwise, this string is displayed. */ + char *missing; + + /* Indexed by variable dictionary index. */ + enum ctables_vlabel *vlabels; + + struct hmap postcomputes; /* Contains "struct ctables_postcompute"s. */ + + bool mrsets_count_duplicates; /* MRSETS. */ + bool smissing_listwise; /* SMISSING. */ + struct variable *e_weight; /* WEIGHT. */ + int hide_threshold; /* HIDESMALLCOUNTS. */ + + struct ctables_table **tables; + size_t n_tables; + }; + +static double +ctpo_add (double a, double b) +{ + return a + b; +} + +static double +ctpo_sub (double a, double b) +{ + return a - b; +} + +static double +ctpo_mul (double a, double b) +{ + return a * b; +} + +static double +ctpo_div (double a, double b) +{ + return b ? a / b : SYSMIS; +} + +static double +ctpo_pow (double a, double b) +{ + int save_errno = errno; + errno = 0; + double result = pow (a, b); + if (errno) + result = SYSMIS; + errno = save_errno; + return result; +} + +static double +ctpo_neg (double a, double b UNUSED) +{ + return -a; +} + +struct ctables_pcexpr_evaluate_ctx + { + const struct ctables_cell *cell; + const struct ctables_section *section; + const struct ctables_categories *cats; + enum pivot_axis_type pc_a; + size_t pc_a_idx; + size_t summary_idx; + enum fmt_type parse_format; + }; + +static double ctables_pcexpr_evaluate ( + const struct ctables_pcexpr_evaluate_ctx *, const struct ctables_pcexpr *); + +static double +ctables_pcexpr_evaluate_nonterminal ( + const struct ctables_pcexpr_evaluate_ctx *ctx, + const struct ctables_pcexpr *e, size_t n_args, + double evaluate (double, double)) +{ + double args[2] = { 0, 0 }; + for (size_t i = 0; i < n_args; i++) + { + args[i] = ctables_pcexpr_evaluate (ctx, e->subs[i]); + if (!isfinite (args[i]) || args[i] == SYSMIS) + return SYSMIS; + } + return evaluate (args[0], args[1]); +} + +static double +ctables_pcexpr_evaluate_category (const struct ctables_pcexpr_evaluate_ctx *ctx, + const struct ctables_cell_value *pc_cv) +{ + const struct ctables_section *s = ctx->section; + + size_t hash = 0; + for (enum pivot_axis_type a = 0; a < PIVOT_N_AXES; a++) + { + const struct ctables_nest *nest = s->nests[a]; + for (size_t i = 0; i < nest->n; i++) + if (i != nest->scale_idx) + { + const struct ctables_cell_value *cv + = (a == ctx->pc_a && i == ctx->pc_a_idx ? pc_cv + : &ctx->cell->axes[a].cvs[i]); + hash = hash_pointer (cv->category, hash); + if (cv->category->type != CCT_TOTAL + && cv->category->type != CCT_SUBTOTAL + && cv->category->type != CCT_POSTCOMPUTE) + hash = value_hash (&cv->value, + var_get_width (nest->vars[i]), hash); + } + } + + struct ctables_cell *tc; + HMAP_FOR_EACH_WITH_HASH (tc, struct ctables_cell, node, hash, &s->cells) + { + for (enum pivot_axis_type a = 0; a < PIVOT_N_AXES; a++) + { + const struct ctables_nest *nest = s->nests[a]; + for (size_t i = 0; i < nest->n; i++) + if (i != nest->scale_idx) + { + const struct ctables_cell_value *p_cv + = (a == ctx->pc_a && i == ctx->pc_a_idx ? pc_cv + : &ctx->cell->axes[a].cvs[i]); + const struct ctables_cell_value *t_cv = &tc->axes[a].cvs[i]; + if (p_cv->category != t_cv->category + || (p_cv->category->type != CCT_TOTAL + && p_cv->category->type != CCT_SUBTOTAL + && p_cv->category->type != CCT_POSTCOMPUTE + && !value_equal (&p_cv->value, + &t_cv->value, + var_get_width (nest->vars[i])))) + goto not_equal; + } + } + + goto found; + + not_equal: ; + } + return 0; + +found: ; + const struct ctables_table *t = s->table; + const struct ctables_nest *specs_nest = s->nests[t->summary_axis]; + const struct ctables_summary_spec_set *specs = &specs_nest->specs[tc->sv]; + return ctables_summary_value (tc->areas, &tc->summaries[ctx->summary_idx], + &specs->specs[ctx->summary_idx]); +} + +static double +ctables_pcexpr_evaluate (const struct ctables_pcexpr_evaluate_ctx *ctx, + const struct ctables_pcexpr *e) +{ + switch (e->op) + { + case CTPO_CONSTANT: + return e->number; + + case CTPO_CAT_NRANGE: + case CTPO_CAT_SRANGE: + case CTPO_CAT_MISSING: + case CTPO_CAT_OTHERNM: + { + struct ctables_cell_value cv = { + .category = ctables_find_category_for_postcompute (ctx->section->table->ctables->dict, ctx->cats, ctx->parse_format, e) + }; + assert (cv.category != NULL); + + struct hmap *occurrences = &ctx->section->occurrences[ctx->pc_a][ctx->pc_a_idx]; + const struct ctables_occurrence *o; + + double sum = 0.0; + const struct variable *var = ctx->section->nests[ctx->pc_a]->vars[ctx->pc_a_idx]; + HMAP_FOR_EACH (o, struct ctables_occurrence, node, occurrences) + if (ctables_categories_match (ctx->cats, &o->value, var) == cv.category) + { + cv.value = o->value; + sum += ctables_pcexpr_evaluate_category (ctx, &cv); + } + return sum; + } + + case CTPO_CAT_NUMBER: + case CTPO_CAT_SUBTOTAL: + case CTPO_CAT_TOTAL: + { + struct ctables_cell_value cv = { + .category = ctables_find_category_for_postcompute (ctx->section->table->ctables->dict, ctx->cats, ctx->parse_format, e), + .value = { .f = e->number }, + }; + assert (cv.category != NULL); + return ctables_pcexpr_evaluate_category (ctx, &cv); + } + + case CTPO_CAT_STRING: + { + int width = var_get_width (ctx->section->nests[ctx->pc_a]->vars[ctx->pc_a_idx]); + char *s = NULL; + if (width > e->string.length) + { + s = xmalloc (width); + buf_copy_rpad (s, width, e->string.string, e->string.length, ' '); + } + + const struct ctables_category *category + = ctables_find_category_for_postcompute ( + ctx->section->table->ctables->dict, + ctx->cats, ctx->parse_format, e); + assert (category != NULL); + + struct ctables_cell_value cv = { .category = category }; + if (category->type == CCT_NUMBER) + cv.value.f = category->number; + else if (category->type == CCT_STRING) + cv.value.s = CHAR_CAST (uint8_t *, s ? s : e->string.string); + else + NOT_REACHED (); + + double retval = ctables_pcexpr_evaluate_category (ctx, &cv); + free (s); + return retval; + } + + case CTPO_ADD: + return ctables_pcexpr_evaluate_nonterminal (ctx, e, 2, ctpo_add); + + case CTPO_SUB: + return ctables_pcexpr_evaluate_nonterminal (ctx, e, 2, ctpo_sub); + + case CTPO_MUL: + return ctables_pcexpr_evaluate_nonterminal (ctx, e, 2, ctpo_mul); + + case CTPO_DIV: + return ctables_pcexpr_evaluate_nonterminal (ctx, e, 2, ctpo_div); + + case CTPO_POW: + return ctables_pcexpr_evaluate_nonterminal (ctx, e, 2, ctpo_pow); + + case CTPO_NEG: + return ctables_pcexpr_evaluate_nonterminal (ctx, e, 1, ctpo_neg); + } + + NOT_REACHED (); +} + +static const struct ctables_category * +ctables_cell_postcompute (const struct ctables_section *s, + const struct ctables_cell *cell, + enum pivot_axis_type *pc_a_p, + size_t *pc_a_idx_p) +{ + assert (cell->postcompute); + const struct ctables_category *pc_cat = NULL; + for (enum pivot_axis_type pc_a = 0; pc_a < PIVOT_N_AXES; pc_a++) + for (size_t pc_a_idx = 0; pc_a_idx < s->nests[pc_a]->n; pc_a_idx++) + { + const struct ctables_cell_value *cv = &cell->axes[pc_a].cvs[pc_a_idx]; + if (cv->category->type == CCT_POSTCOMPUTE) + { + if (pc_cat) + { + /* Multiple postcomputes cross each other. The value is + undefined. */ + return NULL; + } + + pc_cat = cv->category; + if (pc_a_p) + *pc_a_p = pc_a; + if (pc_a_idx_p) + *pc_a_idx_p = pc_a_idx; + } + } + + assert (pc_cat != NULL); + return pc_cat; +} + +static double +ctables_cell_calculate_postcompute (const struct ctables_section *s, + const struct ctables_cell *cell, + const struct ctables_summary_spec *ss, + struct fmt_spec *format, + bool *is_ctables_format, + size_t summary_idx) +{ + enum pivot_axis_type pc_a = 0; + size_t pc_a_idx = 0; + const struct ctables_category *pc_cat = ctables_cell_postcompute ( + s, cell, &pc_a, &pc_a_idx); + if (!pc_cat) + return SYSMIS; + + const struct ctables_postcompute *pc = pc_cat->pc; + if (pc->specs) + { + for (size_t i = 0; i < pc->specs->n; i++) + { + const struct ctables_summary_spec *ss2 = &pc->specs->specs[i]; + if (ss->function == ss2->function + && ss->weighting == ss2->weighting + && ss->calc_area == ss2->calc_area + && ss->percentile == ss2->percentile) + { + *format = ss2->format; + *is_ctables_format = ss2->is_ctables_format; + break; + } + } + } + + const struct variable *var = s->nests[pc_a]->vars[pc_a_idx]; + const struct ctables_categories *cats = s->table->categories[ + var_get_dict_index (var)]; + struct ctables_pcexpr_evaluate_ctx ctx = { + .cell = cell, + .section = s, + .cats = cats, + .pc_a = pc_a, + .pc_a_idx = pc_a_idx, + .summary_idx = summary_idx, + .parse_format = pc_cat->parse_format, + }; + return ctables_pcexpr_evaluate (&ctx, pc->expr); +} + +/* Chi-square test (SIGTEST). */ +struct ctables_chisq + { + double alpha; + bool include_mrsets; + bool all_visible; + }; + +/* Pairwise comparison test (COMPARETEST). */ +struct ctables_pairwise + { + enum { PROP, MEAN } type; + double alpha[2]; + bool include_mrsets; + bool meansvariance_allcats; + bool all_visible; + enum { BONFERRONI = 1, BH } adjust; + bool merge; + bool apa_style; + bool show_sig; + }; + + + +static bool +parse_col_width (struct lexer *lexer, const char *name, double *width) +{ + lex_match (lexer, T_EQUALS); + if (lex_match_id (lexer, "DEFAULT")) + *width = SYSMIS; + else if (lex_force_num_range_closed (lexer, name, 0, DBL_MAX)) + { + *width = lex_number (lexer); + lex_get (lexer); + } + else + return false; + + return true; +} + +static bool +parse_bool (struct lexer *lexer, bool *b) +{ + if (lex_match_id (lexer, "NO")) + *b = false; + else if (lex_match_id (lexer, "YES")) + *b = true; + else + { + lex_error_expecting (lexer, "YES", "NO"); + return false; + } + return true; +} + +static void +ctables_chisq_destroy (struct ctables_chisq *chisq) +{ + free (chisq); +} + +static void +ctables_pairwise_destroy (struct ctables_pairwise *pairwise) +{ + free (pairwise); +} + +static void +ctables_table_destroy (struct ctables_table *t) +{ + if (!t) + return; + + for (size_t i = 0; i < t->n_sections; i++) + ctables_section_uninit (&t->sections[i]); + free (t->sections); + + for (size_t i = 0; i < t->n_categories; i++) + ctables_categories_unref (t->categories[i]); + free (t->categories); + + for (enum pivot_axis_type a = 0; a < PIVOT_N_AXES; a++) + { + ctables_axis_destroy (t->axes[a]); + ctables_stack_uninit (&t->stacks[a]); + } + free (t->summary_specs.specs); + + struct ctables_value *ctv, *next_ctv; + HMAP_FOR_EACH_SAFE (ctv, next_ctv, struct ctables_value, node, + &t->clabels_values_map) + { + value_destroy (&ctv->value, var_get_width (t->clabels_example)); + hmap_delete (&t->clabels_values_map, &ctv->node); + free (ctv); + } + hmap_destroy (&t->clabels_values_map); + free (t->clabels_values); + + free (t->sum_vars); + free (t->caption); + free (t->corner); + free (t->title); + ctables_chisq_destroy (t->chisq); + ctables_pairwise_destroy (t->pairwise); + free (t); +} + +static void +ctables_destroy (struct ctables *ct) +{ + if (!ct) + return; + + struct ctables_postcompute *pc, *next_pc; + HMAP_FOR_EACH_SAFE (pc, next_pc, struct ctables_postcompute, hmap_node, + &ct->postcomputes) + { + free (pc->name); + msg_location_destroy (pc->location); + ctables_pcexpr_destroy (pc->expr); + free (pc->label); + if (pc->specs) + { + ctables_summary_spec_set_uninit (pc->specs); + free (pc->specs); + } + hmap_delete (&ct->postcomputes, &pc->hmap_node); + free (pc); + } + hmap_destroy (&ct->postcomputes); + + fmt_settings_uninit (&ct->ctables_formats); + pivot_table_look_unref (ct->look); + free (ct->zero); + free (ct->missing); + free (ct->vlabels); + for (size_t i = 0; i < ct->n_tables; i++) + ctables_table_destroy (ct->tables[i]); + free (ct->tables); + free (ct); +} + +static bool +all_strings (struct variable **vars, size_t n_vars, + const struct ctables_category *cat) +{ + for (size_t j = 0; j < n_vars; j++) + if (var_is_numeric (vars[j])) + { + msg_at (SE, cat->location, + _("This category specification may be applied only to string " + "variables, but this subcommand tries to apply it to " + "numeric variable %s."), + var_get_name (vars[j])); + return false; + } + return true; +} + +static bool +ctables_table_parse_categories (struct lexer *lexer, struct dictionary *dict, + struct ctables *ct, struct ctables_table *t) +{ + if (!lex_force_match_id (lexer, "VARIABLES")) + return false; + lex_match (lexer, T_EQUALS); + + struct variable **vars; + size_t n_vars; + if (!parse_variables (lexer, dict, &vars, &n_vars, PV_NO_SCRATCH)) + return false; + + const struct fmt_spec *common_format = var_get_print_format (vars[0]); + for (size_t i = 1; i < n_vars; i++) + { + const struct fmt_spec *f = var_get_print_format (vars[i]); + if (f->type != common_format->type) + { + common_format = NULL; + break; + } + } + bool parse_strings + = (common_format + && (fmt_get_category (common_format->type) + & (FMT_CAT_DATE | FMT_CAT_TIME | FMT_CAT_DATE_COMPONENT))); + + struct ctables_categories *c = xmalloc (sizeof *c); + *c = (struct ctables_categories) { .n_refs = n_vars, .show_empty = true }; + for (size_t i = 0; i < n_vars; i++) + { + struct ctables_categories **cp + = &t->categories[var_get_dict_index (vars[i])]; + ctables_categories_unref (*cp); + *cp = c; + } + + size_t allocated_cats = 0; + int cats_start_ofs = -1; + int cats_end_ofs = -1; + if (lex_match (lexer, T_LBRACK)) + { + cats_start_ofs = lex_ofs (lexer); + do + { + if (c->n_cats >= allocated_cats) + c->cats = x2nrealloc (c->cats, &allocated_cats, sizeof *c->cats); + + int start_ofs = lex_ofs (lexer); + struct ctables_category *cat = &c->cats[c->n_cats]; + if (!ctables_table_parse_explicit_category (lexer, dict, ct, cat)) + goto error; + cat->location = lex_ofs_location (lexer, start_ofs, lex_ofs (lexer) - 1); + c->n_cats++; + + lex_match (lexer, T_COMMA); + } + while (!lex_match (lexer, T_RBRACK)); + cats_end_ofs = lex_ofs (lexer) - 1; + } + + struct ctables_category cat = { + .type = CCT_VALUE, + .include_missing = false, + .sort_ascending = true, + }; + bool show_totals = false; + char *total_label = NULL; + bool totals_before = false; + while (lex_token (lexer) != T_SLASH && lex_token (lexer) != T_ENDCMD) + { + if (!c->n_cats && lex_match_id (lexer, "ORDER")) + { + lex_match (lexer, T_EQUALS); + if (lex_match_id (lexer, "A")) + cat.sort_ascending = true; + else if (lex_match_id (lexer, "D")) + cat.sort_ascending = false; + else + { + lex_error_expecting (lexer, "A", "D"); + goto error; + } + } + else if (!c->n_cats && lex_match_id (lexer, "KEY")) + { + int start_ofs = lex_ofs (lexer) - 1; + lex_match (lexer, T_EQUALS); + if (lex_match_id (lexer, "VALUE")) + cat.type = CCT_VALUE; + else if (lex_match_id (lexer, "LABEL")) + cat.type = CCT_LABEL; + else + { + cat.type = CCT_FUNCTION; + if (!parse_ctables_summary_function (lexer, &cat.sort_function, + &cat.weighting, &cat.area)) + goto error; + + if (lex_match (lexer, T_LPAREN)) + { + cat.sort_var = parse_variable (lexer, dict); + if (!cat.sort_var) + goto error; + + if (cat.sort_function == CTSF_PTILE) + { + lex_match (lexer, T_COMMA); + if (!lex_force_num_range_closed (lexer, "PTILE", 0, 100)) + goto error; + cat.percentile = lex_number (lexer); + lex_get (lexer); + } + + if (!lex_force_match (lexer, T_RPAREN)) + goto error; + } + else if (ctables_function_availability (cat.sort_function) + == CTFA_SCALE) + { + bool UNUSED b = lex_force_match (lexer, T_LPAREN); + goto error; + } + + lex_ofs_error (lexer, start_ofs, lex_ofs (lexer) - 1, + _("Data-dependent sorting is not implemented.")); + goto error; + } + } + else if (!c->n_cats && lex_match_id (lexer, "MISSING")) + { + lex_match (lexer, T_EQUALS); + if (lex_match_id (lexer, "INCLUDE")) + cat.include_missing = true; + else if (lex_match_id (lexer, "EXCLUDE")) + cat.include_missing = false; + else + { + lex_error_expecting (lexer, "INCLUDE", "EXCLUDE"); + goto error; + } + } + else if (lex_match_id (lexer, "TOTAL")) + { + lex_match (lexer, T_EQUALS); + if (!parse_bool (lexer, &show_totals)) + goto error; + } + else if (lex_match_id (lexer, "LABEL")) + { + lex_match (lexer, T_EQUALS); + if (!lex_force_string (lexer)) + goto error; + free (total_label); + total_label = ss_xstrdup (lex_tokss (lexer)); + lex_get (lexer); + } + else if (lex_match_id (lexer, "POSITION")) + { + lex_match (lexer, T_EQUALS); + if (lex_match_id (lexer, "BEFORE")) + totals_before = true; + else if (lex_match_id (lexer, "AFTER")) + totals_before = false; + else + { + lex_error_expecting (lexer, "BEFORE", "AFTER"); + goto error; + } + } + else if (lex_match_id (lexer, "EMPTY")) + { + lex_match (lexer, T_EQUALS); + if (lex_match_id (lexer, "INCLUDE")) + c->show_empty = true; + else if (lex_match_id (lexer, "EXCLUDE")) + c->show_empty = false; + else + { + lex_error_expecting (lexer, "INCLUDE", "EXCLUDE"); + goto error; + } + } + else + { + if (!c->n_cats) + lex_error_expecting (lexer, "ORDER", "KEY", "MISSING", + "TOTAL", "LABEL", "POSITION", "EMPTY"); + else + lex_error_expecting (lexer, "TOTAL", "LABEL", "POSITION", "EMPTY"); + goto error; + } + } + + if (!c->n_cats) + { + if (c->n_cats >= allocated_cats) + c->cats = x2nrealloc (c->cats, &allocated_cats, sizeof *c->cats); + c->cats[c->n_cats++] = cat; + } + + if (show_totals) + { + if (c->n_cats >= allocated_cats) + c->cats = x2nrealloc (c->cats, &allocated_cats, sizeof *c->cats); + + struct ctables_category *totals; + if (totals_before) + { + insert_element (c->cats, c->n_cats, sizeof *c->cats, 0); + totals = &c->cats[0]; + } + else + totals = &c->cats[c->n_cats]; + c->n_cats++; + + *totals = (struct ctables_category) { + .type = CCT_TOTAL, + .total_label = total_label ? total_label : xstrdup (_("Total")), + }; + } + + struct ctables_category *subtotal = NULL; + for (size_t i = totals_before ? 0 : c->n_cats; + totals_before ? i < c->n_cats : i-- > 0; + totals_before ? i++ : 0) + { + struct ctables_category *cat = &c->cats[i]; + switch (cat->type) + { + case CCT_NUMBER: + case CCT_STRING: + case CCT_NRANGE: + case CCT_SRANGE: + case CCT_MISSING: + case CCT_OTHERNM: + cat->subtotal = subtotal; + break; + + case CCT_POSTCOMPUTE: + break; + + case CCT_SUBTOTAL: + subtotal = cat; + break; + + case CCT_TOTAL: + case CCT_VALUE: + case CCT_LABEL: + case CCT_FUNCTION: + case CCT_EXCLUDED_MISSING: + break; + } + } + + if (cats_start_ofs != -1) + { + for (size_t i = 0; i < c->n_cats; i++) + { + struct ctables_category *cat = &c->cats[i]; + switch (cat->type) + { + case CCT_POSTCOMPUTE: + cat->parse_format = parse_strings ? common_format->type : FMT_F; + struct msg_location *cats_location + = lex_ofs_location (lexer, cats_start_ofs, cats_end_ofs); + bool ok = ctables_recursive_check_postcompute ( + dict, cat->pc->expr, cat, c, cats_location); + msg_location_destroy (cats_location); + if (!ok) + goto error; + break; + + case CCT_NUMBER: + case CCT_NRANGE: + for (size_t j = 0; j < n_vars; j++) + if (var_is_alpha (vars[j])) + { + msg_at (SE, cat->location, + _("This category specification may be applied " + "only to numeric variables, but this " + "subcommand tries to apply it to string " + "variable %s."), + var_get_name (vars[j])); + goto error; + } + break; + + case CCT_STRING: + if (parse_strings) + { + double n; + if (!parse_category_string (cat->location, cat->string, dict, + common_format->type, &n)) + goto error; + + ss_dealloc (&cat->string); + + cat->type = CCT_NUMBER; + cat->number = n; + } + else if (!all_strings (vars, n_vars, cat)) + goto error; + break; + + case CCT_SRANGE: + if (parse_strings) + { + double n[2]; + + if (!cat->srange[0].string) + n[0] = -DBL_MAX; + else if (!parse_category_string (cat->location, + cat->srange[0], dict, + common_format->type, &n[0])) + goto error; + + if (!cat->srange[1].string) + n[1] = DBL_MAX; + else if (!parse_category_string (cat->location, + cat->srange[1], dict, + common_format->type, &n[1])) + goto error; + + ss_dealloc (&cat->srange[0]); + ss_dealloc (&cat->srange[1]); + + cat->type = CCT_NRANGE; + cat->nrange[0] = n[0]; + cat->nrange[1] = n[1]; + } + else if (!all_strings (vars, n_vars, cat)) + goto error; + break; + + case CCT_MISSING: + case CCT_OTHERNM: + case CCT_SUBTOTAL: + case CCT_TOTAL: + case CCT_VALUE: + case CCT_LABEL: + case CCT_FUNCTION: + case CCT_EXCLUDED_MISSING: + break; + } + } + } + + free (vars); + return true; + +error: + free (vars); + return false; +} + + +struct merge_item + { + const struct ctables_summary_spec_set *set; + size_t ofs; + }; + +static int +merge_item_compare_3way (const struct merge_item *a, const struct merge_item *b) +{ + const struct ctables_summary_spec *as = &a->set->specs[a->ofs]; + const struct ctables_summary_spec *bs = &b->set->specs[b->ofs]; + if (as->function != bs->function) + return as->function > bs->function ? 1 : -1; + else if (as->weighting != bs->weighting) + return as->weighting > bs->weighting ? 1 : -1; + else if (as->calc_area != bs->calc_area) + return as->calc_area > bs->calc_area ? 1 : -1; + else if (as->percentile != bs->percentile) + return as->percentile < bs->percentile ? 1 : -1; + + const char *as_label = as->label ? as->label : ""; + const char *bs_label = bs->label ? bs->label : ""; + return strcmp (as_label, bs_label); +} + +static void +ctables_table_add_section (struct ctables_table *t, enum pivot_axis_type a, + size_t ix[PIVOT_N_AXES]) +{ + if (a < PIVOT_N_AXES) + { + size_t limit = MAX (t->stacks[a].n, 1); + for (ix[a] = 0; ix[a] < limit; ix[a]++) + ctables_table_add_section (t, a + 1, ix); + } + else + { + struct ctables_section *s = &t->sections[t->n_sections++]; + *s = (struct ctables_section) { + .table = t, + .cells = HMAP_INITIALIZER (s->cells), + }; + for (a = 0; a < PIVOT_N_AXES; a++) + if (t->stacks[a].n) + { + struct ctables_nest *nest = &t->stacks[a].nests[ix[a]]; + s->nests[a] = nest; + s->occurrences[a] = xnmalloc (nest->n, sizeof *s->occurrences[a]); + for (size_t i = 0; i < nest->n; i++) + hmap_init (&s->occurrences[a][i]); + } + for (enum ctables_area_type at = 0; at < N_CTATS; at++) + hmap_init (&s->areas[at]); + } +} + +static char * +ctables_format (double d, const struct fmt_spec *format, + const struct fmt_settings *settings) +{ + const union value v = { .f = d }; + char *s = data_out_stretchy (&v, "UTF-8", format, settings, NULL); + + /* The custom-currency specifications for NEQUAL, PAREN, and PCTPAREN don't + produce the results we want for negative numbers, putting the negative + sign in the wrong spot, before the prefix instead of after it. We can't, + in fact, produce the desired results using a custom-currency + specification. Instead, we postprocess the output, moving the negative + sign into place: + + NEQUAL: "-N=3" => "N=-3" + PAREN: "-(3)" => "(-3)" + PCTPAREN: "-(3%)" => "(-3%)" + + This transformation doesn't affect NEGPAREN. */ + char *minus_src = strchr (s, '-'); + if (minus_src && (minus_src == s || minus_src[-1] != 'E')) + { + char *n_equals = strstr (s, "N="); + char *lparen = strchr (s, '('); + char *minus_dst = n_equals ? n_equals + 1 : lparen; + if (minus_dst) + move_element (s, minus_dst - s + 1, 1, minus_src - s, minus_dst - s); + } + return s; +} + +static bool +all_hidden_vlabels (const struct ctables_table *t, enum pivot_axis_type a) +{ + for (size_t i = 0; i < t->stacks[a].n; i++) + { + struct ctables_nest *nest = &t->stacks[a].nests[i]; + if (nest->n != 1 || nest->scale_idx != 0) + return false; + + enum ctables_vlabel vlabel + = t->ctables->vlabels[var_get_dict_index (nest->vars[0])]; + if (vlabel != CTVL_NONE) + return false; + } + return true; +} + +static void +ctables_table_output (struct ctables *ct, struct ctables_table *t) +{ + struct pivot_table *pt = pivot_table_create__ ( + (t->title + ? pivot_value_new_user_text (t->title, SIZE_MAX) + : pivot_value_new_text (N_("Custom Tables"))), + "Custom Tables"); + if (t->caption) + pivot_table_set_caption ( + pt, pivot_value_new_user_text (t->caption, SIZE_MAX)); + if (t->corner) + pivot_table_set_corner_text ( + pt, pivot_value_new_user_text (t->corner, SIZE_MAX)); + + bool summary_dimension = (t->summary_axis != t->slabels_axis + || (!t->slabels_visible + && t->summary_specs.n > 1)); + if (summary_dimension) + { + struct pivot_dimension *d = pivot_dimension_create ( + pt, t->slabels_axis, N_("Statistics")); + const struct ctables_summary_spec_set *specs = &t->summary_specs; + if (!t->slabels_visible) + d->hide_all_labels = true; + for (size_t i = 0; i < specs->n; i++) + pivot_category_create_leaf ( + d->root, ctables_summary_label (&specs->specs[i], t->cilevel)); + } + + bool categories_dimension = t->clabels_example != NULL; + if (categories_dimension) + { + struct pivot_dimension *d = pivot_dimension_create ( + pt, t->label_axis[t->clabels_from_axis], + t->clabels_from_axis == PIVOT_AXIS_ROW + ? N_("Row Categories") + : N_("Column Categories")); + const struct variable *var = t->clabels_example; + const struct ctables_categories *c = t->categories[var_get_dict_index (var)]; + for (size_t i = 0; i < t->n_clabels_values; i++) + { + const struct ctables_value *value = t->clabels_values[i]; + const struct ctables_category *cat = ctables_categories_match (c, &value->value, var); + assert (cat != NULL); + pivot_category_create_leaf ( + d->root, ctables_category_create_value_label (c, cat, + t->clabels_example, + &value->value)); + } + } + + pivot_table_set_look (pt, ct->look); + struct pivot_dimension *d[PIVOT_N_AXES]; + for (enum pivot_axis_type a = 0; a < PIVOT_N_AXES; a++) + { + static const char *names[] = { + [PIVOT_AXIS_ROW] = N_("Rows"), + [PIVOT_AXIS_COLUMN] = N_("Columns"), + [PIVOT_AXIS_LAYER] = N_("Layers"), + }; + d[a] = (t->axes[a] || a == t->summary_axis + ? pivot_dimension_create (pt, a, names[a]) + : NULL); + if (!d[a]) + continue; + + assert (t->axes[a]); + + for (size_t i = 0; i < t->stacks[a].n; i++) + { + struct ctables_nest *nest = &t->stacks[a].nests[i]; + struct ctables_section **sections = xnmalloc (t->n_sections, + sizeof *sections); + size_t n_sections = 0; + + size_t n_total_cells = 0; + size_t max_depth = 0; + for (size_t j = 0; j < t->n_sections; j++) + if (t->sections[j].nests[a] == nest) + { + struct ctables_section *s = &t->sections[j]; + sections[n_sections++] = s; + n_total_cells += hmap_count (&s->cells); + + size_t depth = s->nests[a]->n; + max_depth = MAX (depth, max_depth); + } + + struct ctables_cell **sorted = xnmalloc (n_total_cells, + sizeof *sorted); + size_t n_sorted = 0; + + for (size_t j = 0; j < n_sections; j++) + { + struct ctables_section *s = sections[j]; + + struct ctables_cell *cell; + HMAP_FOR_EACH (cell, struct ctables_cell, node, &s->cells) + if (!cell->hide) + sorted[n_sorted++] = cell; + assert (n_sorted <= n_total_cells); + } + + struct ctables_cell_sort_aux aux = { .nest = nest, .a = a }; + sort (sorted, n_sorted, sizeof *sorted, ctables_cell_compare_3way, &aux); + + struct ctables_level + { + enum ctables_level_type + { + CTL_VAR, /* Variable label for nest->vars[var_idx]. */ + CTL_CATEGORY, /* Category for nest->vars[var_idx]. */ + CTL_SUMMARY, /* Summary functions. */ + } + type; + + enum settings_value_show vlabel; /* CTL_VAR only. */ + size_t var_idx; + }; + struct ctables_level *levels = xnmalloc (1 + 2 * max_depth, sizeof *levels); + size_t n_levels = 0; + for (size_t k = 0; k < nest->n; k++) + { + enum ctables_vlabel vlabel = ct->vlabels[var_get_dict_index (nest->vars[k])]; + if (vlabel == CTVL_NONE && nest->scale_idx == k) + vlabel = CTVL_NAME; + if (vlabel != CTVL_NONE) + { + levels[n_levels++] = (struct ctables_level) { + .type = CTL_VAR, + .vlabel = (enum settings_value_show) vlabel, + .var_idx = k, + }; + } + + if (nest->scale_idx != k + && (k != nest->n - 1 || t->label_axis[a] == a)) + { + levels[n_levels++] = (struct ctables_level) { + .type = CTL_CATEGORY, + .var_idx = k, + }; + } + } + + if (!summary_dimension && a == t->slabels_axis) + { + levels[n_levels++] = (struct ctables_level) { + .type = CTL_SUMMARY, + .var_idx = SIZE_MAX, + }; + } + + /* Pivot categories: + + - variable label for nest->vars[0], if vlabel != CTVL_NONE + - category for nest->vars[0], if nest->scale_idx != 0 + - variable label for nest->vars[1], if vlabel != CTVL_NONE + - category for nest->vars[1], if nest->scale_idx != 1 + ... + - variable label for nest->vars[n - 1], if vlabel != CTVL_NONE + - category for nest->vars[n - 1], if t->label_axis[a] == a && nest->scale_idx != n - 1. + - summary function, if 'a == t->slabels_axis && a == + t->summary_axis'. + + Additional dimensions: + + - If 'a == t->slabels_axis && a != t->summary_axis', add a summary + dimension. + - If 't->label_axis[b] == a' for some 'b != a', add a category + dimension to 'a'. + */ + + + struct pivot_category **groups = xnmalloc (1 + 2 * max_depth, sizeof *groups); + int prev_leaf = 0; + for (size_t j = 0; j < n_sorted; j++) + { + struct ctables_cell *cell = sorted[j]; + struct ctables_cell *prev = j > 0 ? sorted[j - 1] : NULL; + + size_t n_common = 0; + if (j > 0) + { + for (; n_common < n_levels; n_common++) + { + const struct ctables_level *level = &levels[n_common]; + if (level->type == CTL_CATEGORY) + { + size_t var_idx = level->var_idx; + const struct ctables_category *c = cell->axes[a].cvs[var_idx].category; + if (prev->axes[a].cvs[var_idx].category != c) + break; + else if (c->type != CCT_SUBTOTAL + && c->type != CCT_TOTAL + && c->type != CCT_POSTCOMPUTE + && !value_equal (&prev->axes[a].cvs[var_idx].value, + &cell->axes[a].cvs[var_idx].value, + var_get_type (nest->vars[var_idx]))) + break; + } + } + } + + for (size_t k = n_common; k < n_levels; k++) + { + const struct ctables_level *level = &levels[k]; + struct pivot_category *parent = k ? groups[k - 1] : d[a]->root; + if (level->type == CTL_SUMMARY) + { + assert (k == n_levels - 1); + + const struct ctables_summary_spec_set *specs = &t->summary_specs; + for (size_t m = 0; m < specs->n; m++) + { + int leaf = pivot_category_create_leaf ( + parent, ctables_summary_label (&specs->specs[m], + t->cilevel)); + if (!m) + prev_leaf = leaf; + } + } + else + { + const struct variable *var = nest->vars[level->var_idx]; + struct pivot_value *label; + if (level->type == CTL_VAR) + { + label = pivot_value_new_variable (var); + label->variable.show = level->vlabel; + } + else if (level->type == CTL_CATEGORY) + { + const struct ctables_cell_value *cv = &cell->axes[a].cvs[level->var_idx]; + label = ctables_category_create_value_label ( + t->categories[var_get_dict_index (var)], + cv->category, var, &cv->value); + } + else + NOT_REACHED (); + + if (k == n_levels - 1) + prev_leaf = pivot_category_create_leaf (parent, label); + else + groups[k] = pivot_category_create_group__ (parent, label); + } + } + + cell->axes[a].leaf = prev_leaf; + } + free (sorted); + free (groups); + free (levels); + free (sections); + + } + + d[a]->hide_all_labels = all_hidden_vlabels (t, a); + } + + { + size_t n_total_cells = 0; + for (size_t j = 0; j < t->n_sections; j++) + n_total_cells += hmap_count (&t->sections[j].cells); + + struct ctables_cell **sorted = xnmalloc (n_total_cells, sizeof *sorted); + size_t n_sorted = 0; + for (size_t j = 0; j < t->n_sections; j++) + { + const struct ctables_section *s = &t->sections[j]; + struct ctables_cell *cell; + HMAP_FOR_EACH (cell, struct ctables_cell, node, &s->cells) + if (!cell->hide) + sorted[n_sorted++] = cell; + } + assert (n_sorted <= n_total_cells); + sort (sorted, n_sorted, sizeof *sorted, ctables_cell_compare_leaf_3way, + NULL); + size_t ids[N_CTATS]; + memset (ids, 0, sizeof ids); + for (size_t j = 0; j < n_sorted; j++) + { + struct ctables_cell *cell = sorted[j]; + for (enum ctables_area_type at = 0; at < N_CTATS; at++) + { + struct ctables_area *area = cell->areas[at]; + if (!area->sequence) + area->sequence = ++ids[at]; + } + } + + free (sorted); + } + + for (size_t i = 0; i < t->n_sections; i++) + { + struct ctables_section *s = &t->sections[i]; + + struct ctables_cell *cell; + HMAP_FOR_EACH (cell, struct ctables_cell, node, &s->cells) + { + if (cell->hide) + continue; + + const struct ctables_nest *specs_nest = s->nests[t->summary_axis]; + const struct ctables_summary_spec_set *specs = &specs_nest->specs[cell->sv]; + for (size_t j = 0; j < specs->n; j++) + { + size_t dindexes[5]; + size_t n_dindexes = 0; + + if (summary_dimension) + dindexes[n_dindexes++] = specs->specs[j].axis_idx; + + if (categories_dimension) + { + const struct ctables_nest *clabels_nest = s->nests[t->clabels_from_axis]; + const struct variable *var = clabels_nest->vars[clabels_nest->n - 1]; + const union value *value = &cell->axes[t->clabels_from_axis].cvs[clabels_nest->n - 1].value; + const struct ctables_value *ctv = ctables_value_find (t, value, var_get_width (var)); + if (!ctv) + continue; + dindexes[n_dindexes++] = ctv->leaf; + } + + for (enum pivot_axis_type a = 0; a < PIVOT_N_AXES; a++) + if (d[a]) + { + int leaf = cell->axes[a].leaf; + if (a == t->summary_axis && !summary_dimension) + leaf += j; + dindexes[n_dindexes++] = leaf; + } + + const struct ctables_summary_spec *ss = &specs->specs[j]; + + struct fmt_spec format = specs->specs[j].format; + bool is_ctables_format = ss->is_ctables_format; + double d = (cell->postcompute + ? ctables_cell_calculate_postcompute ( + s, cell, ss, &format, &is_ctables_format, j) + : ctables_summary_value (cell->areas, + &cell->summaries[j], ss)); + + struct pivot_value *value; + if (ct->hide_threshold != 0 + && d < ct->hide_threshold + && ss->function == CTSF_COUNT) + { + value = pivot_value_new_user_text_nocopy ( + xasprintf ("<%d", ct->hide_threshold)); + } + else if (d == 0 && ct->zero) + value = pivot_value_new_user_text (ct->zero, SIZE_MAX); + else if (d == SYSMIS && ct->missing) + value = pivot_value_new_user_text (ct->missing, SIZE_MAX); + else if (is_ctables_format) + value = pivot_value_new_user_text_nocopy ( + ctables_format (d, &format, &ct->ctables_formats)); + else + { + value = pivot_value_new_number (d); + value->numeric.format = format; + } + /* XXX should text values be right-justified? */ + pivot_table_put (pt, dindexes, n_dindexes, value); + } + } + } + + pivot_table_submit (pt); +} + +static bool +ctables_check_label_position (struct ctables_table *t, enum pivot_axis_type a) +{ + enum pivot_axis_type label_pos = t->label_axis[a]; + if (label_pos == a) + return true; + + const char *subcommand_name = a == PIVOT_AXIS_ROW ? "ROWLABELS" : "COLLABELS"; + const char *pos_name = label_pos == PIVOT_AXIS_LAYER ? "LAYER" : "OPPOSITE"; + + const struct ctables_stack *stack = &t->stacks[a]; + if (!stack->n) + return true; + + const struct ctables_nest *n0 = &stack->nests[0]; + if (n0->n == 0) + { + assert (stack->n == 1); + return true; + } + + const struct variable *v0 = n0->vars[n0->n - 1]; + struct ctables_categories *c0 = t->categories[var_get_dict_index (v0)]; + t->clabels_example = v0; + + for (size_t i = 0; i < c0->n_cats; i++) + if (c0->cats[i].type == CCT_FUNCTION) + { + msg (SE, _("%s=%s is not allowed with sorting based " + "on a summary function."), + subcommand_name, pos_name); + return false; + } + if (n0->n - 1 == n0->scale_idx) + { + msg (SE, _("%s=%s requires the variables to be moved to be categorical, " + "but %s is a scale variable."), + subcommand_name, pos_name, var_get_name (v0)); + return false; + } + + for (size_t i = 1; i < stack->n; i++) + { + const struct ctables_nest *ni = &stack->nests[i]; + assert (ni->n > 0); + const struct variable *vi = ni->vars[ni->n - 1]; + struct ctables_categories *ci = t->categories[var_get_dict_index (vi)]; + + if (ni->n - 1 == ni->scale_idx) + { + msg (SE, _("%s=%s requires the variables to be moved to be " + "categorical, but %s is a scale variable."), + subcommand_name, pos_name, var_get_name (vi)); + return false; + } + if (var_get_width (v0) != var_get_width (vi)) + { + msg (SE, _("%s=%s requires the variables to be " + "moved to have the same width, but %s has " + "width %d and %s has width %d."), + subcommand_name, pos_name, + var_get_name (v0), var_get_width (v0), + var_get_name (vi), var_get_width (vi)); + return false; + } + if (!val_labs_equal (var_get_value_labels (v0), + var_get_value_labels (vi))) + { + msg (SE, _("%s=%s requires the variables to be " + "moved to have the same value labels, but %s " + "and %s have different value labels."), + subcommand_name, pos_name, + var_get_name (v0), var_get_name (vi)); + return false; + } + if (!ctables_categories_equal (c0, ci)) + { + msg (SE, _("%s=%s requires the variables to be " + "moved to have the same category " + "specifications, but %s and %s have different " + "category specifications."), + subcommand_name, pos_name, + var_get_name (v0), var_get_name (vi)); + return false; + } + } + + return true; +} + +static size_t +add_sum_var (struct variable *var, + struct variable ***sum_vars, size_t *n, size_t *allocated) +{ + for (size_t i = 0; i < *n; i++) + if (var == (*sum_vars)[i]) + return i; + + if (*n >= *allocated) + *sum_vars = x2nrealloc (*sum_vars, allocated, sizeof **sum_vars); + (*sum_vars)[*n] = var; + return (*n)++; +} + +static enum ctables_area_type +rotate_area (enum ctables_area_type area) +{ + return area; + switch (area) + { + case CTAT_TABLE: + case CTAT_LAYER: + case CTAT_SUBTABLE: + return area; + + case CTAT_LAYERROW: + return CTAT_LAYERCOL; + + case CTAT_LAYERCOL: + return CTAT_LAYERROW; + + case CTAT_ROW: + return CTAT_COL; + + case CTAT_COL: + return CTAT_ROW; + } + + NOT_REACHED (); +} + +static void +enumerate_sum_vars (const struct ctables_axis *a, + struct variable ***sum_vars, size_t *n, size_t *allocated) +{ + if (!a) + return; + + switch (a->op) + { + case CTAO_VAR: + for (size_t i = 0; i < N_CSVS; i++) + for (size_t j = 0; j < a->specs[i].n; j++) + { + struct ctables_summary_spec *spec = &a->specs[i].specs[j]; + if (spec->function == CTSF_areaPCT_SUM) + spec->sum_var_idx = add_sum_var (a->var, sum_vars, n, allocated); + } + break; + + case CTAO_STACK: + case CTAO_NEST: + for (size_t i = 0; i < 2; i++) + enumerate_sum_vars (a->subs[i], sum_vars, n, allocated); + break; + } +} + +static bool +ctables_prepare_table (struct ctables_table *t) +{ + for (enum pivot_axis_type a = 0; a < PIVOT_N_AXES; a++) + if (t->axes[a]) + { + t->stacks[a] = enumerate_fts (a, t->axes[a]); + + for (size_t j = 0; j < t->stacks[a].n; j++) + { + struct ctables_nest *nest = &t->stacks[a].nests[j]; + for (enum ctables_area_type at = 0; at < N_CTATS; at++) + { + nest->areas[at] = xmalloc (nest->n * sizeof *nest->areas[at]); + nest->n_areas[at] = 0; + + enum pivot_axis_type ata, atb; + if (at == CTAT_ROW || at == CTAT_LAYERROW) + { + ata = PIVOT_AXIS_ROW; + atb = PIVOT_AXIS_COLUMN; + } + else if (at == CTAT_COL || at == CTAT_LAYERCOL) + { + ata = PIVOT_AXIS_COLUMN; + atb = PIVOT_AXIS_ROW; + } + + if (at == CTAT_LAYER + ? a != PIVOT_AXIS_LAYER && t->label_axis[a] == PIVOT_AXIS_LAYER + : at == CTAT_LAYERCOL || at == CTAT_LAYERROW + ? a == atb && t->label_axis[a] != a + : false) + { + for (size_t k = nest->n - 1; k < nest->n; k--) + if (k != nest->scale_idx) + { + nest->areas[at][nest->n_areas[at]++] = k; + break; + } + continue; + } + + if (at == CTAT_LAYER ? a != PIVOT_AXIS_LAYER + : at == CTAT_LAYERROW || at == CTAT_LAYERCOL ? a == atb + : at == CTAT_TABLE ? true + : false) + continue; + + for (size_t k = 0; k < nest->n; k++) + if (k != nest->scale_idx) + nest->areas[at][nest->n_areas[at]++] = k; + + int n_drop; + switch (at) + { + case CTAT_SUBTABLE: +#define L PIVOT_AXIS_LAYER + n_drop = (t->clabels_from_axis == L ? a != L + : t->clabels_to_axis == L ? (t->clabels_from_axis == a ? -1 : a != L) + : t->clabels_from_axis == a ? 2 + : 0); +#undef L + break; + + case CTAT_LAYERROW: + case CTAT_LAYERCOL: + n_drop = a == ata && t->label_axis[ata] == atb; + break; + + case CTAT_ROW: + case CTAT_COL: + n_drop = (a == ata ? t->label_axis[ata] == atb + : a != atb ? 0 + : t->clabels_from_axis == atb ? -1 + : t->clabels_to_axis != atb ? 1 + : 0); + break; + + case CTAT_LAYER: + case CTAT_TABLE: + n_drop = 0; + break; + } + + if (n_drop < 0) + { + size_t n = nest->n_areas[at]; + if (n > 1) + { + nest->areas[at][n - 2] = nest->areas[at][n - 1]; + nest->n_areas[at]--; + } + } + else + { + for (int i = 0; i < n_drop; i++) + if (nest->n_areas[at] > 0) + nest->n_areas[at]--; + } + } + } + } + else + { + struct ctables_nest *nest = xmalloc (sizeof *nest); + *nest = (struct ctables_nest) { + .n = 0, + .scale_idx = SIZE_MAX, + .summary_idx = SIZE_MAX + }; + t->stacks[a] = (struct ctables_stack) { .nests = nest, .n = 1 }; + + /* There's no point in moving labels away from an axis that has no + labels, so avoid dealing with the special cases around that. */ + t->label_axis[a] = a; + } + + struct ctables_stack *stack = &t->stacks[t->summary_axis]; + for (size_t i = 0; i < stack->n; i++) + { + struct ctables_nest *nest = &stack->nests[i]; + if (!nest->specs[CSV_CELL].n) + { + struct ctables_summary_spec_set *ss = &nest->specs[CSV_CELL]; + ss->specs = xmalloc (sizeof *ss->specs); + ss->n = 1; + + enum ctables_summary_function function + = ss->is_scale ? CTSF_MEAN : CTSF_COUNT; + + if (!ss->var) + { + nest->summary_idx = nest->n - 1; + ss->var = nest->vars[nest->summary_idx]; + } + *ss->specs = (struct ctables_summary_spec) { + .function = function, + .weighting = ss->is_scale ? CTW_EFFECTIVE : CTW_DICTIONARY, + .format = ctables_summary_default_format (function, ss->var), + }; + + ctables_summary_spec_set_clone (&nest->specs[CSV_TOTAL], + &nest->specs[CSV_CELL]); + } + else if (!nest->specs[CSV_TOTAL].n) + ctables_summary_spec_set_clone (&nest->specs[CSV_TOTAL], + &nest->specs[CSV_CELL]); + + if (t->label_axis[PIVOT_AXIS_ROW] == PIVOT_AXIS_COLUMN + || t->label_axis[PIVOT_AXIS_COLUMN] == PIVOT_AXIS_ROW) + { + for (enum ctables_summary_variant sv = 0; sv < N_CSVS; sv++) + for (size_t i = 0; i < nest->specs[sv].n; i++) + { + struct ctables_summary_spec *ss = &nest->specs[sv].specs[i]; + const struct ctables_function_info *cfi = + &ctables_function_info[ss->function]; + if (cfi->is_area) + ss->calc_area = rotate_area (ss->calc_area); + } + } + + if (t->ctables->smissing_listwise) + { + struct variable **listwise_vars = NULL; + size_t n = 0; + size_t allocated = 0; + + for (size_t j = nest->group_head; j < stack->n; j++) + { + const struct ctables_nest *other_nest = &stack->nests[j]; + if (other_nest->group_head != nest->group_head) + break; + + if (nest != other_nest && other_nest->scale_idx < other_nest->n) + { + if (n >= allocated) + listwise_vars = x2nrealloc (listwise_vars, &allocated, + sizeof *listwise_vars); + listwise_vars[n++] = other_nest->vars[other_nest->scale_idx]; + } + } + for (enum ctables_summary_variant sv = 0; sv < N_CSVS; sv++) + { + if (sv > 0) + listwise_vars = xmemdup (listwise_vars, + n * sizeof *listwise_vars); + nest->specs[sv].listwise_vars = listwise_vars; + nest->specs[sv].n_listwise_vars = n; + } + } + } + + struct ctables_summary_spec_set *merged = &t->summary_specs; + struct merge_item *items = xnmalloc (N_CSVS * stack->n, sizeof *items); + size_t n_left = 0; + for (size_t j = 0; j < stack->n; j++) + { + const struct ctables_nest *nest = &stack->nests[j]; + if (nest->n) + for (enum ctables_summary_variant sv = 0; sv < N_CSVS; sv++) + items[n_left++] = (struct merge_item) { .set = &nest->specs[sv] }; + } + + while (n_left > 0) + { + struct merge_item min = items[0]; + for (size_t j = 1; j < n_left; j++) + if (merge_item_compare_3way (&items[j], &min) < 0) + min = items[j]; + + if (merged->n >= merged->allocated) + merged->specs = x2nrealloc (merged->specs, &merged->allocated, + sizeof *merged->specs); + merged->specs[merged->n++] = min.set->specs[min.ofs]; + + for (size_t j = 0; j < n_left; ) + { + if (merge_item_compare_3way (&items[j], &min) == 0) + { + struct merge_item *item = &items[j]; + item->set->specs[item->ofs++].axis_idx = merged->n - 1; + if (item->ofs >= item->set->n) + { + items[j] = items[--n_left]; + continue; + } + } + j++; + } + } + free (items); + + size_t allocated_sum_vars = 0; + enumerate_sum_vars (t->axes[t->summary_axis], + &t->sum_vars, &t->n_sum_vars, &allocated_sum_vars); + + return (ctables_check_label_position (t, PIVOT_AXIS_ROW) + && ctables_check_label_position (t, PIVOT_AXIS_COLUMN)); +} + +static void +ctables_insert_clabels_values (struct ctables_table *t, const struct ccase *c, + enum pivot_axis_type a) +{ + struct ctables_stack *stack = &t->stacks[a]; + for (size_t i = 0; i < stack->n; i++) + { + const struct ctables_nest *nest = &stack->nests[i]; + const struct variable *var = nest->vars[nest->n - 1]; + const union value *value = case_data (c, var); + + if (var_is_numeric (var) && value->f == SYSMIS) + continue; + + if (ctables_categories_match (t->categories [var_get_dict_index (var)], + value, var)) + ctables_value_insert (t, value, var_get_width (var)); + } +} + +static void +ctables_add_category_occurrences (const struct variable *var, + struct hmap *occurrences, + const struct ctables_categories *cats) +{ + const struct val_labs *val_labs = var_get_value_labels (var); + + for (size_t i = 0; i < cats->n_cats; i++) + { + const struct ctables_category *c = &cats->cats[i]; + switch (c->type) + { + case CCT_NUMBER: + ctables_add_occurrence (var, &(const union value) { .f = c->number }, + occurrences); + break; + + case CCT_STRING: + { + int width = var_get_width (var); + union value value; + value_init (&value, width); + value_copy_buf_rpad (&value, width, + CHAR_CAST (uint8_t *, c->string.string), + c->string.length, ' '); + ctables_add_occurrence (var, &value, occurrences); + value_destroy (&value, width); + } + break; + + case CCT_NRANGE: + assert (var_is_numeric (var)); + for (const struct val_lab *vl = val_labs_first (val_labs); vl; + vl = val_labs_next (val_labs, vl)) + if (vl->value.f >= c->nrange[0] && vl->value.f <= c->nrange[1]) + ctables_add_occurrence (var, &vl->value, occurrences); + break; + + case CCT_SRANGE: + assert (var_is_alpha (var)); + for (const struct val_lab *vl = val_labs_first (val_labs); vl; + vl = val_labs_next (val_labs, vl)) + if (in_string_range (&vl->value, var, c->srange)) + ctables_add_occurrence (var, &vl->value, occurrences); + break; + + case CCT_MISSING: + for (const struct val_lab *vl = val_labs_first (val_labs); vl; + vl = val_labs_next (val_labs, vl)) + if (var_is_value_missing (var, &vl->value)) + ctables_add_occurrence (var, &vl->value, occurrences); + break; + + case CCT_OTHERNM: + for (const struct val_lab *vl = val_labs_first (val_labs); vl; + vl = val_labs_next (val_labs, vl)) + ctables_add_occurrence (var, &vl->value, occurrences); + break; + + case CCT_POSTCOMPUTE: + break; + + case CCT_SUBTOTAL: + case CCT_TOTAL: + break; + + case CCT_VALUE: + case CCT_LABEL: + case CCT_FUNCTION: + for (const struct val_lab *vl = val_labs_first (val_labs); vl; + vl = val_labs_next (val_labs, vl)) + if (c->include_missing || !var_is_value_missing (var, &vl->value)) + ctables_add_occurrence (var, &vl->value, occurrences); + break; + + case CCT_EXCLUDED_MISSING: + break; + } + } +} + +static void +ctables_section_recurse_add_empty_categories ( + struct ctables_section *s, + const struct ctables_category **cats[PIVOT_N_AXES], struct ccase *c, + enum pivot_axis_type a, size_t a_idx) +{ + if (a >= PIVOT_N_AXES) + ctables_cell_insert__ (s, c, cats); + else if (!s->nests[a] || a_idx >= s->nests[a]->n) + ctables_section_recurse_add_empty_categories (s, cats, c, a + 1, 0); + else + { + const struct variable *var = s->nests[a]->vars[a_idx]; + const struct ctables_categories *categories = s->table->categories[ + var_get_dict_index (var)]; + int width = var_get_width (var); + const struct hmap *occurrences = &s->occurrences[a][a_idx]; + const struct ctables_occurrence *o; + HMAP_FOR_EACH (o, struct ctables_occurrence, node, occurrences) + { + union value *value = case_data_rw (c, var); + value_destroy (value, width); + value_clone (value, &o->value, width); + cats[a][a_idx] = ctables_categories_match (categories, value, var); + assert (cats[a][a_idx] != NULL); + ctables_section_recurse_add_empty_categories (s, cats, c, a, a_idx + 1); + } + + for (size_t i = 0; i < categories->n_cats; i++) + { + const struct ctables_category *cat = &categories->cats[i]; + if (cat->type == CCT_POSTCOMPUTE) + { + cats[a][a_idx] = cat; + ctables_section_recurse_add_empty_categories (s, cats, c, a, a_idx + 1); + } + } + } +} + +static void +ctables_section_add_empty_categories (struct ctables_section *s) +{ + bool show_empty = false; + for (size_t a = 0; a < PIVOT_N_AXES; a++) + if (s->nests[a]) + for (size_t k = 0; k < s->nests[a]->n; k++) + if (k != s->nests[a]->scale_idx) + { + const struct variable *var = s->nests[a]->vars[k]; + const struct ctables_categories *cats = s->table->categories[ + var_get_dict_index (var)]; + if (cats->show_empty) + { + show_empty = true; + ctables_add_category_occurrences (var, &s->occurrences[a][k], cats); + } + } + if (!show_empty) + return; + + const struct ctables_category *layer_cats[s->nests[PIVOT_AXIS_LAYER]->n]; + const struct ctables_category *row_cats[s->nests[PIVOT_AXIS_ROW]->n]; + const struct ctables_category *column_cats[s->nests[PIVOT_AXIS_COLUMN]->n]; + const struct ctables_category **cats[PIVOT_N_AXES] = + { + [PIVOT_AXIS_LAYER] = layer_cats, + [PIVOT_AXIS_ROW] = row_cats, + [PIVOT_AXIS_COLUMN] = column_cats, + }; + struct ccase *c = case_create (dict_get_proto (s->table->ctables->dict)); + ctables_section_recurse_add_empty_categories (s, cats, c, 0, 0); + case_unref (c); +} + +static void +ctables_section_clear (struct ctables_section *s) +{ + for (enum pivot_axis_type a = 0; a < PIVOT_N_AXES; a++) + { + const struct ctables_nest *nest = s->nests[a]; + for (size_t i = 0; i < nest->n; i++) + if (i != nest->scale_idx) + { + const struct variable *var = nest->vars[i]; + int width = var_get_width (var); + struct ctables_occurrence *o, *next; + struct hmap *map = &s->occurrences[a][i]; + HMAP_FOR_EACH_SAFE (o, next, struct ctables_occurrence, node, map) + { + value_destroy (&o->value, width); + hmap_delete (map, &o->node); + free (o); + } + hmap_shrink (map); + } + } + + struct ctables_cell *cell, *next_cell; + HMAP_FOR_EACH_SAFE (cell, next_cell, struct ctables_cell, node, &s->cells) + { + for (enum pivot_axis_type a = 0; a < PIVOT_N_AXES; a++) + { + const struct ctables_nest *nest = s->nests[a]; + for (size_t i = 0; i < nest->n; i++) + if (i != nest->scale_idx) + value_destroy (&cell->axes[a].cvs[i].value, + var_get_width (nest->vars[i])); + free (cell->axes[a].cvs); + } + + const struct ctables_nest *ss = s->nests[s->table->summary_axis]; + const struct ctables_summary_spec_set *specs = &ss->specs[cell->sv]; + for (size_t i = 0; i < specs->n; i++) + ctables_summary_uninit (&cell->summaries[i], &specs->specs[i]); + free (cell->summaries); + + hmap_delete (&s->cells, &cell->node); + free (cell); + } + hmap_shrink (&s->cells); + + for (enum ctables_area_type at = 0; at < N_CTATS; at++) + { + struct ctables_area *area, *next_area; + HMAP_FOR_EACH_SAFE (area, next_area, struct ctables_area, node, + &s->areas[at]) + { + free (area->sums); + hmap_delete (&s->areas[at], &area->node); + free (area); + } + hmap_shrink (&s->areas[at]); + } +} + +static void +ctables_section_uninit (struct ctables_section *s) +{ + ctables_section_clear (s); + + for (enum pivot_axis_type a = 0; a < PIVOT_N_AXES; a++) + { + struct ctables_nest *nest = s->nests[a]; + for (size_t i = 0; i < nest->n; i++) + hmap_destroy (&s->occurrences[a][i]); + free (s->occurrences[a]); + } + + hmap_destroy (&s->cells); + for (enum ctables_area_type at = 0; at < N_CTATS; at++) + hmap_destroy (&s->areas[at]); +} + +static void +ctables_table_clear (struct ctables_table *t) +{ + for (size_t i = 0; i < t->n_sections; i++) + ctables_section_clear (&t->sections[i]); + + if (t->clabels_example) + { + int width = var_get_width (t->clabels_example); + struct ctables_value *value, *next_value; + HMAP_FOR_EACH_SAFE (value, next_value, struct ctables_value, node, + &t->clabels_values_map) + { + value_destroy (&value->value, width); + hmap_delete (&t->clabels_values_map, &value->node); + free (value); + } + hmap_shrink (&t->clabels_values_map); + + free (t->clabels_values); + t->clabels_values = NULL; + t->n_clabels_values = 0; + } +} + +static bool +ctables_execute (struct dataset *ds, struct casereader *input, + struct ctables *ct) +{ + for (size_t i = 0; i < ct->n_tables; i++) + { + struct ctables_table *t = ct->tables[i]; + t->sections = xnmalloc (MAX (1, t->stacks[PIVOT_AXIS_ROW].n) * + MAX (1, t->stacks[PIVOT_AXIS_COLUMN].n) * + MAX (1, t->stacks[PIVOT_AXIS_LAYER].n), + sizeof *t->sections); + size_t ix[PIVOT_N_AXES]; + ctables_table_add_section (t, 0, ix); + } + + struct dictionary *dict = dataset_dict (ds); + + bool splitting = dict_get_split_type (dict) == SPLIT_SEPARATE; + struct casegrouper *grouper + = (splitting + ? casegrouper_create_splits (input, dict) + : casegrouper_create_vars (input, NULL, 0)); + struct casereader *group; + while (casegrouper_get_next_group (grouper, &group)) + { + if (splitting) + { + struct ccase *c = casereader_peek (group, 0); + if (c != NULL) + { + output_split_file_values (ds, c); + case_unref (c); + } + } + + bool warn_on_invalid = true; + for (struct ccase *c = casereader_read (group); c; + case_unref (c), c = casereader_read (group)) + { + double d_weight = dict_get_rounded_case_weight (dict, c, &warn_on_invalid); + double e_weight = (ct->e_weight + ? var_force_valid_weight (ct->e_weight, + case_num (c, ct->e_weight), + &warn_on_invalid) + : d_weight); + double weight[] = { + [CTW_DICTIONARY] = d_weight, + [CTW_EFFECTIVE] = e_weight, + [CTW_UNWEIGHTED] = 1.0, + }; + + for (size_t i = 0; i < ct->n_tables; i++) + { + struct ctables_table *t = ct->tables[i]; + + for (size_t j = 0; j < t->n_sections; j++) + ctables_cell_insert (&t->sections[j], c, weight); + + for (enum pivot_axis_type a = 0; a < PIVOT_N_AXES; a++) + if (t->label_axis[a] != a) + ctables_insert_clabels_values (t, c, a); + } + } + casereader_destroy (group); + + for (size_t i = 0; i < ct->n_tables; i++) + { + struct ctables_table *t = ct->tables[i]; + + if (t->clabels_example) + ctables_sort_clabels_values (t); + + for (size_t j = 0; j < t->n_sections; j++) + ctables_section_add_empty_categories (&t->sections[j]); + + ctables_table_output (ct, t); + ctables_table_clear (t); + } + } + return casegrouper_destroy (grouper); +} + +static struct ctables_postcompute * +ctables_find_postcompute (struct ctables *ct, const char *name) +{ + struct ctables_postcompute *pc; + HMAP_FOR_EACH_WITH_HASH (pc, struct ctables_postcompute, hmap_node, + utf8_hash_case_string (name, 0), &ct->postcomputes) + if (!utf8_strcasecmp (pc->name, name)) + return pc; + return NULL; +} + +static bool +ctables_parse_pcompute (struct lexer *lexer, struct dictionary *dict, + struct ctables *ct) +{ + int pcompute_start = lex_ofs (lexer) - 1; + + if (!lex_match (lexer, T_AND)) + { + lex_error_expecting (lexer, "&"); + return false; + } + if (!lex_force_id (lexer)) + return false; + + char *name = ss_xstrdup (lex_tokss (lexer)); + + lex_get (lexer); + if (!lex_force_match (lexer, T_EQUALS) + || !lex_force_match_id (lexer, "EXPR") + || !lex_force_match (lexer, T_LPAREN)) + { + free (name); + return false; + } + + int expr_start = lex_ofs (lexer); + struct ctables_pcexpr *expr = ctables_pcexpr_parse_add (lexer, dict); + int expr_end = lex_ofs (lexer) - 1; + if (!expr || !lex_force_match (lexer, T_RPAREN)) + { + ctables_pcexpr_destroy (expr); + free (name); + return false; + } + int pcompute_end = lex_ofs (lexer) - 1; + + struct msg_location *location = lex_ofs_location (lexer, pcompute_start, + pcompute_end); + + struct ctables_postcompute *pc = ctables_find_postcompute (ct, name); + if (pc) + { + msg_at (SW, location, _("New definition of &%s will override the " + "previous definition."), + pc->name); + msg_at (SN, pc->location, _("This is the previous definition.")); + + ctables_pcexpr_destroy (pc->expr); + msg_location_destroy (pc->location); + free (name); + } + else + { + pc = xmalloc (sizeof *pc); + *pc = (struct ctables_postcompute) { .name = name }; + hmap_insert (&ct->postcomputes, &pc->hmap_node, + utf8_hash_case_string (pc->name, 0)); + } + pc->expr = expr; + pc->location = location; + if (!pc->label) + pc->label = lex_ofs_representation (lexer, expr_start, expr_end); + return true; +} + +static bool +ctables_parse_pproperties_format (struct lexer *lexer, + struct ctables_summary_spec_set *sss) +{ + *sss = (struct ctables_summary_spec_set) { .n = 0 }; + + while (lex_token (lexer) != T_ENDCMD && lex_token (lexer) != T_SLASH + && !(lex_token (lexer) == T_ID + && (lex_id_match (ss_cstr ("LABEL"), lex_tokss (lexer)) + || lex_id_match (ss_cstr ("HIDESOURCECATS"), + lex_tokss (lexer))))) + { + /* Parse function. */ + enum ctables_summary_function function; + enum ctables_weighting weighting; + enum ctables_area_type area; + if (!parse_ctables_summary_function (lexer, &function, &weighting, &area)) + goto error; + + /* Parse percentile. */ + double percentile = 0; + if (function == CTSF_PTILE) + { + if (!lex_force_num_range_closed (lexer, "PTILE", 0, 100)) + goto error; + percentile = lex_number (lexer); + lex_get (lexer); + } + + /* Parse format. */ + struct fmt_spec format; + bool is_ctables_format; + if (!parse_ctables_format_specifier (lexer, &format, &is_ctables_format)) + goto error; + + if (sss->n >= sss->allocated) + sss->specs = x2nrealloc (sss->specs, &sss->allocated, + sizeof *sss->specs); + sss->specs[sss->n++] = (struct ctables_summary_spec) { + .function = function, + .weighting = weighting, + .calc_area = area, + .user_area = area, + .percentile = percentile, + .format = format, + .is_ctables_format = is_ctables_format, + }; + } + return true; + +error: + ctables_summary_spec_set_uninit (sss); + return false; +} + +static bool +ctables_parse_pproperties (struct lexer *lexer, struct ctables *ct) +{ + struct ctables_postcompute **pcs = NULL; + size_t n_pcs = 0; + size_t allocated_pcs = 0; + + while (lex_match (lexer, T_AND)) + { + if (!lex_force_id (lexer)) + goto error; + struct ctables_postcompute *pc + = ctables_find_postcompute (ct, lex_tokcstr (lexer)); + if (!pc) + { + msg (SE, _("Unknown computed category &%s."), lex_tokcstr (lexer)); + goto error; + } + lex_get (lexer); + + if (n_pcs >= allocated_pcs) + pcs = x2nrealloc (pcs, &allocated_pcs, sizeof *pcs); + pcs[n_pcs++] = pc; + } + + while (lex_token (lexer) != T_SLASH && lex_token (lexer) != T_ENDCMD) + { + if (lex_match_id (lexer, "LABEL")) + { + lex_match (lexer, T_EQUALS); + if (!lex_force_string (lexer)) + goto error; + + for (size_t i = 0; i < n_pcs; i++) + { + free (pcs[i]->label); + pcs[i]->label = ss_xstrdup (lex_tokss (lexer)); + } + + lex_get (lexer); + } + else if (lex_match_id (lexer, "FORMAT")) + { + lex_match (lexer, T_EQUALS); + + struct ctables_summary_spec_set sss; + if (!ctables_parse_pproperties_format (lexer, &sss)) + goto error; + + for (size_t i = 0; i < n_pcs; i++) + { + if (pcs[i]->specs) + ctables_summary_spec_set_uninit (pcs[i]->specs); + else + pcs[i]->specs = xmalloc (sizeof *pcs[i]->specs); + ctables_summary_spec_set_clone (pcs[i]->specs, &sss); + } + ctables_summary_spec_set_uninit (&sss); + } + else if (lex_match_id (lexer, "HIDESOURCECATS")) + { + lex_match (lexer, T_EQUALS); + bool hide_source_cats; + if (!parse_bool (lexer, &hide_source_cats)) + goto error; + for (size_t i = 0; i < n_pcs; i++) + pcs[i]->hide_source_cats = hide_source_cats; + } + else + { + lex_error_expecting (lexer, "LABEL", "FORMAT", "HIDESOURCECATS"); + goto error; + } + } + free (pcs); + return true; + +error: + free (pcs); + return false; +} + +static void +put_strftime (struct string *out, time_t now, const char *format) +{ + const struct tm *tm = localtime (&now); + char value[128]; + strftime (value, sizeof value, format, tm); + ds_put_cstr (out, value); +} + +static bool +skip_prefix (struct substring *s, struct substring prefix) +{ + if (ss_starts_with (*s, prefix)) + { + ss_advance (s, prefix.length); + return true; + } + else + return false; +} + +static void +put_table_expression (struct string *out, struct lexer *lexer, + struct dictionary *dict, int expr_start, int expr_end) +{ + size_t nest = 0; + for (int ofs = expr_start; ofs < expr_end; ofs++) + { + const struct token *t = lex_ofs_token (lexer, ofs); + if (t->type == T_LBRACK) + nest++; + else if (t->type == T_RBRACK && nest > 0) + nest--; + else if (nest > 0) + { + /* Nothing. */ + } + else if (t->type == T_ID) + { + const struct variable *var + = dict_lookup_var (dict, t->string.string); + const char *label = var ? var_get_label (var) : NULL; + ds_put_cstr (out, label ? label : t->string.string); + } + else + { + if (ofs != expr_start && t->type != T_RPAREN && ds_last (out) != ' ') + ds_put_byte (out, ' '); + + char *repr = lex_ofs_representation (lexer, ofs, ofs); + ds_put_cstr (out, repr); + free (repr); + + if (ofs + 1 != expr_end && t->type != T_LPAREN) + ds_put_byte (out, ' '); + } + } +} + +static void +put_title_text (struct string *out, struct substring in, time_t now, + struct lexer *lexer, struct dictionary *dict, + int expr_start, int expr_end) +{ + for (;;) + { + size_t chunk = ss_find_byte (in, ')'); + ds_put_substring (out, ss_head (in, chunk)); + ss_advance (&in, chunk); + if (ss_is_empty (in)) + return; + + if (skip_prefix (&in, ss_cstr (")DATE"))) + put_strftime (out, now, "%x"); + else if (skip_prefix (&in, ss_cstr (")TIME"))) + put_strftime (out, now, "%X"); + else if (skip_prefix (&in, ss_cstr (")TABLE"))) + put_table_expression (out, lexer, dict, expr_start, expr_end); + else + { + ds_put_byte (out, ')'); + ss_advance (&in, 1); + } + } +} + +int +cmd_ctables (struct lexer *lexer, struct dataset *ds) +{ + struct casereader *input = NULL; + + struct measure_guesser *mg = measure_guesser_create (ds); + if (mg) + { + input = proc_open (ds); + measure_guesser_run (mg, input); + measure_guesser_destroy (mg); + } + + size_t n_vars = dict_get_n_vars (dataset_dict (ds)); + enum ctables_vlabel *vlabels = xnmalloc (n_vars, sizeof *vlabels); + enum settings_value_show tvars = settings_get_show_variables (); + for (size_t i = 0; i < n_vars; i++) + vlabels[i] = (enum ctables_vlabel) tvars; + + struct pivot_table_look *look = pivot_table_look_unshare ( + pivot_table_look_ref (pivot_table_look_get_default ())); + look->omit_empty = false; + + struct ctables *ct = xmalloc (sizeof *ct); + *ct = (struct ctables) { + .dict = dataset_dict (ds), + .look = look, + .ctables_formats = FMT_SETTINGS_INIT, + .vlabels = vlabels, + .postcomputes = HMAP_INITIALIZER (ct->postcomputes), + }; + + time_t now = time (NULL); + + struct ctf + { + enum fmt_type type; + const char *dot_string; + const char *comma_string; + }; + static const struct ctf ctfs[4] = { + { CTEF_NEGPAREN, "(,,,)", "(...)" }, + { CTEF_NEQUAL, "-,N=,,", "-.N=.." }, + { CTEF_PAREN, "-,(,),", "-.(.)." }, + { CTEF_PCTPAREN, "-,(,%),", "-.(.%)." }, + }; + bool is_dot = settings_get_fmt_settings ()->decimal == '.'; + for (size_t i = 0; i < 4; i++) + { + const char *s = is_dot ? ctfs[i].dot_string : ctfs[i].comma_string; + fmt_settings_set_cc (&ct->ctables_formats, ctfs[i].type, + fmt_number_style_from_string (s)); + } + + if (!lex_force_match (lexer, T_SLASH)) + goto error; + + while (!lex_match_id (lexer, "TABLE")) + { + if (lex_match_id (lexer, "FORMAT")) + { + double widths[2] = { SYSMIS, SYSMIS }; + double units_per_inch = 72.0; + + while (lex_token (lexer) != T_SLASH) + { + if (lex_match_id (lexer, "MINCOLWIDTH")) + { + if (!parse_col_width (lexer, "MINCOLWIDTH", &widths[0])) + goto error; + } + else if (lex_match_id (lexer, "MAXCOLWIDTH")) + { + if (!parse_col_width (lexer, "MAXCOLWIDTH", &widths[1])) + goto error; + } + else if (lex_match_id (lexer, "UNITS")) + { + lex_match (lexer, T_EQUALS); + if (lex_match_id (lexer, "POINTS")) + units_per_inch = 72.0; + else if (lex_match_id (lexer, "INCHES")) + units_per_inch = 1.0; + else if (lex_match_id (lexer, "CM")) + units_per_inch = 2.54; + else + { + lex_error_expecting (lexer, "POINTS", "INCHES", "CM"); + goto error; + } + } + else if (lex_match_id (lexer, "EMPTY")) + { + free (ct->zero); + ct->zero = NULL; + + lex_match (lexer, T_EQUALS); + if (lex_match_id (lexer, "ZERO")) + { + /* Nothing to do. */ + } + else if (lex_match_id (lexer, "BLANK")) + ct->zero = xstrdup (""); + else if (lex_force_string (lexer)) + { + ct->zero = ss_xstrdup (lex_tokss (lexer)); + lex_get (lexer); + } + else + goto error; + } + else if (lex_match_id (lexer, "MISSING")) + { + lex_match (lexer, T_EQUALS); + if (!lex_force_string (lexer)) + goto error; + + free (ct->missing); + ct->missing = (strcmp (lex_tokcstr (lexer), ".") + ? ss_xstrdup (lex_tokss (lexer)) + : NULL); + lex_get (lexer); + } + else + { + lex_error_expecting (lexer, "MINCOLWIDTH", "MAXCOLWIDTH", + "UNITS", "EMPTY", "MISSING"); + goto error; + } + } + + if (widths[0] != SYSMIS && widths[1] != SYSMIS + && widths[0] > widths[1]) + { + msg (SE, _("MINCOLWIDTH must not be greater than MAXCOLWIDTH.")); + goto error; + } + + for (size_t i = 0; i < 2; i++) + if (widths[i] != SYSMIS) + { + int *wr = ct->look->width_ranges[TABLE_HORZ]; + wr[i] = widths[i] / units_per_inch * 96.0; + if (wr[0] > wr[1]) + wr[!i] = wr[i]; + } + } + else if (lex_match_id (lexer, "VLABELS")) + { + if (!lex_force_match_id (lexer, "VARIABLES")) + goto error; + lex_match (lexer, T_EQUALS); + + struct variable **vars; + size_t n_vars; + if (!parse_variables (lexer, dataset_dict (ds), &vars, &n_vars, + PV_NO_SCRATCH)) + goto error; + + if (!lex_force_match_id (lexer, "DISPLAY")) + { + free (vars); + goto error; + } + lex_match (lexer, T_EQUALS); + + enum ctables_vlabel vlabel; + if (lex_match_id (lexer, "DEFAULT")) + vlabel = (enum ctables_vlabel) settings_get_show_variables (); + else if (lex_match_id (lexer, "NAME")) + vlabel = CTVL_NAME; + else if (lex_match_id (lexer, "LABEL")) + vlabel = CTVL_LABEL; + else if (lex_match_id (lexer, "BOTH")) + vlabel = CTVL_BOTH; + else if (lex_match_id (lexer, "NONE")) + vlabel = CTVL_NONE; + else + { + lex_error_expecting (lexer, "DEFAULT", "NAME", "LABEL", + "BOTH", "NONE"); + free (vars); + goto error; + } + + for (size_t i = 0; i < n_vars; i++) + ct->vlabels[var_get_dict_index (vars[i])] = vlabel; + free (vars); + } + else if (lex_match_id (lexer, "MRSETS")) + { + if (!lex_force_match_id (lexer, "COUNTDUPLICATES")) + goto error; + lex_match (lexer, T_EQUALS); + if (!parse_bool (lexer, &ct->mrsets_count_duplicates)) + goto error; + } + else if (lex_match_id (lexer, "SMISSING")) + { + if (lex_match_id (lexer, "VARIABLE")) + ct->smissing_listwise = false; + else if (lex_match_id (lexer, "LISTWISE")) + ct->smissing_listwise = true; + else + { + lex_error_expecting (lexer, "VARIABLE", "LISTWISE"); + goto error; + } + } + else if (lex_match_id (lexer, "PCOMPUTE")) + { + if (!ctables_parse_pcompute (lexer, dataset_dict (ds), ct)) + goto error; + } + else if (lex_match_id (lexer, "PPROPERTIES")) + { + if (!ctables_parse_pproperties (lexer, ct)) + goto error; + } + else if (lex_match_id (lexer, "WEIGHT")) + { + if (!lex_force_match_id (lexer, "VARIABLE")) + goto error; + lex_match (lexer, T_EQUALS); + ct->e_weight = parse_variable (lexer, dataset_dict (ds)); + if (!ct->e_weight) + goto error; + } + else if (lex_match_id (lexer, "HIDESMALLCOUNTS")) + { + if (lex_match_id (lexer, "COUNT")) + { + lex_match (lexer, T_EQUALS); + if (!lex_force_int_range (lexer, "HIDESMALLCOUNTS COUNT", + 2, INT_MAX)) + goto error; + ct->hide_threshold = lex_integer (lexer); + lex_get (lexer); + } + else if (ct->hide_threshold == 0) + ct->hide_threshold = 5; + } + else + { + lex_error_expecting (lexer, "FORMAT", "VLABELS", "MRSETS", + "SMISSING", "PCOMPUTE", "PPROPERTIES", + "WEIGHT", "HIDESMALLCOUNTS", "TABLE"); + goto error; + } + + if (!lex_force_match (lexer, T_SLASH)) + goto error; + } + + size_t allocated_tables = 0; + do + { + if (ct->n_tables >= allocated_tables) + ct->tables = x2nrealloc (ct->tables, &allocated_tables, + sizeof *ct->tables); + + struct ctables_category *cat = xmalloc (sizeof *cat); + *cat = (struct ctables_category) { + .type = CCT_VALUE, + .include_missing = false, + .sort_ascending = true, + }; + + struct ctables_categories *c = xmalloc (sizeof *c); + size_t n_vars = dict_get_n_vars (dataset_dict (ds)); + *c = (struct ctables_categories) { + .n_refs = n_vars, + .cats = cat, + .n_cats = 1, + .show_empty = true, + }; + + struct ctables_categories **categories = xnmalloc (n_vars, + sizeof *categories); + for (size_t i = 0; i < n_vars; i++) + categories[i] = c; + + struct ctables_table *t = xmalloc (sizeof *t); + *t = (struct ctables_table) { + .ctables = ct, + .slabels_axis = PIVOT_AXIS_COLUMN, + .slabels_visible = true, + .clabels_values_map = HMAP_INITIALIZER (t->clabels_values_map), + .label_axis = { + [PIVOT_AXIS_ROW] = PIVOT_AXIS_ROW, + [PIVOT_AXIS_COLUMN] = PIVOT_AXIS_COLUMN, + [PIVOT_AXIS_LAYER] = PIVOT_AXIS_LAYER, + }, + .clabels_from_axis = PIVOT_AXIS_LAYER, + .clabels_to_axis = PIVOT_AXIS_LAYER, + .categories = categories, + .n_categories = n_vars, + .cilevel = 95, + }; + ct->tables[ct->n_tables++] = t; + + lex_match (lexer, T_EQUALS); + int expr_start = lex_ofs (lexer); + if (!ctables_axis_parse (lexer, dataset_dict (ds), + &t->axes[PIVOT_AXIS_ROW])) + goto error; + if (lex_match (lexer, T_BY)) + { + if (!ctables_axis_parse (lexer, dataset_dict (ds), + &t->axes[PIVOT_AXIS_COLUMN])) + goto error; + + if (lex_match (lexer, T_BY)) + { + if (!ctables_axis_parse (lexer, dataset_dict (ds), + &t->axes[PIVOT_AXIS_LAYER])) + goto error; + } + } + int expr_end = lex_ofs (lexer); + + if (!t->axes[PIVOT_AXIS_ROW] && !t->axes[PIVOT_AXIS_COLUMN] + && !t->axes[PIVOT_AXIS_LAYER]) + { + lex_error (lexer, _("At least one variable must be specified.")); + goto error; + } + + const struct ctables_axis *scales[PIVOT_N_AXES]; + size_t n_scales = 0; + for (enum pivot_axis_type a = 0; a < PIVOT_N_AXES; a++) + { + scales[a] = find_scale (t->axes[a]); + if (scales[a]) + n_scales++; + } + if (n_scales > 1) + { + msg (SE, _("Scale variables may appear only on one axis.")); + if (scales[PIVOT_AXIS_ROW]) + msg_at (SN, scales[PIVOT_AXIS_ROW]->loc, + _("This scale variable appears on the rows axis.")); + if (scales[PIVOT_AXIS_COLUMN]) + msg_at (SN, scales[PIVOT_AXIS_COLUMN]->loc, + _("This scale variable appears on the columns axis.")); + if (scales[PIVOT_AXIS_LAYER]) + msg_at (SN, scales[PIVOT_AXIS_LAYER]->loc, + _("This scale variable appears on the layer axis.")); + goto error; + } + + const struct ctables_axis *summaries[PIVOT_N_AXES]; + size_t n_summaries = 0; + for (enum pivot_axis_type a = 0; a < PIVOT_N_AXES; a++) + { + summaries[a] = (scales[a] + ? scales[a] + : find_categorical_summary_spec (t->axes[a])); + if (summaries[a]) + n_summaries++; + } + if (n_summaries > 1) + { + msg (SE, _("Summaries may appear only on one axis.")); + for (enum pivot_axis_type a = 0; a < PIVOT_N_AXES; a++) + if (summaries[a]) + { + msg_at (SN, summaries[a]->loc, + a == PIVOT_AXIS_ROW + ? _("This variable on the rows axis has a summary.") + : a == PIVOT_AXIS_COLUMN + ? _("This variable on the columns axis has a summary.") + : _("This variable on the layers axis has a summary.")); + if (scales[a]) + msg_at (SN, summaries[a]->loc, + _("This is a scale variable, so it always has a " + "summary even if the syntax does not explicitly " + "specify one.")); + } + goto error; + } + for (enum pivot_axis_type a = 0; a < PIVOT_N_AXES; a++) + if (n_summaries ? summaries[a] : t->axes[a]) + { + t->summary_axis = a; + break; + } + + if (lex_token (lexer) == T_ENDCMD) + { + if (!ctables_prepare_table (t)) + goto error; + break; + } + if (!lex_force_match (lexer, T_SLASH)) + goto error; + + while (!lex_match_id (lexer, "TABLE") && lex_token (lexer) != T_ENDCMD) + { + if (lex_match_id (lexer, "SLABELS")) + { + while (lex_token (lexer) != T_SLASH && lex_token (lexer) != T_ENDCMD) + { + if (lex_match_id (lexer, "POSITION")) + { + lex_match (lexer, T_EQUALS); + if (lex_match_id (lexer, "COLUMN")) + t->slabels_axis = PIVOT_AXIS_COLUMN; + else if (lex_match_id (lexer, "ROW")) + t->slabels_axis = PIVOT_AXIS_ROW; + else if (lex_match_id (lexer, "LAYER")) + t->slabels_axis = PIVOT_AXIS_LAYER; + else + { + lex_error_expecting (lexer, "COLUMN", "ROW", "LAYER"); + goto error; + } + } + else if (lex_match_id (lexer, "VISIBLE")) + { + lex_match (lexer, T_EQUALS); + if (!parse_bool (lexer, &t->slabels_visible)) + goto error; + } + else + { + lex_error_expecting (lexer, "POSITION", "VISIBLE"); + goto error; + } + } + } + else if (lex_match_id (lexer, "CLABELS")) + { + if (lex_match_id (lexer, "AUTO")) + { + t->label_axis[PIVOT_AXIS_ROW] = PIVOT_AXIS_ROW; + t->label_axis[PIVOT_AXIS_COLUMN] = PIVOT_AXIS_COLUMN; + } + else if (lex_match_id (lexer, "ROWLABELS")) + { + lex_match (lexer, T_EQUALS); + if (lex_match_id (lexer, "OPPOSITE")) + t->label_axis[PIVOT_AXIS_ROW] = PIVOT_AXIS_COLUMN; + else if (lex_match_id (lexer, "LAYER")) + t->label_axis[PIVOT_AXIS_ROW] = PIVOT_AXIS_LAYER; + else + { + lex_error_expecting (lexer, "OPPOSITE", "LAYER"); + goto error; + } + } + else if (lex_match_id (lexer, "COLLABELS")) + { + lex_match (lexer, T_EQUALS); + if (lex_match_id (lexer, "OPPOSITE")) + t->label_axis[PIVOT_AXIS_COLUMN] = PIVOT_AXIS_ROW; + else if (lex_match_id (lexer, "LAYER")) + t->label_axis[PIVOT_AXIS_COLUMN] = PIVOT_AXIS_LAYER; + else + { + lex_error_expecting (lexer, "OPPOSITE", "LAYER"); + goto error; + } + } + else + { + lex_error_expecting (lexer, "AUTO", "ROWLABELS", + "COLLABELS"); + goto error; + } + } + else if (lex_match_id (lexer, "CRITERIA")) + { + if (!lex_force_match_id (lexer, "CILEVEL")) + goto error; + lex_match (lexer, T_EQUALS); + + if (!lex_force_num_range_halfopen (lexer, "CILEVEL", 0, 100)) + goto error; + t->cilevel = lex_number (lexer); + lex_get (lexer); + } + else if (lex_match_id (lexer, "CATEGORIES")) + { + if (!ctables_table_parse_categories (lexer, dataset_dict (ds), + ct, t)) + goto error; + } + else if (lex_match_id (lexer, "TITLES")) + { + do + { + char **textp; + if (lex_match_id (lexer, "CAPTION")) + textp = &t->caption; + else if (lex_match_id (lexer, "CORNER")) + textp = &t->corner; + else if (lex_match_id (lexer, "TITLE")) + textp = &t->title; + else + { + lex_error_expecting (lexer, "CAPTION", "CORNER", "TITLE"); + goto error; + } + lex_match (lexer, T_EQUALS); + + struct string s = DS_EMPTY_INITIALIZER; + while (lex_is_string (lexer)) + { + if (!ds_is_empty (&s)) + ds_put_byte (&s, ' '); + put_title_text (&s, lex_tokss (lexer), now, + lexer, dataset_dict (ds), + expr_start, expr_end); + lex_get (lexer); + } + free (*textp); + *textp = ds_steal_cstr (&s); + } + while (lex_token (lexer) != T_SLASH + && lex_token (lexer) != T_ENDCMD); + } + else if (lex_match_id (lexer, "SIGTEST")) + { + int start_ofs = lex_ofs (lexer) - 1; + if (!t->chisq) + { + t->chisq = xmalloc (sizeof *t->chisq); + *t->chisq = (struct ctables_chisq) { + .alpha = .05, + .include_mrsets = true, + .all_visible = true, + }; + } + + do + { + if (lex_match_id (lexer, "TYPE")) + { + lex_match (lexer, T_EQUALS); + if (!lex_force_match_id (lexer, "CHISQUARE")) + goto error; + } + else if (lex_match_id (lexer, "ALPHA")) + { + lex_match (lexer, T_EQUALS); + if (!lex_force_num_range_halfopen (lexer, "ALPHA", 0, 1)) + goto error; + t->chisq->alpha = lex_number (lexer); + lex_get (lexer); + } + else if (lex_match_id (lexer, "INCLUDEMRSETS")) + { + lex_match (lexer, T_EQUALS); + if (!parse_bool (lexer, &t->chisq->include_mrsets)) + goto error; + } + else if (lex_match_id (lexer, "CATEGORIES")) + { + lex_match (lexer, T_EQUALS); + if (lex_match_id (lexer, "ALLVISIBLE")) + t->chisq->all_visible = true; + else if (lex_match_id (lexer, "SUBTOTALS")) + t->chisq->all_visible = false; + else + { + lex_error_expecting (lexer, + "ALLVISIBLE", "SUBTOTALS"); + goto error; + } + } + else + { + lex_error_expecting (lexer, "TYPE", "ALPHA", + "INCLUDEMRSETS", "CATEGORIES"); + goto error; + } + } + while (lex_token (lexer) != T_SLASH + && lex_token (lexer) != T_ENDCMD); + + lex_ofs_error (lexer, start_ofs, lex_ofs (lexer) - 1, + _("Support for SIGTEST not yet implemented.")); + goto error; + } + else if (lex_match_id (lexer, "COMPARETEST")) + { + int start_ofs = lex_ofs (lexer); + if (!t->pairwise) + { + t->pairwise = xmalloc (sizeof *t->pairwise); + *t->pairwise = (struct ctables_pairwise) { + .type = PROP, + .alpha = { .05, .05 }, + .adjust = BONFERRONI, + .include_mrsets = true, + .meansvariance_allcats = true, + .all_visible = true, + .merge = false, + .apa_style = true, + .show_sig = false, + }; + } + + do + { + if (lex_match_id (lexer, "TYPE")) + { + lex_match (lexer, T_EQUALS); + if (lex_match_id (lexer, "PROP")) + t->pairwise->type = PROP; + else if (lex_match_id (lexer, "MEAN")) + t->pairwise->type = MEAN; + else + { + lex_error_expecting (lexer, "PROP", "MEAN"); + goto error; + } + } + else if (lex_match_id (lexer, "ALPHA")) + { + lex_match (lexer, T_EQUALS); + + if (!lex_force_num_range_open (lexer, "ALPHA", 0, 1)) + goto error; + double a0 = lex_number (lexer); + lex_get (lexer); + + lex_match (lexer, T_COMMA); + if (lex_is_number (lexer)) + { + if (!lex_force_num_range_open (lexer, "ALPHA", 0, 1)) + goto error; + double a1 = lex_number (lexer); + lex_get (lexer); + + t->pairwise->alpha[0] = MIN (a0, a1); + t->pairwise->alpha[1] = MAX (a0, a1); + } + else + t->pairwise->alpha[0] = t->pairwise->alpha[1] = a0; + } + else if (lex_match_id (lexer, "ADJUST")) + { + lex_match (lexer, T_EQUALS); + if (lex_match_id (lexer, "BONFERRONI")) + t->pairwise->adjust = BONFERRONI; + else if (lex_match_id (lexer, "BH")) + t->pairwise->adjust = BH; + else if (lex_match_id (lexer, "NONE")) + t->pairwise->adjust = 0; + else + { + lex_error_expecting (lexer, "BONFERRONI", "BH", + "NONE"); + goto error; + } + } + else if (lex_match_id (lexer, "INCLUDEMRSETS")) + { + lex_match (lexer, T_EQUALS); + if (!parse_bool (lexer, &t->pairwise->include_mrsets)) + goto error; + } + else if (lex_match_id (lexer, "MEANSVARIANCE")) + { + lex_match (lexer, T_EQUALS); + if (lex_match_id (lexer, "ALLCATS")) + t->pairwise->meansvariance_allcats = true; + else if (lex_match_id (lexer, "TESTEDCATS")) + t->pairwise->meansvariance_allcats = false; + else + { + lex_error_expecting (lexer, "ALLCATS", "TESTEDCATS"); + goto error; + } + } + else if (lex_match_id (lexer, "CATEGORIES")) + { + lex_match (lexer, T_EQUALS); + if (lex_match_id (lexer, "ALLVISIBLE")) + t->pairwise->all_visible = true; + else if (lex_match_id (lexer, "SUBTOTALS")) + t->pairwise->all_visible = false; + else + { + lex_error_expecting (lexer, "ALLVISIBLE", + "SUBTOTALS"); + goto error; + } + } + else if (lex_match_id (lexer, "MERGE")) + { + lex_match (lexer, T_EQUALS); + if (!parse_bool (lexer, &t->pairwise->merge)) + goto error; + } + else if (lex_match_id (lexer, "STYLE")) + { + lex_match (lexer, T_EQUALS); + if (lex_match_id (lexer, "APA")) + t->pairwise->apa_style = true; + else if (lex_match_id (lexer, "SIMPLE")) + t->pairwise->apa_style = false; + else + { + lex_error_expecting (lexer, "APA", "SIMPLE"); + goto error; + } + } + else if (lex_match_id (lexer, "SHOWSIG")) + { + lex_match (lexer, T_EQUALS); + if (!parse_bool (lexer, &t->pairwise->show_sig)) + goto error; + } + else + { + lex_error_expecting (lexer, "TYPE", "ALPHA", "ADJUST", + "INCLUDEMRSETS", "MEANSVARIANCE", + "CATEGORIES", "MERGE", "STYLE", + "SHOWSIG"); + goto error; + } + } + while (lex_token (lexer) != T_SLASH + && lex_token (lexer) != T_ENDCMD); + + lex_ofs_error (lexer, start_ofs, lex_ofs (lexer) - 1, + _("Support for COMPARETEST not yet implemented.")); + goto error; + } + else + { + lex_error_expecting (lexer, "TABLE", "SLABELS", "CLABELS", + "CRITERIA", "CATEGORIES", "TITLES", + "SIGTEST", "COMPARETEST"); + goto error; + } + + if (!lex_match (lexer, T_SLASH)) + break; + } + + if (t->label_axis[PIVOT_AXIS_ROW] != PIVOT_AXIS_ROW) + { + t->clabels_from_axis = PIVOT_AXIS_ROW; + if (t->label_axis[PIVOT_AXIS_COLUMN] != PIVOT_AXIS_COLUMN) + { + msg (SE, _("ROWLABELS and COLLABELS may not both be specified.")); + goto error; + } + } + else if (t->label_axis[PIVOT_AXIS_COLUMN] != PIVOT_AXIS_COLUMN) + t->clabels_from_axis = PIVOT_AXIS_COLUMN; + t->clabels_to_axis = t->label_axis[t->clabels_from_axis]; + + if (!ctables_prepare_table (t)) + goto error; + } + while (lex_token (lexer) != T_ENDCMD); + + if (!input) + input = proc_open (ds); + bool ok = ctables_execute (ds, input, ct); + ok = proc_commit (ds) && ok; + + ctables_destroy (ct); + return ok ? CMD_SUCCESS : CMD_FAILURE; + +error: + if (input) + proc_commit (ds); + ctables_destroy (ct); + return CMD_FAILURE; +} + diff --git a/src/language/stats/ctables.inc b/src/language/stats/ctables.inc new file mode 100644 index 0000000000..27160997e0 --- /dev/null +++ b/src/language/stats/ctables.inc @@ -0,0 +1,27 @@ +/* -*- c -*- */ + +/* Summary functions for all variables. */ +S(CTSF_COUNT, "COUNT", CTFT_UECELL, CTF_COUNT, CTFA_ALL) +S(CTSF_areaPCT_COUNT, "PCT.COUNT", CTFT_AREA, CTF_PERCENT, CTFA_ALL) +S(CTSF_areaPCT_VALIDN, "PCT.VALIDN", CTFT_AREA, CTF_PERCENT, CTFA_ALL) +S(CTSF_areaPCT_TOTALN, "PCT.TOTALN", CTFT_AREA, CTF_PERCENT, CTFA_ALL) + +/* Scale variables, totals, and subtotals. */ +S(CTSF_MAXIMUM, "MAXIMUM", CTFT_CELL, CTF_GENERAL, CTFA_SCALE) +S(CTSF_MEAN, "MEAN", CTFT_UCELL, CTF_GENERAL, CTFA_SCALE) +S(CTSF_MEDIAN, "MEDIAN", CTFT_UCELL, CTF_GENERAL, CTFA_SCALE) +S(CTSF_MINIMUM, "MINIMUM", CTFT_CELL, CTF_GENERAL, CTFA_SCALE) +S(CTSF_MISSING, "MISSING", CTFT_UCELL, CTF_GENERAL, CTFA_SCALE) +S(CTSF_MODE, "MODE", CTFT_UCELL, CTF_GENERAL, CTFA_SCALE) +S(CTSF_PTILE, "PTILE", CTFT_UCELL, CTF_GENERAL, CTFA_SCALE) +S(CTSF_RANGE, "RANGE", CTFT_CELL, CTF_GENERAL, CTFA_SCALE) +S(CTSF_SEMEAN, "SEMEAN", CTFT_UCELL, CTF_GENERAL, CTFA_SCALE) +S(CTSF_STDDEV, "STDDEV", CTFT_UCELL, CTF_GENERAL, CTFA_SCALE) +S(CTSF_SUM, "SUM", CTFT_UCELL, CTF_GENERAL, CTFA_SCALE) +S(CTSF_TOTALN, "TOTALN", CTFT_UECELL, CTF_COUNT, CTFA_SCALE) +S(CTSF_VALIDN, "VALIDN", CTFT_UECELL, CTF_COUNT, CTFA_SCALE) +S(CTSF_VARIANCE, "VARIANCE", CTFT_UCELL, CTF_GENERAL, CTFA_SCALE) +S(CTSF_areaPCT_SUM, "PCT.SUM", CTFT_AREA, CTF_PERCENT, CTFA_SCALE) + +/* Debugging and troubleshooting. */ +S(CTSF_areaID, "ID", CTFT_AREA, CTF_COUNT, CTFA_ALL) diff --git a/tests/automake.mk b/tests/automake.mk index f9bea8fa51..095ed03579 100644 --- a/tests/automake.mk +++ b/tests/automake.mk @@ -398,6 +398,7 @@ TESTSUITE_AT = \ tests/language/stats/autorecode.at \ tests/language/stats/correlations.at \ tests/language/stats/crosstabs.at \ + tests/language/stats/ctables.at \ tests/language/stats/descriptives.at \ tests/language/stats/examine.at \ tests/language/stats/graph.at \ @@ -487,8 +488,16 @@ $(srcdir)/tests/testsuite.at: tests/testsuite.in tests/automake.mk EXTRA_DIST += tests/testsuite.at +# Generate a TableLook that prints all layers of pivot tables. +check_DATA = tests/all-layers.stt +tests/all-layers.stt: utilities/pspp-output + $(AM_V_GEN)$< get-table-look - $@.tmp + $(AM_V_at)if grep 'printAllLayers="false"' $@.tmp >/dev/null; then :; else \ + echo >&2 "$<: expected printAllLayers=\"false\""; exit 1; fi + $(AM_v_at)sed 's/printAllLayers="false"/printAllLayers="true"/' < $@.tmp > $@ + CHECK_LOCAL += tests_check -tests_check: tests/atconfig tests/atlocal $(TESTSUITE) $(check_PROGRAMS) +tests_check: tests/atconfig tests/atlocal $(TESTSUITE) $(check_PROGRAMS) $(check_DATA) XTERM_LOCALE='' $(SHELL) '$(TESTSUITE)' -C tests AUTOTEST_PATH=$(AUTOTEST_PATH) RUNNER='$(RUNNER)' $(TESTSUITEFLAGS) CLEAN_LOCAL += tests_clean diff --git a/tests/language/stats/ctables.at b/tests/language/stats/ctables.at new file mode 100644 index 0000000000..6f6e182bda --- /dev/null +++ b/tests/language/stats/ctables.at @@ -0,0 +1,5495 @@ +AT_BANNER([CTABLES]) + +dnl Known bugs: +dnl TOTAL interaction with PCOMPUTE, e.g. the following +dnl CTABLES +dnl /PCOMPUTE &all_drivers=EXPR([1 THRU 2] + [3 THRU 4]) +dnl /PPROPERTIES &all_drivers LABEL='All Drivers' +dnl /PCOMPUTE &pct_not_drivers=EXPR([5] / ([1 THRU 2] + [3 THRU 4] + [5]) * 100) +dnl /PPROPERTIES &pct_not_drivers LABEL='% Not Drivers' FORMAT=COUNT PCT40.1 +dnl /TABLE=qn1 BY qns3a +dnl /CATEGORIES VARIABLES=qns3a TOTAL=YES +dnl /CATEGORIES VARIABLES=qn1 [1 THRU 2, SUBTOTAL='Frequent Drivers', +dnl 3 THRU 4, SUBTOTAL='Infrequent Drivers', +dnl &all_drivers, 5, &pct_not_drivers, +dnl MISSING, SUBTOTAL='Not Drivers or Missing']. +dnl yields gaps in the Total column: +dnl ╭─────────────────────────────────────────────────────────────────────────┬──────────────────╮ +dnl │ │ S3a. GENDER: │ +dnl │ ├─────┬──────┬─────┤ +dnl │ │ Male│Female│Total│ +dnl │ ├─────┼──────┼─────┤ +dnl │ │Count│ Count│Count│ +dnl ├─────────────────────────────────────────────────────────────────────────┼─────┼──────┼─────┤ +dnl │ 1. How often do you usually drive a car or other Every day │ 2305│ 2362│ 4667│ +dnl │motor vehicle? Several days a week │ 440│ 834│ 1274│ +dnl │ Frequent Drivers │ 2745│ 3196│ │ +dnl │ Once a week or less │ 125│ 236│ 361│ +dnl │ Only certain times a │ 58│ 72│ 130│ +dnl │ year │ │ │ │ +dnl │ Infrequent Drivers │ 183│ 308│ │ +dnl │ All Drivers │ 2928│ 3504│ │ +dnl │ Never │ 192│ 348│ 540│ +dnl │ % Not Drivers │ 6.2%│ 9.0%│ │ +dnl │ Don't know │ 3│ 5│ 8│ +dnl │ Refused │ 9│ 10│ 19│ +dnl │ Not Drivers or │ 204│ 363│ │ +dnl │ Missing │ │ │ │ +dnl ╰─────────────────────────────────────────────────────────────────────────┴─────┴──────┴─────╯ +dnl Features not yet implemented: +dnl - Multiple response sets +dnl - MRSETS subcommand. +dnl - CATEGORIES: Special case for explicit category specifications and multiple dichotomy sets. +dnl - SIGTEST +dnl - COMPARETEST +dnl - Summary functions: +dnl * .LCL and .UCL suffixes. +dnl * .SE suffixes. +dnl - CATEGORIES: +dnl * Data-dependent sorting. + +AT_SETUP([CTABLES parsing]) +AT_CHECK([ln $top_srcdir/examples/nhtsa.sav . || cp $top_srcdir/examples/nhtsa.sav .]) +AT_DATA([ctables.sps], +[[GET 'nhtsa.sav'. +CTABLES + /FORMAT MINCOLWIDTH=10 MAXCOLWIDTH=20 UNITS=POINTS EMPTY=ZERO MISSING="x" + /FORMAT MINCOLWIDTH=DEFAULT MAXCOLWIDTH=DEFAULT UNITS=INCHES EMPTY=BLANK MISSING="." + /FORMAT UNITS=CM EMPTY="(-)" + /VLABELS VARIABLES=qn1 DISPLAY=DEFAULT + /VLABELS VARIABLES=qn17 DISPLAY=NAME + /VLABELS VARIABLES=qns3a DISPLAY=LABEL + /VLABELS VARIABLES=qnd1 DISPLAY=BOTH + /VLABELS VARIABLES=qn20 DISPLAY=NONE + /MRSETS COUNTDUPLICATES=NO + /MRSETS COUNTDUPLICATES=YES + /SMISSING VARIABLE + /SMISSING LISTWISE + /WEIGHT VARIABLE=qns3a + /HIDESMALLCOUNTS + /HIDESMALLCOUNTS COUNT=10 + /TABLE qnsa1 + /SLABELS POSITION=COLUMN VISIBLE=YES + /SLABELS VISIBLE=NO POSITION=ROW + /SLABELS POSITION=LAYER + /CLABELS AUTO + /CLABELS ROWLABELS=OPPOSITE + /CRITERIA CILEVEL=50 + /CATEGORIES VARIABLES=qn1 qn17 + ORDER=A KEY=VALUE MISSING=INCLUDE TOTAL=YES LABEL="xyzzy" + POSITION=BEFORE EMPTY=INCLUDE. +CTABLES /TABLE qnsa1 /CLABELS ROWLABELS=LAYER. +CTABLES /TABLE qnsa1 /CLABELS COLLABELS=OPPOSITE. +CTABLES /TABLE qnsa1 /CLABELS COLLABELS=LAYER. +]]) +AT_CHECK([pspp ctables.sps -O box=unicode -O width=80], [0], [dnl + Custom Tables +Count +╭───────────────────┬────┬────╮ +│ │ RDD│CELL│ +├───────────────────┼────┼────┤ +│Sa1. SAMPLE SOURCE:│5392│1607│ +╰───────────────────┴────┴────╯ + + Custom Tables +RDD +╭───────────────────┬─────╮ +│ │Count│ +├───────────────────┼─────┤ +│Sa1. SAMPLE SOURCE:│ 5392│ +╰───────────────────┴─────╯ + + Custom Tables +╭────────────────────────┬─────╮ +│ │Count│ +├────────────────────────┼─────┤ +│Sa1. SAMPLE SOURCE: RDD │ 5392│ +│ CELL│ 1607│ +╰────────────────────────┴─────╯ + + Custom Tables +╭────────────────────────┬─────╮ +│ │Count│ +├────────────────────────┼─────┤ +│Sa1. SAMPLE SOURCE: RDD │ 5392│ +│ CELL│ 1607│ +╰────────────────────────┴─────╯ +]) +AT_CLEANUP + +AT_SETUP([CTABLES parsing - negative]) +AT_CHECK([ln $top_srcdir/examples/nhtsa.sav . || cp $top_srcdir/examples/nhtsa.sav .]) +AT_DATA([ctables.sps], +[[GET 'nhtsa.sav'. +CTABLES. +CTABLES /FORMAT MINCOLWIDTH='foo'. +CTABLES /TABLE qn1 [**]. +CTABLES /TABLE qn1 [NOTAFUNCTION]. +CTABLES /TABLE (qn1. +CTABLES /TABLE **. +CTABLES /TABLE NOTAVAR. +STRING string(A8). +CTABLES /TABLE string[S]. +CTABLES /TABLE qn1 [PTILE 101]. +CTABLES /TABLE qn1 [MEAN F0.1]. +CTABLES /TABLE qn1 [MEAN NEGPAREN1.2]. +CTABLES /TABLE qn1 [MEAN NEGPAREN3.4]. +CTABLES /TABLE qn1 [MEAN TOTALS]. +CTABLES /TABLE qn1 [MEAN TOTALS[STDDEV]%]. +CTABLES /TABLE qn1 /CATEGORIES VARIABLES=qn1 [SUBTOTAL=x]. +CTABLES /TABLE qn1 /CATEGORIES VARIABLES=qn1 [LO **]. +CTABLES /TABLE qn1 /CATEGORIES VARIABLES=qn1 [LO THRU x]. +CTABLES /TABLE qn1 /CATEGORIES VARIABLES=qn1 [1 THRU **]. +CTABLES /TABLE qn1 /CATEGORIES VARIABLES=qn1 ['x' THRU **]. +CTABLES /TABLE qn1 /CATEGORIES VARIABLES=qn1 [&**]. +CTABLES /TABLE qn1 /CATEGORIES VARIABLES=qn1 [&x]. +CTABLES /TABLE qn1 /CATEGORIES VARIABLES=qn1 KEY=PTILE(qn1, 101). +CTABLES /TABLE qn1 /CATEGORIES VARIABLES=qn1 KEY=MEAN(qn1. +CTABLES /TABLE qn1 /CATEGORIES VARIABLES=qn1 KEY=MEAN. +CTABLES /TABLE qn1 /CATEGORIES VARIABLES=qn1 MISSING=**. +CTABLES /TABLE qn1 /CATEGORIES VARIABLES=qn1 TOTAL=**. +CTABLES /TABLE qn1 /CATEGORIES VARIABLES=qn1 LABEL=**. +CTABLES /TABLE qn1 /CATEGORIES VARIABLES=qn1 POSITION=**. +CTABLES /TABLE qn1 /CATEGORIES VARIABLES=qn1 EMPTY=**. +CTABLES /TABLE qn1 /CATEGORIES VARIABLES=qn1 **. +CTABLES /TABLE qn1 /CATEGORIES VARIABLES=qn1 [1,2,3] **. +CTABLES /PCOMPUTE &k=EXPR(SUBTOTAL[0]). +CTABLES /PCOMPUTE &k=EXPR(SUBTOTAL[1**]). +CTABLES /PCOMPUTE &k=EXPR([LO **]). +CTABLES /PCOMPUTE &k=EXPR([LO THRU **]). +CTABLES /PCOMPUTE &k=EXPR([1 THRU **]). +CTABLES /PCOMPUTE &k=EXPR([1**]). +CTABLES /PCOMPUTE &k=EXPR((1x)). +CTABLES /PCOMPUTE **k. +CTABLES /PCOMPUTE &1. +CTABLES /PCOMPUTE &k**. +CTABLES /PCOMPUTE &k=**. +CTABLES /PCOMPUTE &k=EXPR**. +CTABLES /PCOMPUTE &k=EXPR(1x). +CTABLES /PCOMPUTE &k=EXPR(1) /PCOMPUTE &k=EXPR(2). +CTABLES /PCOMPUTE &k=EXPR(1) /PPROPERTIES &k FORMAT=NOTAFUNCTION. +CTABLES /PCOMPUTE &k=EXPR(1) /PPROPERTIES &k FORMAT=PTILE **. +CTABLES /PCOMPUTE &k=EXPR(1) /PPROPERTIES &k LABEL=**. +CTABLES /PCOMPUTE &k=EXPR(1) /PPROPERTIES &k HIDESOURCECATS=**. +CTABLES /PCOMPUTE &k=EXPR(1) /PPROPERTIES &k **. +CTABLES /FORMAT EMPTY=**. +CTABLES /FORMAT MISSING=**. +CTABLES /FORMAT **. +CTABLES /FORMAT MINCOLWIDTH=20 MAXCOLWIDTH=10/. +CTABLES /VLABELS **. +CTABLES /VLABELS VARIABLES=NOTAVAR. +CTABLES /VLABELS VARIABLES=qn1 **. +CTABLES /VLABELS VARIABLES=qn1 DISPLAY=**. +CTABLES /MRSETS **. +CTABLES /MRSETS COUNTDUPLICATES=**. +CTABLES /SMISSING **. +CTABLES /WEIGHT **. +CTABLES /WEIGHT VARIABLE=NOTAVAR. +CTABLES /HIDESMALLCOUNTS COUNT=1. +CTABLES /QUUX. +CTABLES /HIDESMALLCOUNTS COUNT=2. +CTABLES /TABLE qn1**. +CTABLES /TABLE qn1 /SLABELS POSITION=**. +CTABLES /TABLE qn1 /SLABELS VISIBLE=**. +CTABLES /TABLE qn1 /SLABELS **. +CTABLES /TABLE qn1 /CLABELS ROWLABELS=**. +CTABLES /TABLE qn1 /CLABELS COLLABELS=**. +CTABLES /TABLE qn1 /CLABELS **. +CTABLES /TABLE qn1 /CRITERIA **. +CTABLES /TABLE qn1 /CRITERIA CILEVEL=101. +CTABLES /TABLE qn1 /TITLES **. +CTABLES /TABLE qn1 /SIGTEST TYPE=**. +CTABLES /TABLE qn1 /SIGTEST ALPHA=**. +CTABLES /TABLE qn1 /SIGTEST INCLUDEMRSETS=**. +CTABLES /TABLE qn1 /SIGTEST CATEGORIES=**. +CTABLES /TABLE qn1 /SIGTEST **. +CTABLES /TABLE qn1 /COMPARETEST TYPE=**. +CTABLES /TABLE qn1 /COMPARETEST ALPHA=**. +CTABLES /TABLE qn1 /COMPARETEST ALPHA=0,5. +CTABLES /TABLE qn1 /COMPARETEST ADJUST=**. +CTABLES /TABLE qn1 /COMPARETEST INCLUDEMRSETS=**. +CTABLES /TABLE qn1 /COMPARETEST MEANSVARIANCE=**. +CTABLES /TABLE qn1 /COMPARETEST CATEGORIES=**. +CTABLES /TABLE qn1 /COMPARETEST MERGE=**. +CTABLES /TABLE qn1 /COMPARETEST STYLE=**. +CTABLES /TABLE qn1 /COMPARETEST SHOWSIG=**. +CTABLES /TABLE qn1 /COMPARETEST **. +CTABLES /TABLE qn1 / **. +CTABLES /TABLE qn1 /CLABELS ROWLABELS=OPPOSITE /CLABELS COLLABELS=OPPOSITE. +CTABLES /TABLE qn20 > qnd1. +CTABLES /TABLE qn1 [ROWPCT] > qnsa1. +NUMERIC datetime (DATETIME17.0). +CTABLES /TABLE qn1 /CATEGORIES VARIABLES=datetime ['123']. +]]) +AT_CHECK([pspp ctables.sps -O box=unicode -O width=80], [1], +[[ctables.sps:2.8: error: CTABLES: Syntax error at end of command: expecting `/'. + +ctables.sps:3.29-3.33: error: CTABLES: Syntax error at `'foo'': Expected non- +negative number for MINCOLWIDTH. + +ctables.sps:4.21-4.22: error: CTABLES: Syntax error at `**': expecting +identifier. + +ctables.sps:5.21-5.32: error: CTABLES: Syntax error at `NOTAFUNCTION': Expecting +summary function name. + +ctables.sps:6.20: error: CTABLES: Syntax error at end of command: expecting `@:}@'. + +ctables.sps:7.16-7.17: error: CTABLES: Syntax error at `**': expecting +identifier. + +ctables.sps:8: error: CTABLES: NOTAVAR is not a variable name. + +ctables.sps:10.16-10.24: error: CTABLES: Cannot use string variable string as a +scale variable. + 10 | CTABLES /TABLE string[S]. + | ^~~~~~~~~ + +ctables.sps:11.27-11.29: error: CTABLES: Syntax error at `101': Expected number +between 0 and 100 for PTILE. + +ctables.sps:12: error: CTABLES: Output format F0.1 specifies width 0, but F +requires a width between 1 and 40. + +ctables.sps:13.26-13.36: error: CTABLES: Syntax error at `NEGPAREN1.2': Output +format NEGPAREN requires width 2 or greater. + +ctables.sps:14.26-14.36: error: CTABLES: Syntax error at `NEGPAREN3.4': Output +format NEGPAREN requires width greater than decimals. + +ctables.sps:15.21-15.24: error: CTABLES: Summary function MEAN applies only to +scale variables. + 15 | CTABLES /TABLE qn1 [MEAN TOTALS]. + | ^~~~ + +ctables.sps:15.16-15.18: note: CTABLES: 'QN1' is not a scale variable. + 15 | CTABLES /TABLE qn1 [MEAN TOTALS]. + | ^~~ + +ctables.sps:15.32: error: CTABLES: Syntax error at `@:>@': expecting `@<:@'. + +ctables.sps:16.21-16.24: error: CTABLES: Summary function MEAN applies only to +scale variables. + 16 | CTABLES /TABLE qn1 [MEAN TOTALS[STDDEV]%]. + | ^~~~ + +ctables.sps:16.16-16.18: note: CTABLES: 'QN1' is not a scale variable. + 16 | CTABLES /TABLE qn1 [MEAN TOTALS[STDDEV]%]. + | ^~~ + +ctables.sps:16.40: error: CTABLES: Syntax error at `%': expecting `@:>@'. + +ctables.sps:17.56: error: CTABLES: Syntax error at `x': expecting string. + +ctables.sps:18.50-18.51: error: CTABLES: Syntax error at `**': expecting THRU. + +ctables.sps:19.55: error: CTABLES: Syntax error at `x': expecting number. + +ctables.sps:20.54-20.55: error: CTABLES: Syntax error at `**': expecting number. + +ctables.sps:21.56-21.57: error: CTABLES: Syntax error at `**': expecting string. + +ctables.sps:22.48-22.49: error: CTABLES: Syntax error at `**': expecting +identifier. + +ctables.sps:23.47-23.48: error: CTABLES: Unknown postcompute &x. + 23 | CTABLES /TABLE qn1 /CATEGORIES VARIABLES=qn1 [&x]. + | ^~ + +ctables.sps:24.61-24.63: error: CTABLES: Syntax error at `101': Expected number +between 0 and 100 for PTILE. + +ctables.sps:25.58: error: CTABLES: Syntax error at end of command: expecting +`@:}@'. + +ctables.sps:26.54: error: CTABLES: Syntax error at end of command: expecting +`@{:@'. + +ctables.sps:27.54-27.55: error: CTABLES: Syntax error at `**': expecting INCLUDE +or EXCLUDE. + +ctables.sps:28.52-28.53: error: CTABLES: Syntax error at `**': expecting YES or +NO. + +ctables.sps:29.52-29.53: error: CTABLES: Syntax error at `**': expecting string. + +ctables.sps:30.55-30.56: error: CTABLES: Syntax error at `**': expecting BEFORE +or AFTER. + +ctables.sps:31.52-31.53: error: CTABLES: Syntax error at `**': expecting INCLUDE +or EXCLUDE. + +ctables.sps:32.46-32.47: error: CTABLES: Syntax error at `**': expecting ORDER, +KEY, MISSING, TOTAL, LABEL, POSITION, or EMPTY. + +ctables.sps:33.54-33.55: error: CTABLES: Syntax error at `**': expecting TOTAL, +LABEL, POSITION, or EMPTY. + +ctables.sps:34.36: error: CTABLES: Syntax error at `0': Expected positive +integer for SUBTOTAL. + +ctables.sps:35.37-35.38: error: CTABLES: Syntax error at `**': expecting `@:>@'. + +ctables.sps:36.31-36.32: error: CTABLES: Syntax error at `**': expecting THRU. + +ctables.sps:37.36-37.37: error: CTABLES: Syntax error at `**': expecting number. + +ctables.sps:38.35-38.36: error: CTABLES: Syntax error at `**': expecting number. + +ctables.sps:39.29-39.30: error: CTABLES: Syntax error at `**': expecting `@:>@'. + +ctables.sps:40.29: error: CTABLES: Syntax error at `x': expecting `@:}@'. + +ctables.sps:41.19-41.20: error: CTABLES: Syntax error at `**': expecting &. + +ctables.sps:42.20: error: CTABLES: Syntax error at `1': expecting identifier. + +ctables.sps:43.21-43.22: error: CTABLES: Syntax error at `**': expecting `='. + +ctables.sps:44.22-44.23: error: CTABLES: Syntax error at `**': expecting EXPR. + +ctables.sps:45.26-45.27: error: CTABLES: Syntax error at `**': expecting `('. + +ctables.sps:46.28: error: CTABLES: Syntax error at `x': expecting `)'. + +ctables.sps:47.31-47.49: warning: CTABLES: New definition of &k will override +the previous definition. + 47 | CTABLES /PCOMPUTE &k=EXPR(1) /PCOMPUTE &k=EXPR(2). + | ^~~~~~~~~~~~~~~~~~~ + +ctables.sps:47.10-47.28: note: CTABLES: This is the previous definition. + 47 | CTABLES /PCOMPUTE &k=EXPR(1) /PCOMPUTE &k=EXPR(2). + | ^~~~~~~~~~~~~~~~~~~ + +ctables.sps:47.50: error: CTABLES: Syntax error at end of command: expecting +`/'. + +ctables.sps:48.53-48.64: error: CTABLES: Syntax error at `NOTAFUNCTION': +Expecting summary function name. + +ctables.sps:49.59-49.60: error: CTABLES: Syntax error at `**': Expected number +between 0 and 100 for PTILE. + +ctables.sps:50.52-50.53: error: CTABLES: Syntax error at `**': expecting string. + +ctables.sps:51.61-51.62: error: CTABLES: Syntax error at `**': expecting YES or +NO. + +ctables.sps:52.46-52.47: error: CTABLES: Syntax error at `**': expecting LABEL, +FORMAT, or HIDESOURCECATS. + +ctables.sps:53.23-53.24: error: CTABLES: Syntax error at `**': expecting string. + +ctables.sps:54.25-54.26: error: CTABLES: Syntax error at `**': expecting string. + +ctables.sps:55.17-55.18: error: CTABLES: Syntax error at `**': expecting +MINCOLWIDTH, MAXCOLWIDTH, UNITS, EMPTY, or MISSING. + +ctables.sps:56: error: CTABLES: MINCOLWIDTH must not be greater than +MAXCOLWIDTH. + +ctables.sps:57.18-57.19: error: CTABLES: Syntax error at `**': expecting +VARIABLES. + +ctables.sps:58: error: CTABLES: NOTAVAR is not a variable name. + +ctables.sps:59.32-59.33: error: CTABLES: Syntax error at `**': expecting +DISPLAY. + +ctables.sps:60.40-60.41: error: CTABLES: Syntax error at `**': expecting +DEFAULT, NAME, LABEL, BOTH, or NONE. + +ctables.sps:61.17-61.18: error: CTABLES: Syntax error at `**': expecting +COUNTDUPLICATES. + +ctables.sps:62.33-62.34: error: CTABLES: Syntax error at `**': expecting YES or +NO. + +ctables.sps:63.19-63.20: error: CTABLES: Syntax error at `**': expecting +VARIABLE or LISTWISE. + +ctables.sps:64.17-64.18: error: CTABLES: Syntax error at `**': expecting +VARIABLE. + +ctables.sps:65: error: CTABLES: NOTAVAR is not a variable name. + +ctables.sps:66.32: error: CTABLES: Syntax error at `1': Expected integer 2 or +greater for HIDESMALLCOUNTS COUNT. + +ctables.sps:67.10-67.13: error: CTABLES: Syntax error at `QUUX': expecting one +of the following: FORMAT, VLABELS, MRSETS, SMISSING, PCOMPUTE, PPROPERTIES, +WEIGHT, HIDESMALLCOUNTS, TABLE. + +ctables.sps:68.33: error: CTABLES: Syntax error at end of command: expecting +`/'. + +ctables.sps:69.19-69.20: error: CTABLES: Syntax error at `**': expecting `/'. + +ctables.sps:70.38-70.39: error: CTABLES: Syntax error at `**': expecting COLUMN, +ROW, or LAYER. + +ctables.sps:71.37-71.38: error: CTABLES: Syntax error at `**': expecting YES or +NO. + +ctables.sps:72.29-72.30: error: CTABLES: Syntax error at `**': expecting +POSITION or VISIBLE. + +ctables.sps:73.39-73.40: error: CTABLES: Syntax error at `**': expecting +OPPOSITE or LAYER. + +ctables.sps:74.39-74.40: error: CTABLES: Syntax error at `**': expecting +OPPOSITE or LAYER. + +ctables.sps:75.29-75.30: error: CTABLES: Syntax error at `**': expecting AUTO, +ROWLABELS, or COLLABELS. + +ctables.sps:76.30-76.31: error: CTABLES: Syntax error at `**': expecting +CILEVEL. + +ctables.sps:77.38-77.40: error: CTABLES: Syntax error at `101': Expected number +in @<:@0,100@:}@ for CILEVEL. + +ctables.sps:78.28-78.29: error: CTABLES: Syntax error at `**': expecting +CAPTION, CORNER, or TITLE. + +ctables.sps:79.34-79.35: error: CTABLES: Syntax error at `**': expecting +CHISQUARE. + +ctables.sps:80.35-80.36: error: CTABLES: Syntax error at `**': Expected number +in @<:@0,1@:}@ for ALPHA. + +ctables.sps:81.43-81.44: error: CTABLES: Syntax error at `**': expecting YES or +NO. + +ctables.sps:82.40-82.41: error: CTABLES: Syntax error at `**': expecting +ALLVISIBLE or SUBTOTALS. + +ctables.sps:83.29-83.30: error: CTABLES: Syntax error at `**': expecting TYPE, +ALPHA, INCLUDEMRSETS, or CATEGORIES. + +ctables.sps:84.38-84.39: error: CTABLES: Syntax error at `**': expecting PROP or +MEAN. + +ctables.sps:85.39-85.40: error: CTABLES: Syntax error at `**': Expected number +in (0,1) for ALPHA. + +ctables.sps:86.39: error: CTABLES: Syntax error at `0': Expected number in (0,1) +for ALPHA. + +ctables.sps:87.40-87.41: error: CTABLES: Syntax error at `**': expecting +BONFERRONI, BH, or NONE. + +ctables.sps:88.47-88.48: error: CTABLES: Syntax error at `**': expecting YES or +NO. + +ctables.sps:89.47-89.48: error: CTABLES: Syntax error at `**': expecting ALLCATS +or TESTEDCATS. + +ctables.sps:90.44-90.45: error: CTABLES: Syntax error at `**': expecting +ALLVISIBLE or SUBTOTALS. + +ctables.sps:91.39-91.40: error: CTABLES: Syntax error at `**': expecting YES or +NO. + +ctables.sps:92.39-92.40: error: CTABLES: Syntax error at `**': expecting APA or +SIMPLE. + +ctables.sps:93.41-93.42: error: CTABLES: Syntax error at `**': expecting YES or +NO. + +ctables.sps:94.33-94.34: error: CTABLES: Syntax error at `**': expecting one of +the following: TYPE, ALPHA, ADJUST, INCLUDEMRSETS, MEANSVARIANCE, CATEGORIES, +MERGE, STYLE, SHOWSIG. + +ctables.sps:95.22-95.23: error: CTABLES: Syntax error at `**': expecting TABLE, +SLABELS, CLABELS, CRITERIA, CATEGORIES, TITLES, SIGTEST, or COMPARETEST. + +ctables.sps:96: error: CTABLES: ROWLABELS and COLLABELS may not both be +specified. + +ctables.sps:97.16-97.26: error: CTABLES: Cannot nest scale variables. + 97 | CTABLES /TABLE qn20 > qnd1. + | ^~~~~~~~~~~ + +ctables.sps:97.16-97.19: note: CTABLES: This is an outer scale variable. + 97 | CTABLES /TABLE qn20 > qnd1. + | ^~~~ + +ctables.sps:97.23-97.26: note: CTABLES: This is an inner scale variable. + 97 | CTABLES /TABLE qn20 > qnd1. + | ^~~~ + +ctables.sps:98.16-98.35: error: CTABLES: Summaries may only be requested for +categorical variables at the innermost nesting level. + 98 | CTABLES /TABLE qn1 [ROWPCT] > qnsa1. + | ^~~~~~~~~~~~~~~~~~~~ + +ctables.sps:98.16-98.18: note: CTABLES: This outer categorical variable has a +summary. + 98 | CTABLES /TABLE qn1 [ROWPCT] > qnsa1. + | ^~~ + +ctables.sps:100.52-100.56: error: CTABLES: Failed to parse category +specification as format DATETIME: Day (123) must be between 1 and 31.. + 100 | CTABLES /TABLE qn1 /CATEGORIES VARIABLES=datetime ['123']. + | ^~~~~ +]]) +AT_CLEANUP + +AT_SETUP([CTABLES parsing - more negative]) +AT_CHECK([ln $top_srcdir/examples/nhtsa.sav . || cp $top_srcdir/examples/nhtsa.sav .]) +AT_DATA([ctables.sps], +[[GET 'nhtsa.sav'. +CTABLES /PCOMPUTE &pc=EXPR(SUBTOTAL) /TABLE qn1 /CATEGORIES VARIABLES=qn1 [&pc]. +CTABLES /PCOMPUTE &pc=EXPR(TOTAL) /TABLE qn1 /CATEGORIES VARIABLES=qn1 [&pc]. +CTABLES /PCOMPUTE &pc=EXPR(SUBTOTAL) /TABLE qn1 /CATEGORIES VARIABLES=qn1 [&pc, SUBTOTAL, SUBTOTAL]. + +STRING string(A8). +CTABLES /TABLE qn1 /CATEGORIES VARIABLES=qn1 ['string']. +CTABLES /TABLE string /CATEGORIES VARIABLES=string [1]. + +CTABLES /TABLE qn1 /CLABELS ROWLABELS=OPPOSITE /CATEGORIES VARIABLES=qn1 KEY=MEAN(qn1). + +CTABLES /TABLE qnd1 /CLABELS ROWLABELS=OPPOSITE. +CTABLES /TABLE qn1 + string /CLABELS ROWLABELS=OPPOSITE. +CTABLES /TABLE qn1 + qnsa1 /CLABELS ROWLABELS=OPPOSITE. +CTABLES /TABLE qn105ba + qn105bb /CLABELS ROWLABELS=OPPOSITE /CATEGORIES VARIABLES=qn105ba [1,2,3]. + +CTABLES /PCOMPUTE &x=EXPR(1**2**3). +CTABLES /PCOMPUTE &x=EXPR([**]). +CTABLES /PCOMPUTE &x=EXPR(**). + +CTABLES /TABLE. + +CTABLES /TABLE qn113 [COUNT] BY qn114 [COUNT] BY qn116 [COUNT]. + +CTABLES /TABLE qn1 /CATEGORIES VARIABLES=qn1 KEY=PTILE(qn1, 50). + +CTABLES /TABLE $mrset. + +CTABLES /TABLE qn113 /SIGTEST TYPE=CHISQUARE. +CTABLES /TABLE qn113 /COMPARETEST TYPE=PROP. + +CTABLES /TABLE qn113 [COUNT.UCL]. + +CTABLES /TABLE qn1 /CATEGORIES **. +]]) +AT_CHECK([pspp ctables.sps -O box=unicode -O width=80], [1], +[[ctables.sps:2.76-2.78: error: CTABLES: Computed category &pc references a +category not included in the category list. + 2 | CTABLES /PCOMPUTE &pc=EXPR(SUBTOTAL) /TABLE qn1 /CATEGORIES +VARIABLES=qn1 [&pc]. + | +^~~ + +ctables.sps:2.28-2.35: note: CTABLES: This is the missing category. + 2 | CTABLES /PCOMPUTE &pc=EXPR(SUBTOTAL) /TABLE qn1 /CATEGORIES +VARIABLES=qn1 [&pc]. + | ^~~~~~~~ + +ctables.sps:2.76-2.79: note: CTABLES: To fix the problem, add subtotals to the +list of categories here. + 2 | CTABLES /PCOMPUTE &pc=EXPR(SUBTOTAL) /TABLE qn1 /CATEGORIES +VARIABLES=qn1 [&pc]. + | +^~~~ + +ctables.sps:3.73-3.75: error: CTABLES: Computed category &pc references a +category not included in the category list. + 3 | CTABLES /PCOMPUTE &pc=EXPR(TOTAL) /TABLE qn1 /CATEGORIES VARIABLES=qn1 +[&pc]. + | +^~~ + +ctables.sps:3.28-3.32: note: CTABLES: This is the missing category. + 3 | CTABLES /PCOMPUTE &pc=EXPR(TOTAL) /TABLE qn1 /CATEGORIES VARIABLES=qn1 +[&pc]. + | ^~~~~ + +ctables.sps:3: note: CTABLES: To fix the problem, add TOTAL=YES to the +variable's CATEGORIES specification. + +ctables.sps:4.76-4.99: error: CTABLES: These categories include 2 instances of +SUBTOTAL or HSUBTOTAL, so references from computed categories must refer to +subtotals by position, e.g. SUBTOTAL[1]. + 4 | CTABLES /PCOMPUTE &pc=EXPR(SUBTOTAL) /TABLE qn1 /CATEGORIES +VARIABLES=qn1 [&pc, SUBTOTAL, SUBTOTAL]. + | +^~~~~~~~~~~~~~~~~~~~~~~~ + +ctables.sps:4.28-4.35: note: CTABLES: This is the reference that lacks a +position. + 4 | CTABLES /PCOMPUTE &pc=EXPR(SUBTOTAL) /TABLE qn1 /CATEGORIES +VARIABLES=qn1 [&pc, SUBTOTAL, SUBTOTAL]. + | ^~~~~~~~ + +ctables.sps:7.47-7.54: error: CTABLES: This category specification may be +applied only to string variables, but this subcommand tries to apply it to +numeric variable QN1. + 7 | CTABLES /TABLE qn1 /CATEGORIES VARIABLES=qn1 ['string']. + | ^~~~~~~~ + +ctables.sps:8.53: error: CTABLES: This category specification may be applied +only to numeric variables, but this subcommand tries to apply it to string +variable string. + 8 | CTABLES /TABLE string /CATEGORIES VARIABLES=string [1]. + | ^ + +ctables.sps:10.74-10.86: error: CTABLES: Syntax error at `KEY=MEAN(qn1)': Data- +dependent sorting is not implemented. + +ctables.sps:12: error: CTABLES: ROWLABELS=OPPOSITE requires the variables to be +moved to be categorical, but qnd1 is a scale variable. + +ctables.sps:13: error: CTABLES: ROWLABELS=OPPOSITE requires the variables to be +moved to have the same width, but QN1 has width 0 and string has width 8. + +ctables.sps:14: error: CTABLES: ROWLABELS=OPPOSITE requires the variables to be +moved to have the same value labels, but QN1 and QNSA1 have different value +labels. + +ctables.sps:15: error: CTABLES: ROWLABELS=OPPOSITE requires the variables to be +moved to have the same category specifications, but QN105BA and QN105BB have +different category specifications. + +ctables.sps:17.27-17.33: warning: CTABLES: The exponentiation operator (`**') is +left-associative: `a**b**c' equals `(a**b)**c', not `a**(b**c)'. To disable +this warning, insert parentheses. + 17 | CTABLES /PCOMPUTE &x=EXPR(1**2**3). + | ^~~~~~~ + +ctables.sps:17.35: error: CTABLES: Syntax error at end of command: expecting +`/'. + +ctables.sps:18.28-18.29: error: CTABLES: Syntax error at `**'. + +ctables.sps:19.27-19.28: error: CTABLES: Syntax error at `**'. + +ctables.sps:21.15: error: CTABLES: Syntax error at end of command: At least one +variable must be specified. + +ctables.sps:23: error: CTABLES: Summaries may appear only on one axis. + +ctables.sps:23.50-23.54: note: CTABLES: This variable on the layers axis has a +summary. + 23 | CTABLES /TABLE qn113 [COUNT] BY qn114 [COUNT] BY qn116 [COUNT]. + | ^~~~~ + +ctables.sps:23.16-23.20: note: CTABLES: This variable on the rows axis has a +summary. + 23 | CTABLES /TABLE qn113 [COUNT] BY qn114 [COUNT] BY qn116 [COUNT]. + | ^~~~~ + +ctables.sps:23.33-23.37: note: CTABLES: This variable on the columns axis has a +summary. + 23 | CTABLES /TABLE qn113 [COUNT] BY qn114 [COUNT] BY qn116 [COUNT]. + | ^~~~~ + +ctables.sps:23.33-23.37: note: CTABLES: This is a scale variable, so it always +has a summary even if the syntax does not explicitly specify one. + 23 | CTABLES /TABLE qn113 [COUNT] BY qn114 [COUNT] BY qn116 [COUNT]. + | ^~~~~ + +ctables.sps:25.46-25.63: error: CTABLES: Syntax error at `KEY=PTILE(qn1, 50)': +Data-dependent sorting is not implemented. + +ctables.sps:27.16-27.21: error: CTABLES: Syntax error at `$mrset': Multiple +response set support not implemented. + +ctables.sps:29.23-29.44: error: CTABLES: Syntax error at `SIGTEST +TYPE=CHISQUARE': Support for SIGTEST not yet implemented. + +ctables.sps:30.35-30.43: error: CTABLES: Syntax error at `TYPE=PROP': Support +for COMPARETEST not yet implemented. + +ctables.sps:32.23-32.31: error: CTABLES: Syntax error at `COUNT.UCL': Support +for LCL, UCL, and SE summary functions is not yet implemented. + +ctables.sps:34.32-34.33: error: CTABLES: Syntax error at `**': expecting +VARIABLES. +]]) +AT_CLEANUP + +AT_SETUP([CTABLES one categorical variable]) +AT_CHECK([ln $top_srcdir/examples/nhtsa.sav . || cp $top_srcdir/examples/nhtsa.sav .]) +AT_DATA([ctables.sps], +[[GET 'nhtsa.sav'. +CTABLES /TABLE qn1. +CTABLES /TABLE BY qn1. +CTABLES /TABLE BY BY qn1. +]]) +AT_CHECK([pspp ctables.sps -O box=unicode -O width=80], [0], [dnl + Custom Tables +╭────────────────────────────────────────────────────────────────────────┬─────╮ +│ │Count│ +├────────────────────────────────────────────────────────────────────────┼─────┤ +│ 1. How often do you usually drive a car or other Every day │ 4667│ +│motor vehicle? Several days a week │ 1274│ +│ Once a week or less │ 361│ +│ Only certain times a │ 130│ +│ year │ │ +│ Never │ 540│ +╰────────────────────────────────────────────────────────────────────────┴─────╯ + + Custom Tables +╭──────────────────────────────────────────────────────────────────────────────╮ +│ 1. How often do you usually drive a car or other motor vehicle? │ +├─────────┬──────────────────┬──────────────────┬────────────────────────┬─────┤ +│ │ Several days a │ Once a week or │ Only certain times a │ │ +│Every day│ week │ less │ year │Never│ +├─────────┼──────────────────┼──────────────────┼────────────────────────┼─────┤ +│ Count │ Count │ Count │ Count │Count│ +├─────────┼──────────────────┼──────────────────┼────────────────────────┼─────┤ +│ 4667│ 1274│ 361│ 130│ 540│ +╰─────────┴──────────────────┴──────────────────┴────────────────────────┴─────╯ + +Custom Tables +Every day +╭─────╮ +│Count│ +├─────┤ +│ 4667│ +╰─────╯ +]) +AT_CLEANUP + +AT_SETUP([CTABLES one string variable]) +AT_CHECK([ln $top_srcdir/examples/nhtsa.sav . || cp $top_srcdir/examples/nhtsa.sav .]) +AT_DATA([ctables.sps], +[[GET 'nhtsa.sav'. +STRING licensed(A8). +MISSING VALUES licensed('DontKnow', 'Refused'). +RECODE qnd7a(1='Yes')(2='No')(3='DontKnow')(4='Refused') INTO licensed. +CTABLES /TABLE licensed. +CTABLES /TABLE licensed [COUNT, TOTALS[COUNT, VALIDN]] /CATEGORIES VARIABLES=ALL TOTAL=YES MISSING=INCLUDE. +CTABLES /TABLE licensed /CATEGORIES VARIABLES=licensed ['Yes', 'No'] TOTAL=YES. +* Notice that the string matching is case-sensitive. +CTABLES /TABLE licensed /CATEGORIES VARIABLES=licensed ['Yes', 'no'] TOTAL=YES. +CTABLES /TABLE licensed /CATEGORIES VARIABLES=licensed ['No' THRU 'yes'] TOTAL=YES. +CTABLES + /PCOMPUTE ¬yes=EXPR(['No']+['DontKnow']+['Refused']) + /PPROPERTIES ¬yes LABEL='Not Yes' HIDESOURCECATS=YES + /TABLE licensed + /CATEGORIES VARIABLES=licensed ['Yes', ¬yes, 'No', 'DontKnow', 'Refused']. +CTABLES + /PCOMPUTE ¬yes=EXPR(['DontKnow' THRU 'No'] + ['Refused']) + /PPROPERTIES ¬yes LABEL='Not Yes' HIDESOURCECATS=YES + /TABLE licensed + /CATEGORIES VARIABLES=licensed ['Yes', ¬yes, 'DontKnow' THRU 'No', 'Refused']. +]]) +AT_CHECK([pspp ctables.sps -O box=unicode -O width=80], [0], [dnl + Custom Tables +╭────────────┬─────╮ +│ │Count│ +├────────────┼─────┤ +│licensed No │ 572│ +│ Yes│ 6379│ +╰────────────┴─────╯ + + Custom Tables +╭─────────────────┬─────┬───────╮ +│ │Count│Valid N│ +├─────────────────┼─────┼───────┤ +│licensed DontKnow│ 4│ │ +│ No │ 572│ │ +│ Refused │ 44│ │ +│ Yes │ 6379│ │ +│ Total │ 6999│ 6951│ +╰─────────────────┴─────┴───────╯ + + Custom Tables +╭──────────────┬─────╮ +│ │Count│ +├──────────────┼─────┤ +│licensed Yes │ 6379│ +│ No │ 572│ +│ Total│ 6951│ +╰──────────────┴─────╯ + + Custom Tables +╭──────────────┬─────╮ +│ │Count│ +├──────────────┼─────┤ +│licensed Yes │ 6379│ +│ no │ 0│ +│ Total│ 6379│ +╰──────────────┴─────╯ + + Custom Tables +╭────────────────┬─────╮ +│ │Count│ +├────────────────┼─────┤ +│licensed No │ 572│ +│ Refused│ 44│ +│ Yes │ 6379│ +│ Total │ 6995│ +╰────────────────┴─────╯ + + Custom Tables +╭────────────────┬─────╮ +│ │Count│ +├────────────────┼─────┤ +│licensed Yes │ 6379│ +│ Not Yes│ 620│ +╰────────────────┴─────╯ + + Custom Tables +╭────────────────┬─────╮ +│ │Count│ +├────────────────┼─────┤ +│licensed Yes │ 6379│ +│ Not Yes│ 620│ +╰────────────────┴─────╯ +]) +AT_CLEANUP + +AT_SETUP([CTABLES one scale variable]) +AT_CHECK([ln $top_srcdir/examples/nhtsa.sav . || cp $top_srcdir/examples/nhtsa.sav .]) +AT_DATA([ctables.sps], +[[GET 'nhtsa.sav'. +DESCRIPTIVES qnd1. +CTABLES /TABLE qnd1[COUNT, VALIDN, TOTALN, MEAN, STDDEV, MINIMUM, MAXIMUM]. +CTABLES /TABLE BY qnd1. +CTABLES /TABLE BY BY qnd1. +]]) +AT_CHECK([pspp ctables.sps -O box=unicode -O width=80], [0], [dnl + Descriptive Statistics +╭──────────────────────────┬────┬─────┬───────┬───────┬───────────╮ +│ │ N │ Mean│Std Dev│Minimum│ Maximum │ +├──────────────────────────┼────┼─────┼───────┼───────┼───────────┤ +│D1. AGE: What is your age?│6930│48.26│ 19.01│ 16│86 or older│ +│Valid N (listwise) │6999│ │ │ │ │ +│Missing N (listwise) │ 69│ │ │ │ │ +╰──────────────────────────┴────┴─────┴───────┴───────┴───────────╯ + + Custom Tables +╭──────────────────────┬─────┬───────┬───────┬────┬────────────┬───────┬───────╮ +│ │ │ │ │ │ Std │ │ │ +│ │Count│Valid N│Total N│Mean│ Deviation │Minimum│Maximum│ +├──────────────────────┼─────┼───────┼───────┼────┼────────────┼───────┼───────┤ +│D1. AGE: What is your │ 6999│ 6930│ 6999│ 48│ 19│ 16│ 86│ +│age? │ │ │ │ │ │ │ │ +╰──────────────────────┴─────┴───────┴───────┴────┴────────────┴───────┴───────╯ + + Custom Tables +╭──────────────────────────╮ +│D1. AGE: What is your age?│ +├──────────────────────────┤ +│ Mean │ +├──────────────────────────┤ +│ 48│ +╰──────────────────────────╯ + +Custom Tables +D1. AGE: What is your age? +╭────╮ +│Mean│ +├────┤ +│ 48│ +╰────╯ +]) +AT_CLEANUP + +AT_SETUP([CTABLES simple stacking]) +AT_KEYWORDS([stack stacked]) +AT_CHECK([ln $top_srcdir/examples/nhtsa.sav . || cp $top_srcdir/examples/nhtsa.sav .]) +AT_DATA([ctables.sps], +[[GET 'nhtsa.sav'. +CTABLES /TABLE qn105ba + qn105bb + qn105bc + qn105bd BY qns3a [COLPCT PCT8.0]. +]]) +AT_CHECK([pspp ctables.sps -O box=unicode -O width=80], [0], [dnl + Custom Tables +╭───────────────────────────────────────────────────────────────┬──────────────╮ +│ │ S3a. GENDER: │ +│ ├──────┬───────┤ +│ │ Male │ Female│ +│ ├──────┼───────┤ +│ │Column│ Column│ +│ │ % │ % │ +├───────────────────────────────────────────────────────────────┼──────┼───────┤ +│105b. How likely is it that drivers who have had Almost │ 10%│ 11%│ +│too much to drink to drive safely will A. Get certain │ │ │ +│stopped by the police? Very likely │ 21%│ 22%│ +│ Somewhat │ 38%│ 42%│ +│ likely │ │ │ +│ Somewhat │ 21%│ 18%│ +│ unlikely │ │ │ +│ Very │ 10%│ 8%│ +│ unlikely │ │ │ +├───────────────────────────────────────────────────────────────┼──────┼───────┤ +│105b. How likely is it that drivers who have had Almost │ 14%│ 18%│ +│too much to drink to drive safely will B. Have an certain │ │ │ +│accident? Very likely │ 36%│ 45%│ +│ Somewhat │ 39%│ 32%│ +│ likely │ │ │ +│ Somewhat │ 9%│ 4%│ +│ unlikely │ │ │ +│ Very │ 3%│ 2%│ +│ unlikely │ │ │ +├───────────────────────────────────────────────────────────────┼──────┼───────┤ +│105b. How likely is it that drivers who have had Almost │ 18%│ 16%│ +│too much to drink to drive safely will C. Be certain │ │ │ +│convicted for drunk driving? Very likely │ 32%│ 28%│ +│ Somewhat │ 27%│ 32%│ +│ likely │ │ │ +│ Somewhat │ 15%│ 15%│ +│ unlikely │ │ │ +│ Very │ 9%│ 9%│ +│ unlikely │ │ │ +├───────────────────────────────────────────────────────────────┼──────┼───────┤ +│105b. How likely is it that drivers who have had Almost │ 16%│ 16%│ +│too much to drink to drive safely will D. Be certain │ │ │ +│arrested for drunk driving? Very likely │ 26%│ 27%│ +│ Somewhat │ 32%│ 35%│ +│ likely │ │ │ +│ Somewhat │ 17%│ 15%│ +│ unlikely │ │ │ +│ Very │ 9%│ 7%│ +│ unlikely │ │ │ +╰───────────────────────────────────────────────────────────────┴──────┴───────╯ +]) +AT_CLEANUP + +AT_SETUP([CTABLES show or hide empty categories]) +AT_CHECK([ln $top_srcdir/examples/nhtsa.sav . || cp $top_srcdir/examples/nhtsa.sav .]) +AT_DATA([ctables.sps], +[[GET 'nhtsa.sav'. +IF (qn105ba = 2) qn105ba = 1. +IF (qns3a = 1) qns3a = 2. +CTABLES /TABLE qn105ba BY qns3a [COLPCT PCT8.0]. +CTABLES /TABLE qn105ba BY qns3a [COLPCT PCT8.0] + /CATEGORIES VAR=qn105ba EMPTY=EXCLUDE. +CTABLES /TABLE qn105ba BY qns3a [COLPCT PCT8.0] + /CATEGORIES VAR=qns3a EMPTY=EXCLUDE. +CTABLES /TABLE qn105ba BY qns3a [COLPCT PCT8.0] + /CATEGORIES VAR=ALL EMPTY=EXCLUDE. +]]) +AT_CHECK([pspp ctables.sps -O box=unicode -O width=80], [0], [dnl + Custom Tables +╭──────────────────────────────────────────────────────────────┬───────────────╮ +│ │ S3a. GENDER: │ +│ ├───────┬───────┤ +│ │ Male │ Female│ +│ ├───────┼───────┤ +│ │ Column│ Column│ +│ │ % │ % │ +├──────────────────────────────────────────────────────────────┼───────┼───────┤ +│105b. How likely is it that drivers who have had Almost │ .│ 32%│ +│too much to drink to drive safely will A. Get certain │ │ │ +│stopped by the police? Very likely│ .│ 0%│ +│ Somewhat │ .│ 40%│ +│ likely │ │ │ +│ Somewhat │ .│ 19%│ +│ unlikely │ │ │ +│ Very │ .│ 9%│ +│ unlikely │ │ │ +╰──────────────────────────────────────────────────────────────┴───────┴───────╯ + + Custom Tables +╭──────────────────────────────────────────────────────────────┬───────────────╮ +│ │ S3a. GENDER: │ +│ ├───────┬───────┤ +│ │ Male │ Female│ +│ ├───────┼───────┤ +│ │ Column│ Column│ +│ │ % │ % │ +├──────────────────────────────────────────────────────────────┼───────┼───────┤ +│105b. How likely is it that drivers who have had Almost │ .│ 32%│ +│too much to drink to drive safely will A. Get certain │ │ │ +│stopped by the police? Somewhat │ .│ 40%│ +│ likely │ │ │ +│ Somewhat │ .│ 19%│ +│ unlikely │ │ │ +│ Very │ .│ 9%│ +│ unlikely │ │ │ +╰──────────────────────────────────────────────────────────────┴───────┴───────╯ + + Custom Tables +╭────────────────────────────────────────────────────────────────────┬─────────╮ +│ │ S3a. │ +│ │ GENDER: │ +│ ├─────────┤ +│ │ Female │ +│ ├─────────┤ +│ │ Column %│ +├────────────────────────────────────────────────────────────────────┼─────────┤ +│105b. How likely is it that drivers who have had too Almost │ 32%│ +│much to drink to drive safely will A. Get stopped by certain │ │ +│the police? Very likely │ 0%│ +│ Somewhat │ 40%│ +│ likely │ │ +│ Somewhat │ 19%│ +│ unlikely │ │ +│ Very │ 9%│ +│ unlikely │ │ +╰────────────────────────────────────────────────────────────────────┴─────────╯ + + Custom Tables +╭────────────────────────────────────────────────────────────────────┬─────────╮ +│ │ S3a. │ +│ │ GENDER: │ +│ ├─────────┤ +│ │ Female │ +│ ├─────────┤ +│ │ Column %│ +├────────────────────────────────────────────────────────────────────┼─────────┤ +│105b. How likely is it that drivers who have had too Almost │ 32%│ +│much to drink to drive safely will A. Get stopped by certain │ │ +│the police? Somewhat │ 40%│ +│ likely │ │ +│ Somewhat │ 19%│ +│ unlikely │ │ +│ Very │ 9%│ +│ unlikely │ │ +╰────────────────────────────────────────────────────────────────────┴─────────╯ +]) +AT_CLEANUP + +AT_SETUP([CTABLES sorting categories]) +AT_CHECK([ln $top_srcdir/examples/nhtsa.sav . || cp $top_srcdir/examples/nhtsa.sav .]) +AT_DATA([ctables.sps], +[[GET 'nhtsa.sav'. +IF (QND5A=6) QND5A=-1. +IF (QND5A=5) QND5A=-2. +CTABLES /TABLE qnd5a /CATEGORIES VARIABLES=qnd5a KEY=VALUE ORDER=A + /TABLE qnd5a /CATEGORIES VARIABLES=qnd5a KEY=VALUE ORDER=D + /TABLE qnd5a /CATEGORIES VARIABLES=qnd5a KEY=LABEL ORDER=A + /TABLE qnd5a /CATEGORIES VARIABLES=qnd5a KEY=LABEL ORDER=D. +]]) +AT_CHECK([pspp ctables.sps -O box=unicode -O width=80], [0], [dnl + Custom Tables +╭────────────────────────────────────────────────────────────────────────┬─────╮ +│ │Count│ +├────────────────────────────────────────────────────────────────────────┼─────┤ +│D5a. What would you say is your primary ethnic -2.00 │ 52│ +│background? -1.00 │ 78│ +│ Cuban │ 20│ +│ Mexican │ 311│ +│ Spanish │ 48│ +│ South American │ 34│ +│ Central American │ 0│ +│ Puerto Rican, OR │ 0│ +│ Something else │ 68│ +│ Multiple - cannot choose│ 7│ +│ one │ │ +╰────────────────────────────────────────────────────────────────────────┴─────╯ + + Custom Tables +╭────────────────────────────────────────────────────────────────────────┬─────╮ +│ │Count│ +├────────────────────────────────────────────────────────────────────────┼─────┤ +│D5a. What would you say is your primary ethnic Multiple - cannot choose│ 7│ +│background? one │ │ +│ Something else │ 68│ +│ Puerto Rican, OR │ 0│ +│ Central American │ 0│ +│ South American │ 34│ +│ Spanish │ 48│ +│ Mexican │ 311│ +│ Cuban │ 20│ +│ -1.00 │ 78│ +│ -2.00 │ 52│ +╰────────────────────────────────────────────────────────────────────────┴─────╯ + + Custom Tables +╭────────────────────────────────────────────────────────────────────────┬─────╮ +│ │Count│ +├────────────────────────────────────────────────────────────────────────┼─────┤ +│D5a. What would you say is your primary ethnic Central American │ 0│ +│background? Cuban │ 20│ +│ Mexican │ 311│ +│ Multiple - cannot choose│ 7│ +│ one │ │ +│ Puerto Rican, OR │ 0│ +│ Something else │ 68│ +│ South American │ 34│ +│ Spanish │ 48│ +│ -2.00 │ 52│ +│ -1.00 │ 78│ +╰────────────────────────────────────────────────────────────────────────┴─────╯ + + Custom Tables +╭────────────────────────────────────────────────────────────────────────┬─────╮ +│ │Count│ +├────────────────────────────────────────────────────────────────────────┼─────┤ +│D5a. What would you say is your primary ethnic Spanish │ 48│ +│background? South American │ 34│ +│ Something else │ 68│ +│ Puerto Rican, OR │ 0│ +│ Multiple - cannot choose│ 7│ +│ one │ │ +│ Mexican │ 311│ +│ Cuban │ 20│ +│ Central American │ 0│ +│ -1.00 │ 78│ +│ -2.00 │ 52│ +╰────────────────────────────────────────────────────────────────────────┴─────╯ +]) +AT_CLEANUP + +AT_SETUP([CTABLES simple nesting]) +AT_KEYWORDS([nest nested]) +AT_CHECK([ln $top_srcdir/examples/nhtsa.sav . || cp $top_srcdir/examples/nhtsa.sav .]) +AT_DATA([ctables.sps], +[[GET 'nhtsa.sav'. +CTABLES /TABLE (qn105ba + qn105bb + qn105bc + qn105bd) > qns3a [COUNT, TABLEPCT PCT8.0] + /CATEGORIES VARIABLES=qns3a TOTAL=YES. +CTABLES /TABLE qns3a > (qn105ba + qn105bb + qn105bc + qn105bd) [TABLEPCT PCT8.0] + /CATEGORIES VARIABLES=qns3a TOTAL=YES + /CLABELS ROW=OPPOSITE. +]]) +AT_CHECK([pspp ctables.sps -O box=unicode -O width=80], [0], [dnl + Custom Tables +╭─────────────────────────────────────────────────────────────────┬─────┬──────╮ +│ │ │ Table│ +│ │Count│ % │ +├─────────────────────────────────────────────────────────────────┼─────┼──────┤ +│105b. How likely is it that drivers Almost S3a. Male │ 297│ 4%│ +│who have had too much to drink to certain GENDER: Female│ 403│ 6%│ +│drive safely will A. Get stopped by Total │ 700│ 10%│ +│the police? ╶──────────────────────────┼─────┼──────┤ +│ Very S3a. Male │ 660│ 10%│ +│ likely GENDER: Female│ 842│ 12%│ +│ Total │ 1502│ 22%│ +│ ╶──────────────────────────┼─────┼──────┤ +│ Somewhat S3a. Male │ 1174│ 17%│ +│ likely GENDER: Female│ 1589│ 23%│ +│ Total │ 2763│ 40%│ +│ ╶──────────────────────────┼─────┼──────┤ +│ Somewhat S3a. Male │ 640│ 9%│ +│ unlikely GENDER: Female│ 667│ 10%│ +│ Total │ 1307│ 19%│ +│ ╶──────────────────────────┼─────┼──────┤ +│ Very S3a. Male │ 311│ 5%│ +│ unlikely GENDER: Female│ 298│ 4%│ +│ Total │ 609│ 9%│ +├─────────────────────────────────────────────────────────────────┼─────┼──────┤ +│105b. How likely is it that drivers Almost S3a. Male │ 429│ 6%│ +│who have had too much to drink to certain GENDER: Female│ 671│ 10%│ +│drive safely will B. Have an accident? Total │ 1100│ 16%│ +│ ╶──────────────────────────┼─────┼──────┤ +│ Very S3a. Male │ 1104│ 16%│ +│ likely GENDER: Female│ 1715│ 25%│ +│ Total │ 2819│ 41%│ +│ ╶──────────────────────────┼─────┼──────┤ +│ Somewhat S3a. Male │ 1203│ 17%│ +│ likely GENDER: Female│ 1214│ 18%│ +│ Total │ 2417│ 35%│ +│ ╶──────────────────────────┼─────┼──────┤ +│ Somewhat S3a. Male │ 262│ 4%│ +│ unlikely GENDER: Female│ 168│ 2%│ +│ Total │ 430│ 6%│ +│ ╶──────────────────────────┼─────┼──────┤ +│ Very S3a. Male │ 81│ 1%│ +│ unlikely GENDER: Female│ 59│ 1%│ +│ Total │ 140│ 2%│ +├─────────────────────────────────────────────────────────────────┼─────┼──────┤ +│105b. How likely is it that drivers Almost S3a. Male │ 539│ 8%│ +│who have had too much to drink to certain GENDER: Female│ 610│ 9%│ +│drive safely will C. Be convicted for Total │ 1149│ 17%│ +│drunk driving? ╶──────────────────────────┼─────┼──────┤ +│ Very S3a. Male │ 988│ 14%│ +│ likely GENDER: Female│ 1049│ 15%│ +│ Total │ 2037│ 30%│ +│ ╶──────────────────────────┼─────┼──────┤ +│ Somewhat S3a. Male │ 822│ 12%│ +│ likely GENDER: Female│ 1210│ 18%│ +│ Total │ 2032│ 30%│ +│ ╶──────────────────────────┼─────┼──────┤ +│ Somewhat S3a. Male │ 446│ 7%│ +│ unlikely GENDER: Female│ 548│ 8%│ +│ Total │ 994│ 15%│ +│ ╶──────────────────────────┼─────┼──────┤ +│ Very S3a. Male │ 268│ 4%│ +│ unlikely GENDER: Female│ 354│ 5%│ +│ Total │ 622│ 9%│ +├─────────────────────────────────────────────────────────────────┼─────┼──────┤ +│105b. How likely is it that drivers Almost S3a. Male │ 498│ 7%│ +│who have had too much to drink to certain GENDER: Female│ 603│ 9%│ +│drive safely will D. Be arrested for Total │ 1101│ 16%│ +│drunk driving? ╶──────────────────────────┼─────┼──────┤ +│ Very S3a. Male │ 805│ 12%│ +│ likely GENDER: Female│ 1029│ 15%│ +│ Total │ 1834│ 27%│ +│ ╶──────────────────────────┼─────┼──────┤ +│ Somewhat S3a. Male │ 975│ 14%│ +│ likely GENDER: Female│ 1332│ 19%│ +│ Total │ 2307│ 34%│ +│ ╶──────────────────────────┼─────┼──────┤ +│ Somewhat S3a. Male │ 535│ 8%│ +│ unlikely GENDER: Female│ 560│ 8%│ +│ Total │ 1095│ 16%│ +│ ╶──────────────────────────┼─────┼──────┤ +│ Very S3a. Male │ 270│ 4%│ +│ unlikely GENDER: Female│ 279│ 4%│ +│ Total │ 549│ 8%│ +╰─────────────────────────────────────────────────────────────────┴─────┴──────╯ + + Custom Tables +╭─────────────────────────────────┬────────┬──────┬─────────┬─────────┬────────╮ +│ │ Almost │ Very │ Somewhat│ Somewhat│ Very │ +│ │ certain│likely│ likely │ unlikely│unlikely│ +│ ├────────┼──────┼─────────┼─────────┼────────┤ +│ │ │ Table│ │ │ │ +│ │ Table %│ % │ Table % │ Table % │ Table %│ +├─────────────────────────────────┼────────┼──────┼─────────┼─────────┼────────┤ +│S3a. Male 105b. How likely │ 4%│ 10%│ 17%│ 9%│ 5%│ +│GENDER: is it that drivers│ │ │ │ │ │ +│ who have had too │ │ │ │ │ │ +│ much to drink to │ │ │ │ │ │ +│ drive safely will │ │ │ │ │ │ +│ A. Get stopped by │ │ │ │ │ │ +│ the police? │ │ │ │ │ │ +│ ╶─────────────────────────┼────────┼──────┼─────────┼─────────┼────────┤ +│ Female 105b. How likely │ 6%│ 12%│ 23%│ 10%│ 4%│ +│ is it that drivers│ │ │ │ │ │ +│ who have had too │ │ │ │ │ │ +│ much to drink to │ │ │ │ │ │ +│ drive safely will │ │ │ │ │ │ +│ A. Get stopped by │ │ │ │ │ │ +│ the police? │ │ │ │ │ │ +│ ╶─────────────────────────┼────────┼──────┼─────────┼─────────┼────────┤ +│ Total 105b. How likely │ 10%│ 22%│ 40%│ 19%│ 9%│ +│ is it that drivers│ │ │ │ │ │ +│ who have had too │ │ │ │ │ │ +│ much to drink to │ │ │ │ │ │ +│ drive safely will │ │ │ │ │ │ +│ A. Get stopped by │ │ │ │ │ │ +│ the police? │ │ │ │ │ │ +├─────────────────────────────────┼────────┼──────┼─────────┼─────────┼────────┤ +│S3a. Male 105b. How likely │ 6%│ 16%│ 17%│ 4%│ 1%│ +│GENDER: is it that drivers│ │ │ │ │ │ +│ who have had too │ │ │ │ │ │ +│ much to drink to │ │ │ │ │ │ +│ drive safely will │ │ │ │ │ │ +│ B. Have an │ │ │ │ │ │ +│ accident? │ │ │ │ │ │ +│ ╶─────────────────────────┼────────┼──────┼─────────┼─────────┼────────┤ +│ Female 105b. How likely │ 10%│ 25%│ 18%│ 2%│ 1%│ +│ is it that drivers│ │ │ │ │ │ +│ who have had too │ │ │ │ │ │ +│ much to drink to │ │ │ │ │ │ +│ drive safely will │ │ │ │ │ │ +│ B. Have an │ │ │ │ │ │ +│ accident? │ │ │ │ │ │ +│ ╶─────────────────────────┼────────┼──────┼─────────┼─────────┼────────┤ +│ Total 105b. How likely │ 16%│ 41%│ 35%│ 6%│ 2%│ +│ is it that drivers│ │ │ │ │ │ +│ who have had too │ │ │ │ │ │ +│ much to drink to │ │ │ │ │ │ +│ drive safely will │ │ │ │ │ │ +│ B. Have an │ │ │ │ │ │ +│ accident? │ │ │ │ │ │ +├─────────────────────────────────┼────────┼──────┼─────────┼─────────┼────────┤ +│S3a. Male 105b. How likely │ 8%│ 14%│ 12%│ 7%│ 4%│ +│GENDER: is it that drivers│ │ │ │ │ │ +│ who have had too │ │ │ │ │ │ +│ much to drink to │ │ │ │ │ │ +│ drive safely will │ │ │ │ │ │ +│ C. Be convicted │ │ │ │ │ │ +│ for drunk driving?│ │ │ │ │ │ +│ ╶─────────────────────────┼────────┼──────┼─────────┼─────────┼────────┤ +│ Female 105b. How likely │ 9%│ 15%│ 18%│ 8%│ 5%│ +│ is it that drivers│ │ │ │ │ │ +│ who have had too │ │ │ │ │ │ +│ much to drink to │ │ │ │ │ │ +│ drive safely will │ │ │ │ │ │ +│ C. Be convicted │ │ │ │ │ │ +│ for drunk driving?│ │ │ │ │ │ +│ ╶─────────────────────────┼────────┼──────┼─────────┼─────────┼────────┤ +│ Total 105b. How likely │ 17%│ 30%│ 30%│ 15%│ 9%│ +│ is it that drivers│ │ │ │ │ │ +│ who have had too │ │ │ │ │ │ +│ much to drink to │ │ │ │ │ │ +│ drive safely will │ │ │ │ │ │ +│ C. Be convicted │ │ │ │ │ │ +│ for drunk driving?│ │ │ │ │ │ +├─────────────────────────────────┼────────┼──────┼─────────┼─────────┼────────┤ +│S3a. Male 105b. How likely │ 7%│ 12%│ 14%│ 8%│ 4%│ +│GENDER: is it that drivers│ │ │ │ │ │ +│ who have had too │ │ │ │ │ │ +│ much to drink to │ │ │ │ │ │ +│ drive safely will │ │ │ │ │ │ +│ D. Be arrested for│ │ │ │ │ │ +│ drunk driving? │ │ │ │ │ │ +│ ╶─────────────────────────┼────────┼──────┼─────────┼─────────┼────────┤ +│ Female 105b. How likely │ 9%│ 15%│ 19%│ 8%│ 4%│ +│ is it that drivers│ │ │ │ │ │ +│ who have had too │ │ │ │ │ │ +│ much to drink to │ │ │ │ │ │ +│ drive safely will │ │ │ │ │ │ +│ D. Be arrested for│ │ │ │ │ │ +│ drunk driving? │ │ │ │ │ │ +│ ╶─────────────────────────┼────────┼──────┼─────────┼─────────┼────────┤ +│ Total 105b. How likely │ 16%│ 27%│ 34%│ 16%│ 8%│ +│ is it that drivers│ │ │ │ │ │ +│ who have had too │ │ │ │ │ │ +│ much to drink to │ │ │ │ │ │ +│ drive safely will │ │ │ │ │ │ +│ D. Be arrested for│ │ │ │ │ │ +│ drunk driving? │ │ │ │ │ │ +╰─────────────────────────────────┴────────┴──────┴─────────┴─────────┴────────╯ +]) +AT_CLEANUP + +AT_SETUP([CTABLES nesting and scale variables]) +AT_KEYWORDS([nest nested]) +AT_CHECK([ln $top_srcdir/examples/nhtsa.sav . || cp $top_srcdir/examples/nhtsa.sav .]) +AT_DATA([ctables.sps], +[[GET 'nhtsa.sav'. +CTABLES /TABLE=qnd1 > qn1 BY qns3a. +CTABLES /TABLE=qnd1 [MINIMUM, MAXIMUM, MEAN] > qns3a > (qn26 + qn27). +CTABLES /TABLE=qnsa1 > qn105ba [COLPCT] BY qns1 + /CATEGORIES VAR=qnsa1 EMPTY=EXCLUDE. +CTABLES /TABLE=AgeGroup > qn20 [MEAN F8.1, STDDEV F8.1]. +]]) +AT_CHECK([pspp ctables.sps -O box=unicode -O width=80], [0], [dnl + Custom Tables +╭─────────────────────────────────────────────────────────────────┬────────────╮ +│ │S3a. GENDER:│ +│ ├─────┬──────┤ +│ │ Male│Female│ +│ ├─────┼──────┤ +│ │ Mean│ Mean │ +├─────────────────────────────────────────────────────────────────┼─────┼──────┤ +│D1. AGE: What 1. How often do you usually drive Every day │ 46│ 46│ +│is your age? a car or other motor vehicle? Several days a │ 51│ 59│ +│ week │ │ │ +│ Once a week or │ 44│ 54│ +│ less │ │ │ +│ Only certain │ 34│ 41│ +│ times a year │ │ │ +│ Never │ 39│ 55│ +╰─────────────────────────────────────────────────────────────────┴─────┴──────╯ + + Custom Tables +╭─────────────────────────────────────────────────────────┬───────┬───────┬────╮ +│ │Minimum│Maximum│Mean│ +├─────────────────────────────────────────────────────────┼───────┼───────┼────┤ +│D1. AGE: S3a. Male 26. During the last 12 Yes│ 16│ 86│ 42│ +│What is GENDER: months, has there been a │ │ │ │ +│your time when you felt you │ │ │ │ +│age? should cut down on your No │ 16│ 86│ 46│ +│ drinking? │ │ │ │ +│ ╶───────────────────────────────────────┼───────┼───────┼────┤ +│ Female 26. During the last 12 Yes│ 16│ 86│ 43│ +│ months, has there been a │ │ │ │ +│ time when you felt you │ │ │ │ +│ should cut down on your No │ 16│ 86│ 48│ +│ drinking? │ │ │ │ +├─────────────────────────────────────────────────────────┼───────┼───────┼────┤ +│D1. AGE: S3a. Male 27. During the last 12 Yes│ 16│ 86│ 38│ +│What is GENDER: months, has there been a │ │ │ │ +│your time when people criticized No │ 16│ 86│ 46│ +│age? your drinking? │ │ │ │ +│ ╶───────────────────────────────────────┼───────┼───────┼────┤ +│ Female 27. During the last 12 Yes│ 17│ 69│ 37│ +│ months, has there been a │ │ │ │ +│ time when people criticized No │ 16│ 86│ 48│ +│ your drinking? │ │ │ │ +╰─────────────────────────────────────────────────────────┴───────┴───────┴────╯ + + Custom Tables +╭─────────────────────────────┬────────────────────────────────────────────────╮ +│ │S1. Including yourself, how many members of this│ +│ │ household are age 16 or older? │ +│ ├──────┬──────┬──────┬──────┬──────┬──────┬──────┤ +│ │ │ │ │ │ │ │ 6 or │ +│ │ None │ 1 │ 2 │ 3 │ 4 │ 5 │ more │ +│ ├──────┼──────┼──────┼──────┼──────┼──────┼──────┤ +│ │Column│Column│Column│Column│Column│Column│Column│ +│ │ % │ % │ % │ % │ % │ % │ % │ +├─────────────────────────────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┤ +│Sa1. RDD 105b. Almost │ .│ 9.5%│ 8.2%│ 12.4%│ 9.9%│ 20.0%│ 23.8%│ +│SAMPLE How certain │ │ │ │ │ │ │ │ +│SOURCE: likely │ │ │ │ │ │ │ │ +│ is it Very │ .│ 24.9%│ 18.5%│ 24.0%│ 26.6%│ 25.5%│ 33.3%│ +│ that likely │ │ │ │ │ │ │ │ +│ drivers │ │ │ │ │ │ │ │ +│ who have │ │ │ │ │ │ │ │ +│ had too Somewhat│ .│ 38.3%│ 41.9%│ 38.6%│ 37.5%│ 36.4%│ 23.8%│ +│ much to likely │ │ │ │ │ │ │ │ +│ drink to │ │ │ │ │ │ │ │ +│ drive │ │ │ │ │ │ │ │ +│ safely Somewhat│ .│ 18.1%│ 21.7%│ 16.8%│ 16.7%│ 10.9%│ 9.5%│ +│ will A. unlikely│ │ │ │ │ │ │ │ +│ Get │ │ │ │ │ │ │ │ +│ stopped Very │ .│ 9.2%│ 9.7%│ 8.2%│ 9.4%│ 7.3%│ 9.5%│ +│ by the unlikely│ │ │ │ │ │ │ │ +│ police? │ │ │ │ │ │ │ │ +╰─────────────────────────────┴──────┴──────┴──────┴──────┴──────┴──────┴──────╯ + + Custom Tables +╭──────────────────────────────────────────────────────────────┬────┬──────────╮ +│ │ │ Std │ +│ │Mean│ Deviation│ +├──────────────────────────────────────────────────────────────┼────┼──────────┤ +│Age 16 to 25 20. On how many of the thirty days in this │ 5.2│ 6.0│ +│group typical month did you have one or more │ │ │ +│ alcoholic beverages to drink? │ │ │ +│ ╶───────────────────────────────────────────────────────┼────┼──────────┤ +│ 26 to 35 20. On how many of the thirty days in this │ 4.7│ 5.9│ +│ typical month did you have one or more │ │ │ +│ alcoholic beverages to drink? │ │ │ +│ ╶───────────────────────────────────────────────────────┼────┼──────────┤ +│ 36 to 45 20. On how many of the thirty days in this │ 5.5│ 6.8│ +│ typical month did you have one or more │ │ │ +│ alcoholic beverages to drink? │ │ │ +│ ╶───────────────────────────────────────────────────────┼────┼──────────┤ +│ 46 to 55 20. On how many of the thirty days in this │ 5.8│ 7.7│ +│ typical month did you have one or more │ │ │ +│ alcoholic beverages to drink? │ │ │ +│ ╶───────────────────────────────────────────────────────┼────┼──────────┤ +│ 56 to 65 20. On how many of the thirty days in this │ 6.3│ 8.2│ +│ typical month did you have one or more │ │ │ +│ alcoholic beverages to drink? │ │ │ +│ ╶───────────────────────────────────────────────────────┼────┼──────────┤ +│ 66 or 20. On how many of the thirty days in this │ 7.1│ 9.2│ +│ older typical month did you have one or more │ │ │ +│ alcoholic beverages to drink? │ │ │ +╰──────────────────────────────────────────────────────────────┴────┴──────────╯ +]) +AT_CLEANUP + + +AT_SETUP([CTABLES SLABELS]) +AT_CHECK([ln $top_srcdir/examples/nhtsa.sav . || cp $top_srcdir/examples/nhtsa.sav .]) +AT_DATA([ctables.sps], +[[GET 'nhtsa.sav'. +CTABLES /TABLE qn1 [COUNT COLPCT]. +CTABLES /TABLE qn1 [COUNT COLPCT] + /SLABELS POSITION=ROW. +CTABLES /TABLE qn1 [COUNT COLPCT] + /SLABELS POSITION=ROW VISIBLE=NO. +]]) +AT_CHECK([pspp ctables.sps -O box=unicode -O width=80], [0], [dnl + Custom Tables +╭────────────────────────────────────────────────────────────────┬─────┬───────╮ +│ │ │ Column│ +│ │Count│ % │ +├────────────────────────────────────────────────────────────────┼─────┼───────┤ +│ 1. How often do you usually drive a car or Every day │ 4667│ 66.9%│ +│other motor vehicle? Several days a week│ 1274│ 18.3%│ +│ Once a week or less│ 361│ 5.2%│ +│ Only certain times │ 130│ 1.9%│ +│ a year │ │ │ +│ Never │ 540│ 7.7%│ +╰────────────────────────────────────────────────────────────────┴─────┴───────╯ + + Custom Tables +╭────────────────────────────────────────────────────────────────────────┬─────╮ +│ 1. How often do you usually drive a car or Every day Count │ 4667│ +│other motor vehicle? Column │66.9%│ +│ % │ │ +│ ╶───────────────────────────┼─────┤ +│ Several days a week Count │ 1274│ +│ Column │18.3%│ +│ % │ │ +│ ╶───────────────────────────┼─────┤ +│ Once a week or less Count │ 361│ +│ Column │ 5.2%│ +│ % │ │ +│ ╶───────────────────────────┼─────┤ +│ Only certain times Count │ 130│ +│ a year Column │ 1.9%│ +│ % │ │ +│ ╶───────────────────────────┼─────┤ +│ Never Count │ 540│ +│ Column │ 7.7%│ +│ % │ │ +╰────────────────────────────────────────────────────────────────────────┴─────╯ + + Custom Tables +╭────────────────────────────────────────────────────────────────────────┬─────╮ +│ 1. How often do you usually drive a car or other Every day │ 4667│ +│motor vehicle? │66.9%│ +│ Several days a week │ 1274│ +│ │18.3%│ +│ Once a week or less │ 361│ +│ │ 5.2%│ +│ Only certain times a │ 130│ +│ year │ 1.9%│ +│ Never │ 540│ +│ │ 7.7%│ +╰────────────────────────────────────────────────────────────────────────┴─────╯ +]) +AT_CLEANUP + +AT_SETUP([CTABLES simple totals]) +AT_CHECK([ln $top_srcdir/examples/nhtsa.sav . || cp $top_srcdir/examples/nhtsa.sav .]) +AT_DATA([ctables.sps], +[[GET 'nhtsa.sav'. +CTABLES /TABLE=qn17 + /CATEGORIES VARIABLES=qn17 TOTAL=YES LABEL='Number responding'. +DESCRIPTIVES qn18/STATISTICS=MEAN. +CTABLES /TABLE=region > qn18 [MEAN, COUNT, VALIDN, TOTALN] + /CATEGORIES VARIABLES=region TOTAL=YES LABEL='All regions'. +]]) +AT_CHECK([pspp ctables.sps -O box=unicode -O width=80], [0], [dnl + Custom Tables +╭────────────────────────────────────────────────────────────────────────┬─────╮ +│ │Count│ +├────────────────────────────────────────────────────────────────────────┼─────┤ +│17. When you drink alcoholic beverages, which ONE of OR, something else│ 2│ +│the following beverages do you drink MOST OFTEN? Beer │ 1073│ +│ Light beer │ 620│ +│ Wine │ 1418│ +│ Wine coolers │ 137│ +│ Hard liquor or │ 888│ +│ mixed drinks │ │ +│ Flavored malt │ 83│ +│ drinks │ │ +│ Number responding │ 4221│ +╰────────────────────────────────────────────────────────────────────────┴─────╯ + + Descriptive Statistics +╭────────────────────────────────────────────────────────────────────┬────┬────╮ +│ │ N │Mean│ +├────────────────────────────────────────────────────────────────────┼────┼────┤ +│18. When you drink ANSWERFROM(QN17R1), about how many │4218│4.62│ +│ANSWERFROM(QN17R2) do you usually drink per sitting? │ │ │ +│Valid N (listwise) │6999│ │ +│Missing N (listwise) │2781│ │ +╰────────────────────────────────────────────────────────────────────┴────┴────╯ + + Custom Tables +╭──────────────────────────────────────────────────────┬────┬─────┬──────┬─────╮ +│ │ │ │ Valid│Total│ +│ │Mean│Count│ N │ N │ +├──────────────────────────────────────────────────────┼────┼─────┼──────┼─────┤ +│Region NE 18. When you drink ANSWERFROM(QN17R1),│4.36│ 1409│ 949│ 1409│ +│ about how many ANSWERFROM(QN17R2) do │ │ │ │ │ +│ you usually drink per sitting? │ │ │ │ │ +│ ╶───────────────────────────────────────────────┼────┼─────┼──────┼─────┤ +│ MW 18. When you drink ANSWERFROM(QN17R1),│4.67│ 1654│ 1027│ 1654│ +│ about how many ANSWERFROM(QN17R2) do │ │ │ │ │ +│ you usually drink per sitting? │ │ │ │ │ +│ ╶───────────────────────────────────────────────┼────┼─────┼──────┼─────┤ +│ S 18. When you drink ANSWERFROM(QN17R1),│4.71│ 2390│ 1287│ 2390│ +│ about how many ANSWERFROM(QN17R2) do │ │ │ │ │ +│ you usually drink per sitting? │ │ │ │ │ +│ ╶───────────────────────────────────────────────┼────┼─────┼──────┼─────┤ +│ W 18. When you drink ANSWERFROM(QN17R1),│4.69│ 1546│ 955│ 1546│ +│ about how many ANSWERFROM(QN17R2) do │ │ │ │ │ +│ you usually drink per sitting? │ │ │ │ │ +│ ╶───────────────────────────────────────────────┼────┼─────┼──────┼─────┤ +│ All 18. When you drink ANSWERFROM(QN17R1),│4.62│ 6999│ 4218│ 6999│ +│ regions about how many ANSWERFROM(QN17R2) do │ │ │ │ │ +│ you usually drink per sitting? │ │ │ │ │ +╰──────────────────────────────────────────────────────┴────┴─────┴──────┴─────╯ +]) +AT_CLEANUP + +AT_SETUP([CTABLES subtotals]) +AT_CHECK([ln $top_srcdir/examples/nhtsa.sav . || cp $top_srcdir/examples/nhtsa.sav .]) +AT_DATA([ctables.sps], +[[GET 'nhtsa.sav'. +CTABLES /TABLE=qn105ba BY qns1 + /CATEGORIES VARIABLES=qns1 [1, 2, SUBTOTAL, 3, 4, 5, SUBTOTAL]. +CTABLES /TABLE=qn105ba [COLPCT] BY qns1 + /CATEGORIES VARIABLES=qn105ba [1, 2, 3, SUBTOTAL, 4, 5, SUBTOTAL]. +CTABLES /TABLE=qn105ba BY qns1 + /CATEGORIES VARIABLES=qn105ba [1, 2, 3, SUBTOTAL, 4, 5, SUBTOTAL] + /CATEGORIES VARIABLES=qns1 [1, 2, SUBTOTAL, 3, 4, 5, SUBTOTAL]. +]]) +AT_CHECK([pspp ctables.sps -O box=unicode -O width=120], [0], [dnl + Custom Tables +╭─────────────────────────────────────────────────────────┬────────────────────────────────────────────────────────────╮ +│ │ S1. Including yourself, how many members of this household │ +│ │ are age 16 or older? │ +│ ├───────┬───────┬─────────┬───────┬────────┬──────┬──────────┤ +│ │ 1 │ 2 │ Subtotal│ 3 │ 4 │ 5 │ Subtotal │ +│ ├───────┼───────┼─────────┼───────┼────────┼──────┼──────────┤ +│ │ Count │ Count │ Count │ Count │ Count │ Count│ Count │ +├─────────────────────────────────────────────────────────┼───────┼───────┼─────────┼───────┼────────┼──────┼──────────┤ +│105b. How likely is it that drivers who have Almost │ 147│ 246│ 393│ 62│ 19│ 11│ 92│ +│had too much to drink to drive safely will A. certain │ │ │ │ │ │ │ │ +│Get stopped by the police? Very likely│ 384│ 552│ 936│ 120│ 51│ 14│ 185│ +│ Somewhat │ 590│ 1249│ 1839│ 193│ 72│ 20│ 285│ +│ likely │ │ │ │ │ │ │ │ +│ Somewhat │ 278│ 647│ 925│ 84│ 32│ 6│ 122│ +│ unlikely │ │ │ │ │ │ │ │ +│ Very │ 141│ 290│ 431│ 41│ 18│ 4│ 63│ +│ unlikely │ │ │ │ │ │ │ │ +╰─────────────────────────────────────────────────────────┴───────┴───────┴─────────┴───────┴────────┴──────┴──────────╯ + + Custom Tables +╭────────────────────────────────────────────────────────┬─────────────────────────────────────────────────────────────╮ +│ │ S1. Including yourself, how many members of this household │ +│ │ are age 16 or older? │ +│ ├────────┬────────┬────────┬────────┬───────┬────────┬────────┤ +│ │ │ │ │ │ │ │ 6 or │ +│ │ None │ 1 │ 2 │ 3 │ 4 │ 5 │ more │ +│ ├────────┼────────┼────────┼────────┼───────┼────────┼────────┤ +│ │ │ │ │ │ Column│ │ │ +│ │Column %│Column %│Column %│Column %│ % │Column %│Column %│ +├────────────────────────────────────────────────────────┼────────┼────────┼────────┼────────┼───────┼────────┼────────┤ +│105b. How likely is it that drivers who have Almost │ .│ 9.5%│ 8.2%│ 12.4%│ 9.9%│ 20.0%│ 23.8%│ +│had too much to drink to drive safely will certain │ │ │ │ │ │ │ │ +│A. Get stopped by the police? Very likely│ .│ 24.9%│ 18.5%│ 24.0%│ 26.6%│ 25.5%│ 33.3%│ +│ Somewhat │ .│ 38.3%│ 41.9%│ 38.6%│ 37.5%│ 36.4%│ 23.8%│ +│ likely │ │ │ │ │ │ │ │ +│ Subtotal │ │ 72.8%│ 68.6%│ 75.0%│ 74.0%│ 81.8%│ 81.0%│ +│ Somewhat │ .│ 18.1%│ 21.7%│ 16.8%│ 16.7%│ 10.9%│ 9.5%│ +│ unlikely │ │ │ │ │ │ │ │ +│ Very │ .│ 9.2%│ 9.7%│ 8.2%│ 9.4%│ 7.3%│ 9.5%│ +│ unlikely │ │ │ │ │ │ │ │ +│ Subtotal │ │ 27.2%│ 31.4%│ 25.0%│ 26.0%│ 18.2%│ 19.0%│ +╰────────────────────────────────────────────────────────┴────────┴────────┴────────┴────────┴───────┴────────┴────────╯ + + Custom Tables +╭─────────────────────────────────────────────────────────┬────────────────────────────────────────────────────────────╮ +│ │ S1. Including yourself, how many members of this household │ +│ │ are age 16 or older? │ +│ ├───────┬───────┬─────────┬───────┬────────┬──────┬──────────┤ +│ │ 1 │ 2 │ Subtotal│ 3 │ 4 │ 5 │ Subtotal │ +│ ├───────┼───────┼─────────┼───────┼────────┼──────┼──────────┤ +│ │ Count │ Count │ Count │ Count │ Count │ Count│ Count │ +├─────────────────────────────────────────────────────────┼───────┼───────┼─────────┼───────┼────────┼──────┼──────────┤ +│105b. How likely is it that drivers who have Almost │ 147│ 246│ 393│ 62│ 19│ 11│ 92│ +│had too much to drink to drive safely will A. certain │ │ │ │ │ │ │ │ +│Get stopped by the police? Very likely│ 384│ 552│ 936│ 120│ 51│ 14│ 185│ +│ Somewhat │ 590│ 1249│ 1839│ 193│ 72│ 20│ 285│ +│ likely │ │ │ │ │ │ │ │ +│ Subtotal │ 1121│ 2047│ 3168│ 375│ 142│ 45│ 562│ +│ Somewhat │ 278│ 647│ 925│ 84│ 32│ 6│ 122│ +│ unlikely │ │ │ │ │ │ │ │ +│ Very │ 141│ 290│ 431│ 41│ 18│ 4│ 63│ +│ unlikely │ │ │ │ │ │ │ │ +│ Subtotal │ 419│ 937│ 1356│ 125│ 50│ 10│ 185│ +╰─────────────────────────────────────────────────────────┴───────┴───────┴─────────┴───────┴────────┴──────┴──────────╯ +]) +AT_CLEANUP + +AT_SETUP([CTABLES PCOMPUTE]) +AT_KEYWORDS([postcompute]) +AT_CHECK([ln $top_srcdir/examples/nhtsa.sav . || cp $top_srcdir/examples/nhtsa.sav .]) +AT_DATA([ctables.sps], +[[GET 'nhtsa.sav'. +CTABLES + /PCOMPUTE &x=EXPR([3] + [4]) + /PCOMPUTE &y=EXPR([4] + [5]) + /PPROPERTIES &x LABEL='3+4' FORMAT=COUNT F8.2 + /PPROPERTIES &y LABEL=')LABEL[5]+)LABEL[6]' + /TABLE=qn105ba [COUNT, ROWPCT] BY qns1 + /CATEGORIES VARIABLES=qns1 [1, 2, SUBTOTAL, 3, 4, 5, &x, &y, SUBTOTAL] TOTAL=YES + +* Adding HIDESOURCECATS=YES for one PPROPERTIES. +CTABLES + /PCOMPUTE &x=EXPR([3] + [4]) + /PCOMPUTE &y=EXPR([4] + [5]) + /PPROPERTIES &x LABEL='3+4' FORMAT=COUNT F8.2 + /PPROPERTIES &y LABEL=')LABEL[5]+)LABEL[6]' HIDESOURCECATS=YES + /TABLE=qn105ba [COUNT, ROWPCT] BY qns1 + /CATEGORIES VARIABLES=qns1 [1, 2, SUBTOTAL, 3, 4, 5, &x, &y, SUBTOTAL] TOTAL=YES +]]) +AT_CHECK([pspp ctables.sps -O box=unicode -O width=140], [0], [dnl + Custom Tables +╭───────────────────┬──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────╮ +│ │ S1. Including yourself, how many members of this household are age 16 or older? │ +│ ├───────────┬───────────┬───────────┬───────────┬──────────┬──────────┬────────────┬──────────┬───────────┬────────────┤ +│ │ 1 │ 2 │ Subtotal │ 3 │ 4 │ 5 │ 3+4 │ 4+5 │ Subtotal │ Total │ +│ ├─────┬─────┼─────┬─────┼─────┬─────┼─────┬─────┼─────┬────┼─────┬────┼──────┬─────┼─────┬────┼─────┬─────┼─────┬──────┤ +│ │ │ │ │ │ │ │ │ │ │ Row│ │ Row│ │ │ │ Row│ │ │ │ │ +│ │Count│Row %│Count│Row %│Count│Row %│Count│Row %│Count│ % │Count│ % │ Count│Row %│Count│ % │Count│Row %│Count│ Row %│ +├───────────────────┼─────┼─────┼─────┼─────┼─────┼─────┼─────┼─────┼─────┼────┼─────┼────┼──────┼─────┼─────┼────┼─────┼─────┼─────┼──────┤ +│105b. How Almost │ 147│30.3%│ 246│50.7%│ 393│81.0%│ 62│12.8%│ 19│3.9%│ 11│2.3%│ 81.00│16.7%│ 30│6.2%│ 92│19.0%│ 485│100.0%│ +│likely is certain │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ +│it that │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ +│drivers Very │ 384│34.3%│ 552│49.2%│ 936│83.5%│ 120│10.7%│ 51│4.5%│ 14│1.2%│171.00│15.3%│ 65│5.8%│ 185│16.5%│ 1121│100.0%│ +│who have likely │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ +│had too │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ +│much to Somewhat│ 590│27.8%│ 1249│58.8%│ 1839│86.6%│ 193│ 9.1%│ 72│3.4%│ 20│ .9%│265.00│12.5%│ 92│4.3%│ 285│13.4%│ 2124│100.0%│ +│drink to likely │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ +│drive │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ +│safely Somewhat│ 278│26.6%│ 647│61.8%│ 925│88.3%│ 84│ 8.0%│ 32│3.1%│ 6│ .6%│116.00│11.1%│ 38│3.6%│ 122│11.7%│ 1047│100.0%│ +│will A. unlikely│ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ +│Get │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ +│stopped by Very │ 141│28.5%│ 290│58.7%│ 431│87.2%│ 41│ 8.3%│ 18│3.6%│ 4│ .8%│ 59.00│11.9%│ 22│4.5%│ 63│12.8%│ 494│100.0%│ +│the unlikely│ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ +│police? │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ +╰───────────────────┴─────┴─────┴─────┴─────┴─────┴─────┴─────┴─────┴─────┴────┴─────┴────┴──────┴─────┴─────┴────┴─────┴─────┴─────┴──────╯ + + Custom Tables +╭─────────────────────────────────────────┬────────────────────────────────────────────────────────────────────────────────────────────────╮ +│ │ S1. Including yourself, how many members of this household are age 16 or older? │ +│ ├───────────┬───────────┬───────────┬───────────┬────────────┬──────────┬───────────┬────────────┤ +│ │ 1 │ 2 │ Subtotal │ 3 │ 3+4 │ 4+5 │ Subtotal │ Total │ +│ ├─────┬─────┼─────┬─────┼─────┬─────┼─────┬─────┼──────┬─────┼─────┬────┼─────┬─────┼─────┬──────┤ +│ │ │ │ │ │ │ │ │ │ │ │ │ Row│ │ │ │ │ +│ │Count│Row %│Count│Row %│Count│Row %│Count│Row %│ Count│Row %│Count│ % │Count│Row %│Count│ Row %│ +├─────────────────────────────────────────┼─────┼─────┼─────┼─────┼─────┼─────┼─────┼─────┼──────┼─────┼─────┼────┼─────┼─────┼─────┼──────┤ +│105b. How likely is it that Almost │ 147│30.3%│ 246│50.7%│ 393│81.0%│ 62│12.8%│ 81.00│16.7%│ 30│6.2%│ 92│19.0%│ 485│100.0%│ +│drivers who have had too much certain │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ +│to drink to drive safely will Very │ 384│34.3%│ 552│49.2%│ 936│83.5%│ 120│10.7%│171.00│15.3%│ 65│5.8%│ 185│16.5%│ 1121│100.0%│ +│A. Get stopped by the police? likely │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ +│ Somewhat │ 590│27.8%│ 1249│58.8%│ 1839│86.6%│ 193│ 9.1%│265.00│12.5%│ 92│4.3%│ 285│13.4%│ 2124│100.0%│ +│ likely │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ +│ Somewhat │ 278│26.6%│ 647│61.8%│ 925│88.3%│ 84│ 8.0%│116.00│11.1%│ 38│3.6%│ 122│11.7%│ 1047│100.0%│ +│ unlikely │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ +│ Very │ 141│28.5%│ 290│58.7%│ 431│87.2%│ 41│ 8.3%│ 59.00│11.9%│ 22│4.5%│ 63│12.8%│ 494│100.0%│ +│ unlikely │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ +╰─────────────────────────────────────────┴─────┴─────┴─────┴─────┴─────┴─────┴─────┴─────┴──────┴─────┴─────┴────┴─────┴─────┴─────┴──────╯ +]) +AT_CLEANUP + +AT_SETUP([CTABLES PCOMPUTE - OTHERNM and MISSING]) +AT_KEYWORDS([postcompute]) +AT_CHECK([ln $top_srcdir/examples/nhtsa.sav . || cp $top_srcdir/examples/nhtsa.sav .]) +AT_DATA([ctables.sps], +[[GET 'nhtsa.sav'. +CTABLES + /PCOMPUTE &x=EXPR(OTHERNM) + /PCOMPUTE &y=EXPR(MISSING) + /PPROPERTIES &x LABEL='Drivers' + /PPROPERTIES &y LABEL='Missing Values 2' + /TABLE=qn1 BY qns3a + /CATEGORIES VARIABLES=qn1 [OTHERNM, 5, &x, SUBTOTAL='Valid Values', MISSING, SUBTOTAL='Missing Values', &y] +]]) +AT_CHECK([pspp ctables.sps -O box=unicode -O width=140], [0], [dnl + Custom Tables +╭──────────────────────────────────────────────────────────────────────────────────────────┬────────────╮ +│ │S3a. GENDER:│ +│ ├─────┬──────┤ +│ │ Male│Female│ +│ ├─────┼──────┤ +│ │Count│ Count│ +├──────────────────────────────────────────────────────────────────────────────────────────┼─────┼──────┤ +│ 1. How often do you usually drive a car or other motor vehicle? Every day │ 2305│ 2362│ +│ Several days a week │ 440│ 834│ +│ Once a week or less │ 125│ 236│ +│ Only certain times a year│ 58│ 72│ +│ Never │ 192│ 348│ +│ Drivers │ 2928│ 3504│ +│ Valid Values │ 3120│ 3852│ +│ Don't know │ 3│ 5│ +│ Refused │ 9│ 10│ +│ Missing Values │ 12│ 15│ +│ Missing Values 2 │ 12│ 15│ +╰──────────────────────────────────────────────────────────────────────────────────────────┴─────┴──────╯ +]) +AT_CLEANUP + +AT_SETUP([CTABLES PCOMPUTE - THRU]) +AT_KEYWORDS([postcompute]) +AT_CHECK([ln $top_srcdir/examples/nhtsa.sav . || cp $top_srcdir/examples/nhtsa.sav .]) +AT_DATA([ctables.sps], +[[GET 'nhtsa.sav'. +CTABLES + /PCOMPUTE &x=EXPR([1 THRU 2]) + /PCOMPUTE &y=EXPR([3 THRU 4]) + /PCOMPUTE &z=EXPR([5] + MISSING) + /PPROPERTIES &x LABEL='Frequent Drivers' + /PPROPERTIES &y LABEL='Infrequent Drivers' + /PPROPERTIES &z LABEL='Not Drivers or Missing' + /TABLE=qn1 BY qns3a + /CATEGORIES VARIABLES=qn1 [1 THRU 2, &x, 3 THRU 4, &y, SUBTOTAL='Drivers', 5, MISSING, &z] +]]) +AT_CHECK([pspp ctables.sps -O box=unicode -O width=140], [0], [dnl + Custom Tables +╭──────────────────────────────────────────────────────────────────────────────────────────┬────────────╮ +│ │S3a. GENDER:│ +│ ├─────┬──────┤ +│ │ Male│Female│ +│ ├─────┼──────┤ +│ │Count│ Count│ +├──────────────────────────────────────────────────────────────────────────────────────────┼─────┼──────┤ +│ 1. How often do you usually drive a car or other motor vehicle? Every day │ 2305│ 2362│ +│ Several days a week │ 440│ 834│ +│ Frequent Drivers │ 2745│ 3196│ +│ Once a week or less │ 125│ 236│ +│ Only certain times a year│ 58│ 72│ +│ Infrequent Drivers │ 183│ 308│ +│ Drivers │ 2928│ 3504│ +│ Never │ 192│ 348│ +│ Don't know │ 3│ 5│ +│ Refused │ 9│ 10│ +│ Not Drivers or Missing │ 204│ 363│ +╰──────────────────────────────────────────────────────────────────────────────────────────┴─────┴──────╯ +]) +AT_CLEANUP + +dnl I'm not sure that this is the correct behavior (see +dnl https://mail.gnu.org/archive/html/pspp-users/2022-07/msg00002.html) +dnl but at least this test will notify us if the behavior changes. +AT_SETUP([CTABLES intersecting PCOMPUTEs]) +AT_KEYWORDS([PCOMPUTE postcompute]) +AT_DATA([ctables.sps], +[[DATA LIST LIST NOTABLE/x y z. +WEIGHT by z. +FORMATS ALL (F1.0). +VARIABLE LEVEL x y (NOMINAL). +BEGIN DATA. +1 4 5 +1 5 2 +1 6 9 +2 4 2 +2 5 3 +2 6 4 +3 4 1 +3 5 6 +3 6 1 +END DATA. + +CTABLES + /PCOMPUTE &a = EXPR([1] + [2]) + /PCOMPUTE &b = EXPR([2] + [3]) + /PCOMPUTE &c = EXPR([4] * [5]) + /PCOMPUTE &d = EXPR([5] * [6]) + /TABLE x BY y + /CATEGORIES VARIABLES=x [1, &a, 2, &b, 3] + /CATEGORIES VARIABLES=y [4, &c, 5, &d, 6]. +]]) +AT_CHECK([pspp ctables.sps -O box=unicode], [0], +[[ Custom Tables +╭───────────┬─────────────────────────────────────╮ +│ │ y │ +│ ├─────┬─────────┬─────┬─────────┬─────┤ +│ │ 4 │[4] * [5]│ 5 │[5] * [6]│ 6 │ +│ ├─────┼─────────┼─────┼─────────┼─────┤ +│ │Count│ Count │Count│ Count │Count│ +├───────────┼─────┼─────────┼─────┼─────────┼─────┤ +│x 1 │ 5│ 10│ 2│ 18│ 9│ +│ [1] + [2]│ 7│ .│ 5│ .│ 13│ +│ 2 │ 2│ 6│ 3│ 12│ 4│ +│ [2] + [3]│ 3│ .│ 9│ .│ 5│ +│ 3 │ 1│ 6│ 6│ 6│ 1│ +╰───────────┴─────┴─────────┴─────┴─────────┴─────╯ +]]) +AT_CLEANUP + +AT_SETUP([CTABLES string and date and time]) + +weight=1 +for gender in F M; do + for month in Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec; do + for wkday in Sun Mon Tue Wed Thu Fri Sat Sun; do + printf "$weight $gender $month $wkday\n" + weight=$(expr \( $weight + 3 \) % 7 + 2) + done + done +done > ctables.txt + +AT_DATA([ctables.sps], +[[DATA LIST LIST NOTABLE FILE='ctables.txt' + /w (F5.0) gender (A1) fmon (MONTH3) fday (WKDAY3). +WEIGHT by w. +VARIABLE LEVEL w (SCALE). +VARIABLE LEVEL gender fmon fday (NOMINAL). +VARIABLE LABEL + gender 'Gender' + fmon 'Favorite month' + fday 'Favorite day of the week'. +VALUE LABELS /gender 'M' 'Male' 'F' 'Female'. +CTABLES + /PCOMPUTE &q2 = EXPR(['APR' THRU 'June']) + /PPROPERTIES &q2 LABEL='Q2' + /PCOMPUTE &weekend = EXPR(['sun'] + ['Sat']) + /PPROPERTIES &weekend LABEL='Weekend' + /TABLE fmon BY gender > fday + /CATEGORIES VARIABLES=fmon ['JAN', 'FEB', 'Mar', SUBTOTAL="Q1", + 4 THRU 6, &q2, + 'JUL' THRU 'sep', SUBTOTAL="Q3", + OTHERNM, SUBTOTAL='Q4'] + /CATEGORIES VARIABLES=gender ['M', 'F'] + /CATEGORIES VARIABLE=fday ['Sun', 2 THRU 6, 'Sat', &weekend] TOTAL=YES + /SLABELS VISIBLE=NO. +]]) +AT_CHECK([pspp ctables.sps -O box=unicode -O width=120], [0], [dnl + Custom Tables +╭──────────────────┬───────────────────────────────────────────────────────────────────────────────────╮ +│ │ Gender │ +│ ├─────────────────────────────────────────┬─────────────────────────────────────────┤ +│ │ Male │ Female │ +│ ├─────────────────────────────────────────┼─────────────────────────────────────────┤ +│ │ Favorite day of the week │ Favorite day of the week │ +│ ├───┬───┬───┬───┬───┬───┬───┬───────┬─────┼───┬───┬───┬───┬───┬───┬───┬───────┬─────┤ +│ │SUN│MON│TUE│WED│THU│FRI│SAT│Weekend│Total│SUN│MON│TUE│WED│THU│FRI│SAT│Weekend│Total│ +├──────────────────┼───┼───┼───┼───┼───┼───┼───┼───────┼─────┼───┼───┼───┼───┼───┼───┼───┼───────┼─────┤ +│Favorite month JAN│ 10│ 3│ 8│ 6│ 4│ 2│ 7│ 17│ 40│ 9│ 6│ 4│ 2│ 7│ 5│ 3│ 12│ 36│ +│ FEB│ 6│ 8│ 6│ 4│ 2│ 7│ 5│ 11│ 38│ 12│ 4│ 2│ 7│ 5│ 3│ 8│ 20│ 41│ +│ MAR│ 16│ 6│ 4│ 2│ 7│ 5│ 3│ 19│ 43│ 8│ 2│ 7│ 5│ 3│ 8│ 6│ 14│ 39│ +│ Q1 │ 32│ 17│ 18│ 12│ 13│ 14│ 15│ │ │ 29│ 12│ 13│ 14│ 15│ 16│ 17│ │ │ +│ APR│ 12│ 4│ 2│ 7│ 5│ 3│ 8│ 20│ 41│ 4│ 7│ 5│ 3│ 8│ 6│ 4│ 8│ 37│ +│ MAY│ 8│ 2│ 7│ 5│ 3│ 8│ 6│ 14│ 39│ 14│ 5│ 3│ 8│ 6│ 4│ 2│ 16│ 42│ +│ JUN│ 4│ 7│ 5│ 3│ 8│ 6│ 4│ 8│ 37│ 10│ 3│ 8│ 6│ 4│ 2│ 7│ 17│ 40│ +│ Q2 │ 24│ 13│ 14│ 15│ 16│ 17│ 18│ .│ │ 28│ 15│ 16│ 17│ 18│ 12│ 13│ .│ │ +│ JUL│ 14│ 5│ 3│ 8│ 6│ 4│ 2│ 16│ 42│ 6│ 8│ 6│ 4│ 2│ 7│ 5│ 11│ 38│ +│ AUG│ 10│ 3│ 8│ 6│ 4│ 2│ 7│ 17│ 40│ 16│ 6│ 4│ 2│ 7│ 5│ 3│ 19│ 43│ +│ SEP│ 6│ 8│ 6│ 4│ 2│ 7│ 5│ 11│ 38│ 12│ 4│ 2│ 7│ 5│ 3│ 8│ 20│ 41│ +│ Q3 │ 54│ 29│ 31│ 33│ 28│ 30│ 32│ │ │ 62│ 33│ 28│ 30│ 32│ 27│ 29│ │ │ +│ OCT│ 16│ 6│ 4│ 2│ 7│ 5│ 3│ 19│ 43│ 8│ 2│ 7│ 5│ 3│ 8│ 6│ 14│ 39│ +│ NOV│ 12│ 4│ 2│ 7│ 5│ 3│ 8│ 20│ 41│ 4│ 7│ 5│ 3│ 8│ 6│ 4│ 8│ 37│ +│ DEC│ 8│ 2│ 7│ 5│ 3│ 8│ 6│ 14│ 39│ 14│ 5│ 3│ 8│ 6│ 4│ 2│ 16│ 42│ +│ Q4 │ 36│ 12│ 13│ 14│ 15│ 16│ 17│ │ │ 26│ 14│ 15│ 16│ 17│ 18│ 12│ │ │ +╰──────────────────┴───┴───┴───┴───┴───┴───┴───┴───────┴─────┴───┴───┴───┴───┴───┴───┴───┴───────┴─────╯ +]) +AT_CLEANUP + +AT_SETUP([CTABLES CLABELS]) +AT_CHECK([ln $top_srcdir/examples/nhtsa.sav . || cp $top_srcdir/examples/nhtsa.sav .]) +AT_DATA([ctables.sps], +[[GET 'nhtsa.sav'. +CTABLES /TABLE AgeGroup BY qns3a. +CTABLES /TABLE AgeGroup BY qns3a /CLABELS ROWLABELS=OPPOSITE. +CTABLES /TABLE AgeGroup BY qns3a /CLABELS COLLABELS=OPPOSITE. +CTABLES /TABLE AgeGroup BY qns3a /CLABELS ROWLABELS=LAYER. +CTABLES /TABLE AgeGroup BY qns3a /CLABELS COLLABELS=LAYER. +]]) +AT_CHECK([pspp ctables.sps --table-look="$builddir"/all-layers.stt -O box=unicode -O width=120], [0], [dnl + Custom Tables +╭───────────────────────┬────────────╮ +│ │S3a. GENDER:│ +│ ├─────┬──────┤ +│ │ Male│Female│ +│ ├─────┼──────┤ +│ │Count│ Count│ +├───────────────────────┼─────┼──────┤ +│Age group 15 or younger│ 0│ 0│ +│ 16 to 25 │ 594│ 505│ +│ 26 to 35 │ 476│ 491│ +│ 36 to 45 │ 489│ 548│ +│ 46 to 55 │ 526│ 649│ +│ 56 to 65 │ 516│ 731│ +│ 66 or older │ 531│ 943│ +╰───────────────────────┴─────┴──────╯ + + Custom Tables +╭───────┬──────────────────────────────────────────────────────────────────────────────────────────────────────────────╮ +│ │ S3a. GENDER: │ +│ ├──────────────────────────────────────────────────────┬───────────────────────────────────────────────────────┤ +│ │ Male │ Female │ +│ ├─────────┬───────┬──────┬──────┬──────┬───────┬───────┼──────────┬──────┬───────┬──────┬──────┬──────┬────────┤ +│ │ 15 or │ 16 to │ 26 to│ 36 to│ 46 to│ 56 to │ 66 or │ 15 or │ 16 to│ 26 to │ 36 to│ 46 to│ 56 to│ 66 or │ +│ │ younger │ 25 │ 35 │ 45 │ 55 │ 65 │ older │ younger │ 25 │ 35 │ 45 │ 55 │ 65 │ older │ +│ ├─────────┼───────┼──────┼──────┼──────┼───────┼───────┼──────────┼──────┼───────┼──────┼──────┼──────┼────────┤ +│ │ Count │ Count │ Count│ Count│ Count│ Count │ Count │ Count │ Count│ Count │ Count│ Count│ Count│ Count │ +├───────┼─────────┼───────┼──────┼──────┼──────┼───────┼───────┼──────────┼──────┼───────┼──────┼──────┼──────┼────────┤ +│Age │ 0│ 594│ 476│ 489│ 526│ 516│ 531│ 0│ 505│ 491│ 548│ 649│ 731│ 943│ +│group │ │ │ │ │ │ │ │ │ │ │ │ │ │ │ +╰───────┴─────────┴───────┴──────┴──────┴──────┴───────┴───────┴──────────┴──────┴───────┴──────┴──────┴──────┴────────╯ + + Custom Tables +╭──────────────────────────────┬────────────╮ +│ │S3a. GENDER:│ +│ ├────────────┤ +│ │ Count │ +├──────────────────────────────┼────────────┤ +│Age group 15 or younger Male │ 0│ +│ Female│ 0│ +│ ╶────────────────────┼────────────┤ +│ 16 to 25 Male │ 594│ +│ Female│ 505│ +│ ╶────────────────────┼────────────┤ +│ 26 to 35 Male │ 476│ +│ Female│ 491│ +│ ╶────────────────────┼────────────┤ +│ 36 to 45 Male │ 489│ +│ Female│ 548│ +│ ╶────────────────────┼────────────┤ +│ 46 to 55 Male │ 526│ +│ Female│ 649│ +│ ╶────────────────────┼────────────┤ +│ 56 to 65 Male │ 516│ +│ Female│ 731│ +│ ╶────────────────────┼────────────┤ +│ 66 or older Male │ 531│ +│ Female│ 943│ +╰──────────────────────────────┴────────────╯ + + Custom Tables +15 or younger +╭─────────┬────────────╮ +│ │S3a. GENDER:│ +│ ├─────┬──────┤ +│ │ Male│Female│ +│ ├─────┼──────┤ +│ │Count│ Count│ +├─────────┼─────┼──────┤ +│Age group│ 0│ 0│ +╰─────────┴─────┴──────╯ + + Custom Tables +16 to 25 +╭─────────┬────────────╮ +│ │S3a. GENDER:│ +│ ├─────┬──────┤ +│ │ Male│Female│ +│ ├─────┼──────┤ +│ │Count│ Count│ +├─────────┼─────┼──────┤ +│Age group│ 594│ 505│ +╰─────────┴─────┴──────╯ + + Custom Tables +26 to 35 +╭─────────┬────────────╮ +│ │S3a. GENDER:│ +│ ├─────┬──────┤ +│ │ Male│Female│ +│ ├─────┼──────┤ +│ │Count│ Count│ +├─────────┼─────┼──────┤ +│Age group│ 476│ 491│ +╰─────────┴─────┴──────╯ + + Custom Tables +36 to 45 +╭─────────┬────────────╮ +│ │S3a. GENDER:│ +│ ├─────┬──────┤ +│ │ Male│Female│ +│ ├─────┼──────┤ +│ │Count│ Count│ +├─────────┼─────┼──────┤ +│Age group│ 489│ 548│ +╰─────────┴─────┴──────╯ + + Custom Tables +46 to 55 +╭─────────┬────────────╮ +│ │S3a. GENDER:│ +│ ├─────┬──────┤ +│ │ Male│Female│ +│ ├─────┼──────┤ +│ │Count│ Count│ +├─────────┼─────┼──────┤ +│Age group│ 526│ 649│ +╰─────────┴─────┴──────╯ + + Custom Tables +56 to 65 +╭─────────┬────────────╮ +│ │S3a. GENDER:│ +│ ├─────┬──────┤ +│ │ Male│Female│ +│ ├─────┼──────┤ +│ │Count│ Count│ +├─────────┼─────┼──────┤ +│Age group│ 516│ 731│ +╰─────────┴─────┴──────╯ + + Custom Tables +66 or older +╭─────────┬────────────╮ +│ │S3a. GENDER:│ +│ ├─────┬──────┤ +│ │ Male│Female│ +│ ├─────┼──────┤ +│ │Count│ Count│ +├─────────┼─────┼──────┤ +│Age group│ 531│ 943│ +╰─────────┴─────┴──────╯ + + Custom Tables +Male +╭───────────────────────┬────────────╮ +│ │S3a. GENDER:│ +│ ├────────────┤ +│ │ Count │ +├───────────────────────┼────────────┤ +│Age group 15 or younger│ 0│ +│ 16 to 25 │ 594│ +│ 26 to 35 │ 476│ +│ 36 to 45 │ 489│ +│ 46 to 55 │ 526│ +│ 56 to 65 │ 516│ +│ 66 or older │ 531│ +╰───────────────────────┴────────────╯ + + Custom Tables +Female +╭───────────────────────┬────────────╮ +│ │S3a. GENDER:│ +│ ├────────────┤ +│ │ Count │ +├───────────────────────┼────────────┤ +│Age group 15 or younger│ 0│ +│ 16 to 25 │ 505│ +│ 26 to 35 │ 491│ +│ 36 to 45 │ 548│ +│ 46 to 55 │ 649│ +│ 56 to 65 │ 731│ +│ 66 or older │ 943│ +╰───────────────────────┴────────────╯ +]) +AT_CLEANUP + +AT_SETUP([CTABLES missing values]) +AT_DATA([ctables.sps], +[[DATA LIST LIST NOTABLE/x y. +BEGIN DATA. +1 1 +1 2 +1 3 +1 4 +1 5 +1 . +2 1 +2 2 +2 3 +2 4 +2 5 +2 . +3 1 +3 2 +3 3 +3 4 +3 5 +3 . +4 1 +4 2 +4 3 +4 4 +4 5 +4 . +5 1 +5 2 +5 3 +5 4 +5 5 +5 . +. 1 +. 2 +. 3 +. 4 +. 5 +. . +END DATA. +MISSING VALUES x (1, 2) y (2, 3). +VARIABLE LEVEL ALL (NOMINAL). + +CTABLES /TABLE x[COUNT, COLPCT, COLPCT.VALIDN, COLPCT.TOTALN, + TOTALS[COUNT, COLPCT, COLPCT.VALIDN, COLPCT.TOTALN, VALIDN, TOTALN]] + /CATEGORIES VARIABLES=ALL TOTAL=YES. +CTABLES /TABLE x[COUNT, COLPCT, COLPCT.VALIDN, COLPCT.TOTALN, + TOTALS[COUNT, COLPCT, COLPCT.VALIDN, COLPCT.TOTALN, VALIDN, TOTALN]] + /CATEGORIES VARIABLES=ALL TOTAL=YES MISSING=INCLUDE. +CTABLES /TABLE x BY y[COUNT, COLPCT, COLPCT.VALIDN, COLPCT.TOTALN, ROWPCT, ROWPCT.VALIDN, ROWPCT.TOTALN, + TOTALS[COUNT, COLPCT, COLPCT.VALIDN, COLPCT.TOTALN, ROWPCT, ROWPCT.VALIDN, ROWPCT.TOTALN, VALIDN, TOTALN]] + /CATEGORIES VARIABLES=ALL TOTAL=YES + /SLABELS POSITION=ROW. +CTABLES /TABLE x BY y[COUNT, COLPCT, COLPCT.VALIDN, COLPCT.TOTALN, ROWPCT, ROWPCT.VALIDN, ROWPCT.TOTALN, + TOTALS[COUNT, COLPCT, COLPCT.VALIDN, COLPCT.TOTALN, ROWPCT, ROWPCT.VALIDN, ROWPCT.TOTALN, VALIDN, TOTALN]] + /CATEGORIES VARIABLES=ALL TOTAL=YES MISSING=INCLUDE + /SLABELS POSITION=ROW. +CTABLES /TABLE x BY y[COUNT, COLPCT, COLPCT.VALIDN, COLPCT.TOTALN, ROWPCT, ROWPCT.VALIDN, ROWPCT.TOTALN, + TOTALS[COUNT, COLPCT, COLPCT.VALIDN, COLPCT.TOTALN, ROWPCT, ROWPCT.VALIDN, ROWPCT.TOTALN, VALIDN, TOTALN]] + /CATEGORIES VARIABLES=x [1, 2, 3, 4] TOTAL=YES + /CATEGORIES VARIABLES=y [1, 3, 4, 5] TOTAL=YES + /SLABELS POSITION=ROW. +]]) +AT_CHECK([pspp ctables.sps -O box=unicode -O width=120], [0], [dnl + Custom Tables +╭───────┬─────┬────────┬────────────────┬────────────────┬───────┬───────╮ +│ │Count│Column %│Column Valid N %│Column Total N %│Valid N│Total N│ +├───────┼─────┼────────┼────────────────┼────────────────┼───────┼───────┤ +│x 3.00 │ 6│ 33.3%│ 33.3%│ 16.7%│ │ │ +│ 4.00 │ 6│ 33.3%│ 33.3%│ 16.7%│ │ │ +│ 5.00 │ 6│ 33.3%│ 33.3%│ 16.7%│ │ │ +│ Total│ 18│ 100.0%│ 100.0%│ 100.0%│ 18│ 36│ +╰───────┴─────┴────────┴────────────────┴────────────────┴───────┴───────╯ +dnl Note that Column Total N % doesn't add up to 100 because missing +dnl values are included in the total but not shown as a category and this +dnl is expected behavior. + + Custom Tables +╭───────┬─────┬────────┬────────────────┬────────────────┬───────┬───────╮ +│ │Count│Column %│Column Valid N %│Column Total N %│Valid N│Total N│ +├───────┼─────┼────────┼────────────────┼────────────────┼───────┼───────┤ +│x 1.00 │ 6│ 20.0%│ .0%│ 16.7%│ │ │ +│ 2.00 │ 6│ 20.0%│ .0%│ 16.7%│ │ │ +│ 3.00 │ 6│ 20.0%│ 33.3%│ 16.7%│ │ │ +│ 4.00 │ 6│ 20.0%│ 33.3%│ 16.7%│ │ │ +│ 5.00 │ 6│ 20.0%│ 33.3%│ 16.7%│ │ │ +│ Total│ 30│ 100.0%│ 100.0%│ 100.0%│ 18│ 36│ +╰───────┴─────┴────────┴────────────────┴────────────────┴───────┴───────╯ +dnl Note that Column Total N % doesn't add up to 100 because system-missing +dnl values are included in the total but not shown as a category and this +dnl is expected behavior. + + Custom Tables +╭────────────────────────┬───────────────────────────╮ +│ │ y │ +│ ├──────┬──────┬──────┬──────┤ +│ │ 1.00 │ 4.00 │ 5.00 │ Total│ +├────────────────────────┼──────┼──────┼──────┼──────┤ +│x 3.00 Count │ 1│ 1│ 1│ 3│ +│ Column % │ 33.3%│ 33.3%│ 33.3%│ .│ +│ Column Valid N %│ 33.3%│ 33.3%│ 33.3%│ .│ +│ Column Total N %│ 33.3%│ 33.3%│ 33.3%│ .│ +│ Row % │ 33.3%│ 33.3%│ 33.3%│100.0%│ +│ Row Valid N % │ 33.3%│ 33.3%│ 33.3%│100.0%│ +│ Row Total N % │ 16.7%│ 16.7%│ 16.7%│100.0%│ +│ Valid N │ │ │ │ 3│ +│ Total N │ │ │ │ 6│ +│ ╶──────────────────────┼──────┼──────┼──────┼──────┤ +│ 4.00 Count │ 1│ 1│ 1│ 3│ +│ Column % │ 33.3%│ 33.3%│ 33.3%│ .│ +│ Column Valid N %│ 33.3%│ 33.3%│ 33.3%│ .│ +│ Column Total N %│ 33.3%│ 33.3%│ 33.3%│ .│ +│ Row % │ 33.3%│ 33.3%│ 33.3%│100.0%│ +│ Row Valid N % │ 33.3%│ 33.3%│ 33.3%│100.0%│ +│ Row Total N % │ 16.7%│ 16.7%│ 16.7%│100.0%│ +│ Valid N │ │ │ │ 3│ +│ Total N │ │ │ │ 6│ +│ ╶──────────────────────┼──────┼──────┼──────┼──────┤ +│ 5.00 Count │ 1│ 1│ 1│ 3│ +│ Column % │ 33.3%│ 33.3%│ 33.3%│ .│ +│ Column Valid N %│ 33.3%│ 33.3%│ 33.3%│ .│ +│ Column Total N %│ 33.3%│ 33.3%│ 33.3%│ .│ +│ Row % │ 33.3%│ 33.3%│ 33.3%│100.0%│ +│ Row Valid N % │ 33.3%│ 33.3%│ 33.3%│100.0%│ +│ Row Total N % │ 16.7%│ 16.7%│ 16.7%│100.0%│ +│ Valid N │ │ │ │ 3│ +│ Total N │ │ │ │ 6│ +│ ╶──────────────────────┼──────┼──────┼──────┼──────┤ +│ Total Count │ 3│ 3│ 3│ 9│ +│ Column % │100.0%│100.0%│100.0%│ .│ +│ Column Valid N %│100.0%│100.0%│100.0%│ .│ +│ Column Total N %│100.0%│100.0%│100.0%│ .│ +│ Row % │ .│ .│ .│ .│ +│ Row Valid N % │ .│ .│ .│ .│ +│ Row Total N % │ .│ .│ .│ .│ +│ Valid N │ 3│ 3│ 3│ 9│ +│ Total N │ 3│ 3│ 3│ 18│ +╰────────────────────────┴──────┴──────┴──────┴──────╯ + + Custom Tables +╭────────────────────────┬─────────────────────────────────────────╮ +│ │ y │ +│ ├──────┬──────┬──────┬──────┬──────┬──────┤ +│ │ 1.00 │ 2.00 │ 3.00 │ 4.00 │ 5.00 │ Total│ +├────────────────────────┼──────┼──────┼──────┼──────┼──────┼──────┤ +│x 1.00 Count │ 1│ 1│ 1│ 1│ 1│ 5│ +│ Column % │ 20.0%│ 20.0%│ 20.0%│ 20.0%│ 20.0%│ .│ +│ Column Valid N %│ 20.0%│ .│ .│ 20.0%│ 20.0%│ .│ +│ Column Total N %│ 20.0%│ 20.0%│ 20.0%│ 20.0%│ 20.0%│ .│ +│ Row % │ 20.0%│ 20.0%│ 20.0%│ 20.0%│ 20.0%│100.0%│ +│ Row Valid N % │ 33.3%│ .0%│ .0%│ 33.3%│ 33.3%│100.0%│ +│ Row Total N % │ 16.7%│ 16.7%│ 16.7%│ 16.7%│ 16.7%│100.0%│ +│ Valid N │ │ │ │ │ │ 3│ +│ Total N │ │ │ │ │ │ 6│ +│ ╶──────────────────────┼──────┼──────┼──────┼──────┼──────┼──────┤ +│ 2.00 Count │ 1│ 1│ 1│ 1│ 1│ 5│ +│ Column % │ 20.0%│ 20.0%│ 20.0%│ 20.0%│ 20.0%│ .│ +│ Column Valid N %│ 20.0%│ .│ .│ 20.0%│ 20.0%│ .│ +│ Column Total N %│ 20.0%│ 20.0%│ 20.0%│ 20.0%│ 20.0%│ .│ +│ Row % │ 20.0%│ 20.0%│ 20.0%│ 20.0%│ 20.0%│100.0%│ +│ Row Valid N % │ 33.3%│ .0%│ .0%│ 33.3%│ 33.3%│100.0%│ +│ Row Total N % │ 16.7%│ 16.7%│ 16.7%│ 16.7%│ 16.7%│100.0%│ +│ Valid N │ │ │ │ │ │ 3│ +│ Total N │ │ │ │ │ │ 6│ +│ ╶──────────────────────┼──────┼──────┼──────┼──────┼──────┼──────┤ +│ 3.00 Count │ 1│ 1│ 1│ 1│ 1│ 5│ +│ Column % │ 20.0%│ 20.0%│ 20.0%│ 20.0%│ 20.0%│ .│ +│ Column Valid N %│ 20.0%│ .│ .│ 20.0%│ 20.0%│ .│ +│ Column Total N %│ 20.0%│ 20.0%│ 20.0%│ 20.0%│ 20.0%│ .│ +│ Row % │ 20.0%│ 20.0%│ 20.0%│ 20.0%│ 20.0%│100.0%│ +│ Row Valid N % │ 33.3%│ .0%│ .0%│ 33.3%│ 33.3%│100.0%│ +│ Row Total N % │ 16.7%│ 16.7%│ 16.7%│ 16.7%│ 16.7%│100.0%│ +│ Valid N │ │ │ │ │ │ 3│ +│ Total N │ │ │ │ │ │ 6│ +│ ╶──────────────────────┼──────┼──────┼──────┼──────┼──────┼──────┤ +│ 4.00 Count │ 1│ 1│ 1│ 1│ 1│ 5│ +│ Column % │ 20.0%│ 20.0%│ 20.0%│ 20.0%│ 20.0%│ .│ +│ Column Valid N %│ 20.0%│ .│ .│ 20.0%│ 20.0%│ .│ +│ Column Total N %│ 20.0%│ 20.0%│ 20.0%│ 20.0%│ 20.0%│ .│ +│ Row % │ 20.0%│ 20.0%│ 20.0%│ 20.0%│ 20.0%│100.0%│ +│ Row Valid N % │ 33.3%│ .0%│ .0%│ 33.3%│ 33.3%│100.0%│ +│ Row Total N % │ 16.7%│ 16.7%│ 16.7%│ 16.7%│ 16.7%│100.0%│ +│ Valid N │ │ │ │ │ │ 3│ +│ Total N │ │ │ │ │ │ 6│ +│ ╶──────────────────────┼──────┼──────┼──────┼──────┼──────┼──────┤ +│ 5.00 Count │ 1│ 1│ 1│ 1│ 1│ 5│ +│ Column % │ 20.0%│ 20.0%│ 20.0%│ 20.0%│ 20.0%│ .│ +│ Column Valid N %│ 20.0%│ .│ .│ 20.0%│ 20.0%│ .│ +│ Column Total N %│ 20.0%│ 20.0%│ 20.0%│ 20.0%│ 20.0%│ .│ +│ Row % │ 20.0%│ 20.0%│ 20.0%│ 20.0%│ 20.0%│100.0%│ +│ Row Valid N % │ 33.3%│ .0%│ .0%│ 33.3%│ 33.3%│100.0%│ +│ Row Total N % │ 16.7%│ 16.7%│ 16.7%│ 16.7%│ 16.7%│100.0%│ +│ Valid N │ │ │ │ │ │ 3│ +│ Total N │ │ │ │ │ │ 6│ +│ ╶──────────────────────┼──────┼──────┼──────┼──────┼──────┼──────┤ +│ Total Count │ 5│ 5│ 5│ 5│ 5│ 25│ +│ Column % │100.0%│100.0%│100.0%│100.0%│100.0%│ .│ +│ Column Valid N %│100.0%│ .│ .│100.0%│100.0%│ .│ +│ Column Total N %│100.0%│100.0%│100.0%│100.0%│100.0%│ .│ +│ Row % │ .│ .│ .│ .│ .│ .│ +│ Row Valid N % │ .│ .│ .│ .│ .│ .│ +│ Row Total N % │ .│ .│ .│ .│ .│ .│ +│ Valid N │ 5│ 0│ 0│ 5│ 5│ 15│ +│ Total N │ 5│ 5│ 5│ 5│ 5│ 30│ +╰────────────────────────┴──────┴──────┴──────┴──────┴──────┴──────╯ + + Custom Tables +╭────────────────────────┬──────────────────────────────────╮ +│ │ y │ +│ ├──────┬──────┬──────┬──────┬──────┤ +│ │ 1.00 │ 3.00 │ 4.00 │ 5.00 │ Total│ +├────────────────────────┼──────┼──────┼──────┼──────┼──────┤ +│x 1.00 Count │ 1│ 1│ 1│ 1│ 4│ +│ Column % │ 25.0%│ 25.0%│ 25.0%│ 25.0%│ .│ +│ Column Valid N %│ 25.0%│ .│ 25.0%│ 25.0%│ .│ +│ Column Total N %│ 25.0%│ 25.0%│ 25.0%│ 25.0%│ .│ +│ Row % │ 25.0%│ 25.0%│ 25.0%│ 25.0%│100.0%│ +│ Row Valid N % │ 33.3%│ .0%│ 33.3%│ 33.3%│100.0%│ +│ Row Total N % │ 16.7%│ 16.7%│ 16.7%│ 16.7%│100.0%│ +│ Valid N │ │ │ │ │ 3│ +│ Total N │ │ │ │ │ 6│ +│ ╶──────────────────────┼──────┼──────┼──────┼──────┼──────┤ +│ 2.00 Count │ 1│ 1│ 1│ 1│ 4│ +│ Column % │ 25.0%│ 25.0%│ 25.0%│ 25.0%│ .│ +│ Column Valid N %│ 25.0%│ .│ 25.0%│ 25.0%│ .│ +│ Column Total N %│ 25.0%│ 25.0%│ 25.0%│ 25.0%│ .│ +│ Row % │ 25.0%│ 25.0%│ 25.0%│ 25.0%│100.0%│ +│ Row Valid N % │ 33.3%│ .0%│ 33.3%│ 33.3%│100.0%│ +│ Row Total N % │ 16.7%│ 16.7%│ 16.7%│ 16.7%│100.0%│ +│ Valid N │ │ │ │ │ 3│ +│ Total N │ │ │ │ │ 6│ +│ ╶──────────────────────┼──────┼──────┼──────┼──────┼──────┤ +│ 3.00 Count │ 1│ 1│ 1│ 1│ 4│ +│ Column % │ 25.0%│ 25.0%│ 25.0%│ 25.0%│ .│ +│ Column Valid N %│ 25.0%│ .│ 25.0%│ 25.0%│ .│ +│ Column Total N %│ 25.0%│ 25.0%│ 25.0%│ 25.0%│ .│ +│ Row % │ 25.0%│ 25.0%│ 25.0%│ 25.0%│100.0%│ +│ Row Valid N % │ 33.3%│ .0%│ 33.3%│ 33.3%│100.0%│ +│ Row Total N % │ 16.7%│ 16.7%│ 16.7%│ 16.7%│100.0%│ +│ Valid N │ │ │ │ │ 3│ +│ Total N │ │ │ │ │ 6│ +│ ╶──────────────────────┼──────┼──────┼──────┼──────┼──────┤ +│ 4.00 Count │ 1│ 1│ 1│ 1│ 4│ +│ Column % │ 25.0%│ 25.0%│ 25.0%│ 25.0%│ .│ +│ Column Valid N %│ 25.0%│ .│ 25.0%│ 25.0%│ .│ +│ Column Total N %│ 25.0%│ 25.0%│ 25.0%│ 25.0%│ .│ +│ Row % │ 25.0%│ 25.0%│ 25.0%│ 25.0%│100.0%│ +│ Row Valid N % │ 33.3%│ .0%│ 33.3%│ 33.3%│100.0%│ +│ Row Total N % │ 16.7%│ 16.7%│ 16.7%│ 16.7%│100.0%│ +│ Valid N │ │ │ │ │ 3│ +│ Total N │ │ │ │ │ 6│ +│ ╶──────────────────────┼──────┼──────┼──────┼──────┼──────┤ +│ Total Count │ 4│ 4│ 4│ 4│ 16│ +│ Column % │100.0%│100.0%│100.0%│100.0%│ .│ +│ Column Valid N %│100.0%│ .│100.0%│100.0%│ .│ +│ Column Total N %│100.0%│100.0%│100.0%│100.0%│ .│ +│ Row % │ .│ .│ .│ .│ .│ +│ Row Valid N % │ .│ .│ .│ .│ .│ +│ Row Total N % │ .│ .│ .│ .│ .│ +│ Valid N │ 4│ 0│ 4│ 4│ 12│ +│ Total N │ 4│ 4│ 4│ 4│ 24│ +╰────────────────────────┴──────┴──────┴──────┴──────┴──────╯ +]) +AT_CLEANUP + +AT_SETUP([CTABLES SMISSING=LISTWISE]) +AT_KEYWORDS([SMISSING LISTWISE]) +AT_DATA([ctables.sps], +[[DATA LIST LIST NOTABLE/x y z. +BEGIN DATA. +1 . 40 +1 10 50 +1 20 60 +1 . . +1 30 . +END DATA. +VARIABLE LEVEL x (NOMINAL). + +CTABLES /TABLE (y + z) > x. +CTABLES /SMISSING LISTWISE /TABLE (y + z) > x. + +* The following doesn't come out as listwise because the tables are +separate, not linked by an > operator. +CTABLES /SMISSING LISTWISE /TABLE (y > x) + (z > x). +]]) +AT_CHECK([pspp ctables.sps -O box=unicode -O width=120], [0], [dnl + Custom Tables +╭────────┬─────╮ +│ │ Mean│ +├────────┼─────┤ +│y x 1.00│20.00│ +├────────┼─────┤ +│z x 1.00│50.00│ +╰────────┴─────╯ + + Custom Tables +╭────────┬─────╮ +│ │ Mean│ +├────────┼─────┤ +│y x 1.00│15.00│ +├────────┼─────┤ +│z x 1.00│55.00│ +╰────────┴─────╯ + + Custom Tables +╭────────┬─────╮ +│ │ Mean│ +├────────┼─────┤ +│y x 1.00│20.00│ +├────────┼─────┤ +│z x 1.00│50.00│ +╰────────┴─────╯ +]) +AT_CLEANUP + +AT_SETUP([CTABLES VLABELS - variables on different axes]) +AT_CHECK([ln $top_srcdir/examples/nhtsa.sav . || cp $top_srcdir/examples/nhtsa.sav .]) +AT_DATA([ctables.sps], +[[GET 'nhtsa.sav'. +CTABLES /VLABELS VARIABLES=qns3a qnd5a DISPLAY=DEFAULT /TABLE qnd5a BY qns3a. +CTABLES /VLABELS VARIABLES=qns3a qnd5a DISPLAY=NAME /TABLE qnd5a BY qns3a. +CTABLES /VLABELS VARIABLES=qns3a qnd5a DISPLAY=LABEL /TABLE qnd5a BY qns3a. +CTABLES /VLABELS VARIABLES=qns3a qnd5a DISPLAY=BOTH /TABLE qnd5a BY qns3a. +CTABLES /VLABELS VARIABLES=qns3a qnd5a DISPLAY=NONE /TABLE qnd5a BY qns3a. +]]) +AT_CHECK([pspp ctables.sps -O box=unicode], [0], [dnl + Custom Tables +╭────────────────────────────────────────────────────────────────┬────────────╮ +│ │S3a. GENDER:│ +│ ├─────┬──────┤ +│ │ Male│Female│ +│ ├─────┼──────┤ +│ │Count│ Count│ +├────────────────────────────────────────────────────────────────┼─────┼──────┤ +│D5a. What would you say is your primary Cuban │ 13│ 7│ +│ethnic background? Mexican │ 175│ 136│ +│ Spanish │ 20│ 28│ +│ South American │ 21│ 13│ +│ Central American │ 27│ 25│ +│ Puerto Rican, OR │ 37│ 41│ +│ Something else │ 35│ 33│ +│ Multiple - cannot │ 2│ 5│ +│ choose one │ │ │ +╰────────────────────────────────────────────────────────────────┴─────┴──────╯ + + Custom Tables +╭──────────────────────────────────┬────────────╮ +│ │ QNS3A │ +│ ├─────┬──────┤ +│ │ Male│Female│ +│ ├─────┼──────┤ +│ │Count│ Count│ +├──────────────────────────────────┼─────┼──────┤ +│QND5A Cuban │ 13│ 7│ +│ Mexican │ 175│ 136│ +│ Spanish │ 20│ 28│ +│ South American │ 21│ 13│ +│ Central American │ 27│ 25│ +│ Puerto Rican, OR │ 37│ 41│ +│ Something else │ 35│ 33│ +│ Multiple - cannot choose one│ 2│ 5│ +╰──────────────────────────────────┴─────┴──────╯ + + Custom Tables +╭────────────────────────────────────────────────────────────────┬────────────╮ +│ │S3a. GENDER:│ +│ ├─────┬──────┤ +│ │ Male│Female│ +│ ├─────┼──────┤ +│ │Count│ Count│ +├────────────────────────────────────────────────────────────────┼─────┼──────┤ +│D5a. What would you say is your primary Cuban │ 13│ 7│ +│ethnic background? Mexican │ 175│ 136│ +│ Spanish │ 20│ 28│ +│ South American │ 21│ 13│ +│ Central American │ 27│ 25│ +│ Puerto Rican, OR │ 37│ 41│ +│ Something else │ 35│ 33│ +│ Multiple - cannot │ 2│ 5│ +│ choose one │ │ │ +╰────────────────────────────────────────────────────────────────┴─────┴──────╯ + + Custom Tables +╭────────────────────────────────────────────────────────────┬────────────────╮ +│ │ QNS3A S3a. │ +│ │ GENDER: │ +│ ├───────┬────────┤ +│ │ Male │ Female │ +│ ├───────┼────────┤ +│ │ Count │ Count │ +├────────────────────────────────────────────────────────────┼───────┼────────┤ +│QND5A D5a. What would you say is your Cuban │ 13│ 7│ +│primary ethnic background? Mexican │ 175│ 136│ +│ Spanish │ 20│ 28│ +│ South American │ 21│ 13│ +│ Central American │ 27│ 25│ +│ Puerto Rican, OR │ 37│ 41│ +│ Something else │ 35│ 33│ +│ Multiple - cannot │ 2│ 5│ +│ choose one │ │ │ +╰────────────────────────────────────────────────────────────┴───────┴────────╯ + + Custom Tables +╭────────────────────────────┬─────┬──────╮ +│ │ Male│Female│ +│ ├─────┼──────┤ +│ │Count│ Count│ +├────────────────────────────┼─────┼──────┤ +│Cuban │ 13│ 7│ +│Mexican │ 175│ 136│ +│Spanish │ 20│ 28│ +│South American │ 21│ 13│ +│Central American │ 27│ 25│ +│Puerto Rican, OR │ 37│ 41│ +│Something else │ 35│ 33│ +│Multiple - cannot choose one│ 2│ 5│ +╰────────────────────────────┴─────┴──────╯ +]) +AT_CLEANUP + +AT_SETUP([CTABLES VLABELS - stacked variables]) +AT_KEYWORDS([stack stacking]) +AT_CHECK([ln $top_srcdir/examples/nhtsa.sav . || cp $top_srcdir/examples/nhtsa.sav .]) +AT_DATA([ctables.sps], +[[GET 'nhtsa.sav'. +CTABLES /VLABELS VARIABLES=qns3a DISPLAY=NAME /TABLE qnd5a + qns3a. +CTABLES /VLABELS VARIABLES=qnd5a DISPLAY=NAME /TABLE qnd5a + qns3a. +CTABLES /VLABELS VARIABLES=qns3a DISPLAY=NONE /TABLE qnd5a + qns3a. +CTABLES /VLABELS VARIABLES=qnd5a DISPLAY=NONE /TABLE qnd5a + qns3a. +CTABLES /VLABELS VARIABLES=qns3a qnd5a DISPLAY=NONE /TABLE qnd5a + qns3a. +]]) +AT_CHECK([pspp ctables.sps -O box=unicode], [0], [dnl + Custom Tables +╭───────────────────────────────────────────────────────────────────────┬─────╮ +│ │Count│ +├───────────────────────────────────────────────────────────────────────┼─────┤ +│D5a. What would you say is your primary ethnic Cuban │ 20│ +│background? Mexican │ 311│ +│ Spanish │ 48│ +│ South American │ 34│ +│ Central American │ 52│ +│ Puerto Rican, OR │ 78│ +│ Something else │ 68│ +│ Multiple - cannot │ 7│ +│ choose one │ │ +├───────────────────────────────────────────────────────────────────────┼─────┤ +│QNS3A Male │ 3132│ +│ Female │ 3867│ +╰───────────────────────────────────────────────────────────────────────┴─────╯ + + Custom Tables +╭─────────────────────────────────────────┬─────╮ +│ │Count│ +├─────────────────────────────────────────┼─────┤ +│QND5A Cuban │ 20│ +│ Mexican │ 311│ +│ Spanish │ 48│ +│ South American │ 34│ +│ Central American │ 52│ +│ Puerto Rican, OR │ 78│ +│ Something else │ 68│ +│ Multiple - cannot choose one│ 7│ +├─────────────────────────────────────────┼─────┤ +│S3a. GENDER: Male │ 3132│ +│ Female │ 3867│ +╰─────────────────────────────────────────┴─────╯ + + Custom Tables +╭───────────────────────────────────────────────────────────────────────┬─────╮ +│ │Count│ +├───────────────────────────────────────────────────────────────────────┼─────┤ +│D5a. What would you say is your primary ethnic Cuban │ 20│ +│background? Mexican │ 311│ +│ Spanish │ 48│ +│ South American │ 34│ +│ Central American │ 52│ +│ Puerto Rican, OR │ 78│ +│ Something else │ 68│ +│ Multiple - cannot │ 7│ +│ choose one │ │ +├───────────────────────────────────────────────────────────────────────┼─────┤ +│Male │ 3132│ +├───────────────────────────────────────────────────────────────────────┼─────┤ +│Female │ 3867│ +╰───────────────────────────────────────────────────────────────────────┴─────╯ + + Custom Tables +╭─────────────────────────────┬─────╮ +│ │Count│ +├─────────────────────────────┼─────┤ +│Cuban │ 20│ +├─────────────────────────────┼─────┤ +│Mexican │ 311│ +├─────────────────────────────┼─────┤ +│Spanish │ 48│ +├─────────────────────────────┼─────┤ +│South American │ 34│ +├─────────────────────────────┼─────┤ +│Central American │ 52│ +├─────────────────────────────┼─────┤ +│Puerto Rican, OR │ 78│ +├─────────────────────────────┼─────┤ +│Something else │ 68│ +├─────────────────────────────┼─────┤ +│Multiple - cannot choose one │ 7│ +├─────────────────────────────┼─────┤ +│S3a. GENDER: Male │ 3132│ +│ Female │ 3867│ +╰─────────────────────────────┴─────╯ + + Custom Tables +╭────────────────────────────┬─────╮ +│ │Count│ +├────────────────────────────┼─────┤ +│Cuban │ 20│ +│Mexican │ 311│ +│Spanish │ 48│ +│South American │ 34│ +│Central American │ 52│ +│Puerto Rican, OR │ 78│ +│Something else │ 68│ +│Multiple - cannot choose one│ 7│ +│Male │ 3132│ +│Female │ 3867│ +╰────────────────────────────┴─────╯ +]) +AT_CLEANUP + +AT_SETUP([CTABLES VLABELS - nested variables]) +AT_KEYWORDS([nest nesting]) +AT_CHECK([ln $top_srcdir/examples/nhtsa.sav . || cp $top_srcdir/examples/nhtsa.sav .]) +AT_DATA([ctables.sps], +[[GET 'nhtsa.sav'. +CTABLES /VLABELS VARIABLES=qns3a DISPLAY=NAME /TABLE qnd5a > qns3a. +CTABLES /VLABELS VARIABLES=qnd5a DISPLAY=NAME /TABLE qnd5a > qns3a. +CTABLES /VLABELS VARIABLES=qns3a DISPLAY=NONE /TABLE qnd5a > qns3a. +CTABLES /VLABELS VARIABLES=qnd5a DISPLAY=NONE /TABLE qnd5a > qns3a. +CTABLES /VLABELS VARIABLES=qns3a qnd5a DISPLAY=NONE /TABLE qnd5a > qns3a. +]]) +AT_CHECK([pspp ctables.sps -O box=unicode], [0], [dnl + Custom Tables +╭───────────────────────────────────────────────────────────────────────┬─────╮ +│ │Count│ +├───────────────────────────────────────────────────────────────────────┼─────┤ +│D5a. What would you say is your Cuban QNS3A Male │ 13│ +│primary ethnic background? Female│ 7│ +│ ╶─────────────────────────────────┼─────┤ +│ Mexican QNS3A Male │ 175│ +│ Female│ 136│ +│ ╶─────────────────────────────────┼─────┤ +│ Spanish QNS3A Male │ 20│ +│ Female│ 28│ +│ ╶─────────────────────────────────┼─────┤ +│ South American QNS3A Male │ 21│ +│ Female│ 13│ +│ ╶─────────────────────────────────┼─────┤ +│ Central American QNS3A Male │ 27│ +│ Female│ 25│ +│ ╶─────────────────────────────────┼─────┤ +│ Puerto Rican, OR QNS3A Male │ 37│ +│ Female│ 41│ +│ ╶─────────────────────────────────┼─────┤ +│ Something else QNS3A Male │ 35│ +│ Female│ 33│ +│ ╶─────────────────────────────────┼─────┤ +│ Multiple - cannot QNS3A Male │ 2│ +│ choose one Female│ 5│ +╰───────────────────────────────────────────────────────────────────────┴─────╯ + + Custom Tables +╭──────────────────────────────────────────────────────┬─────╮ +│ │Count│ +├──────────────────────────────────────────────────────┼─────┤ +│QND5A Cuban S3a. GENDER: Male │ 13│ +│ Female│ 7│ +│ ╶────────────────────────────────────────────────┼─────┤ +│ Mexican S3a. GENDER: Male │ 175│ +│ Female│ 136│ +│ ╶────────────────────────────────────────────────┼─────┤ +│ Spanish S3a. GENDER: Male │ 20│ +│ Female│ 28│ +│ ╶────────────────────────────────────────────────┼─────┤ +│ South American S3a. GENDER: Male │ 21│ +│ Female│ 13│ +│ ╶────────────────────────────────────────────────┼─────┤ +│ Central American S3a. GENDER: Male │ 27│ +│ Female│ 25│ +│ ╶────────────────────────────────────────────────┼─────┤ +│ Puerto Rican, OR S3a. GENDER: Male │ 37│ +│ Female│ 41│ +│ ╶────────────────────────────────────────────────┼─────┤ +│ Something else S3a. GENDER: Male │ 35│ +│ Female│ 33│ +│ ╶────────────────────────────────────────────────┼─────┤ +│ Multiple - cannot choose one S3a. GENDER: Male │ 2│ +│ Female│ 5│ +╰──────────────────────────────────────────────────────┴─────╯ + + Custom Tables +╭───────────────────────────────────────────────────────────────────────┬─────╮ +│ │Count│ +├───────────────────────────────────────────────────────────────────────┼─────┤ +│D5a. What would you say is your primary Cuban Male │ 13│ +│ethnic background? Female│ 7│ +│ ╶────────────────────────────┼─────┤ +│ Mexican Male │ 175│ +│ Female│ 136│ +│ ╶────────────────────────────┼─────┤ +│ Spanish Male │ 20│ +│ Female│ 28│ +│ ╶────────────────────────────┼─────┤ +│ South American Male │ 21│ +│ Female│ 13│ +│ ╶────────────────────────────┼─────┤ +│ Central American Male │ 27│ +│ Female│ 25│ +│ ╶────────────────────────────┼─────┤ +│ Puerto Rican, OR Male │ 37│ +│ Female│ 41│ +│ ╶────────────────────────────┼─────┤ +│ Something else Male │ 35│ +│ Female│ 33│ +│ ╶────────────────────────────┼─────┤ +│ Multiple - cannot Male │ 2│ +│ choose one Female│ 5│ +╰───────────────────────────────────────────────────────────────────────┴─────╯ + + Custom Tables +╭────────────────────────────────────────────────┬─────╮ +│ │Count│ +├────────────────────────────────────────────────┼─────┤ +│Cuban S3a. GENDER: Male │ 13│ +│ Female│ 7│ +├────────────────────────────────────────────────┼─────┤ +│Mexican S3a. GENDER: Male │ 175│ +│ Female│ 136│ +├────────────────────────────────────────────────┼─────┤ +│Spanish S3a. GENDER: Male │ 20│ +│ Female│ 28│ +├────────────────────────────────────────────────┼─────┤ +│South American S3a. GENDER: Male │ 21│ +│ Female│ 13│ +├────────────────────────────────────────────────┼─────┤ +│Central American S3a. GENDER: Male │ 27│ +│ Female│ 25│ +├────────────────────────────────────────────────┼─────┤ +│Puerto Rican, OR S3a. GENDER: Male │ 37│ +│ Female│ 41│ +├────────────────────────────────────────────────┼─────┤ +│Something else S3a. GENDER: Male │ 35│ +│ Female│ 33│ +├────────────────────────────────────────────────┼─────┤ +│Multiple - cannot choose one S3a. GENDER: Male │ 2│ +│ Female│ 5│ +╰────────────────────────────────────────────────┴─────╯ + + Custom Tables +╭───────────────────────────────────┬─────╮ +│ │Count│ +├───────────────────────────────────┼─────┤ +│Cuban Male │ 13│ +│ Female│ 7│ +├───────────────────────────────────┼─────┤ +│Mexican Male │ 175│ +│ Female│ 136│ +├───────────────────────────────────┼─────┤ +│Spanish Male │ 20│ +│ Female│ 28│ +├───────────────────────────────────┼─────┤ +│South American Male │ 21│ +│ Female│ 13│ +├───────────────────────────────────┼─────┤ +│Central American Male │ 27│ +│ Female│ 25│ +├───────────────────────────────────┼─────┤ +│Puerto Rican, OR Male │ 37│ +│ Female│ 41│ +├───────────────────────────────────┼─────┤ +│Something else Male │ 35│ +│ Female│ 33│ +├───────────────────────────────────┼─────┤ +│Multiple - cannot choose one Male │ 2│ +│ Female│ 5│ +╰───────────────────────────────────┴─────╯ +]) +AT_CLEANUP + +AT_SETUP([CTABLES FORMAT EMPTY]) +AT_CHECK([ln $top_srcdir/examples/nhtsa.sav . || cp $top_srcdir/examples/nhtsa.sav .]) +AT_DATA([ctables.sps], +[[GET 'nhtsa.sav'. +CTABLES /FORMAT EMPTY=ZERO /TABLE qnd5a BY qnd5. +CTABLES /FORMAT EMPTY=BLANK /TABLE qnd5a BY qnd5. +CTABLES /FORMAT EMPTY='n/a' /TABLE qnd5a BY qnd5. +]]) +AT_CHECK([pspp ctables.sps -O box=unicode], [0], [dnl + Custom Tables +╭─────────────────────────────────────────────┬───────────────────────────────╮ +│ │ D5. ETHNICITY: Are you of │ +│ │ Hispanic or Latino origin or │ +│ │ descent? │ +│ ├───────────────┬───────────────┤ +│ │ Yes │ No │ +│ ├───────────────┼───────────────┤ +│ │ Count │ Count │ +├─────────────────────────────────────────────┼───────────────┼───────────────┤ +│D5a. What would you say is Cuban │ 20│ 0│ +│your primary ethnic Mexican │ 311│ 0│ +│background? Spanish │ 48│ 0│ +│ South American │ 34│ 0│ +│ Central American│ 52│ 0│ +│ Puerto Rican, OR│ 78│ 0│ +│ Something else │ 68│ 0│ +│ Multiple - │ 7│ 0│ +│ cannot choose │ │ │ +│ one │ │ │ +╰─────────────────────────────────────────────┴───────────────┴───────────────╯ + + Custom Tables +╭─────────────────────────────────────────────┬───────────────────────────────╮ +│ │ D5. ETHNICITY: Are you of │ +│ │ Hispanic or Latino origin or │ +│ │ descent? │ +│ ├───────────────┬───────────────┤ +│ │ Yes │ No │ +│ ├───────────────┼───────────────┤ +│ │ Count │ Count │ +├─────────────────────────────────────────────┼───────────────┼───────────────┤ +│D5a. What would you say is Cuban │ 20│ │ +│your primary ethnic Mexican │ 311│ │ +│background? Spanish │ 48│ │ +│ South American │ 34│ │ +│ Central American│ 52│ │ +│ Puerto Rican, OR│ 78│ │ +│ Something else │ 68│ │ +│ Multiple - │ 7│ │ +│ cannot choose │ │ │ +│ one │ │ │ +╰─────────────────────────────────────────────┴───────────────┴───────────────╯ + + Custom Tables +╭─────────────────────────────────────────────┬───────────────────────────────╮ +│ │ D5. ETHNICITY: Are you of │ +│ │ Hispanic or Latino origin or │ +│ │ descent? │ +│ ├───────────────┬───────────────┤ +│ │ Yes │ No │ +│ ├───────────────┼───────────────┤ +│ │ Count │ Count │ +├─────────────────────────────────────────────┼───────────────┼───────────────┤ +│D5a. What would you say is Cuban │ 20│n/a │ +│your primary ethnic Mexican │ 311│n/a │ +│background? Spanish │ 48│n/a │ +│ South American │ 34│n/a │ +│ Central American│ 52│n/a │ +│ Puerto Rican, OR│ 78│n/a │ +│ Something else │ 68│n/a │ +│ Multiple - │ 7│n/a │ +│ cannot choose │ │ │ +│ one │ │ │ +╰─────────────────────────────────────────────┴───────────────┴───────────────╯ +]) +AT_CLEANUP + +AT_SETUP([CTABLES FORMAT MISSING]) +AT_CHECK([ln $top_srcdir/examples/nhtsa.sav . || cp $top_srcdir/examples/nhtsa.sav .]) +AT_DATA([ctables.sps], +[[GET 'nhtsa.sav'. +CTABLES /FORMAT MISSING='(no data)' /TABLE qnd5a[COLPCT] BY qnd5. +]]) +AT_CHECK([pspp ctables.sps -O box=unicode], [0], [dnl + Custom Tables +╭─────────────────────────────────────────────┬───────────────────────────────╮ +│ │ D5. ETHNICITY: Are you of │ +│ │ Hispanic or Latino origin or │ +│ │ descent? │ +│ ├───────────────┬───────────────┤ +│ │ Yes │ No │ +│ ├───────────────┼───────────────┤ +│ │ Column % │ Column % │ +├─────────────────────────────────────────────┼───────────────┼───────────────┤ +│D5a. What would you say is Cuban │ 3.2%│(no data) │ +│your primary ethnic Mexican │ 50.3%│(no data) │ +│background? Spanish │ 7.8%│(no data) │ +│ South American │ 5.5%│(no data) │ +│ Central American│ 8.4%│(no data) │ +│ Puerto Rican, OR│ 12.6%│(no data) │ +│ Something else │ 11.0%│(no data) │ +│ Multiple - │ 1.1%│(no data) │ +│ cannot choose │ │ │ +│ one │ │ │ +╰─────────────────────────────────────────────┴───────────────┴───────────────╯ +]) +AT_CLEANUP + +AT_SETUP([CTABLES HIDESMALLCOUNTS]) +AT_CHECK([ln $top_srcdir/examples/nhtsa.sav . || cp $top_srcdir/examples/nhtsa.sav .]) +AT_DATA([ctables.sps], +[[GET 'nhtsa.sav'. +CTABLES /TABLE qn38[c][COUNT, COLPCT]. +CTABLES /HIDESMALLCOUNTS /TABLE qn38[c][COUNT, COLPCT]. +CTABLES /HIDESMALLCOUNTS COUNT=10 /TABLE qn38[c][COUNT, COLPCT]. +]]) +AT_CHECK([pspp ctables.sps -O box=unicode], [0], [dnl + Custom Tables +╭──────────────────────────────────────────────────────────────┬─────┬────────╮ +│ │Count│Column %│ +├──────────────────────────────────────────────────────────────┼─────┼────────┤ +│38. How many drinks did you have on that Less than one│ 7│ .5%│ +│occasion? 1 │ 491│ 34.9%│ +│ 2 │ 462│ 32.9%│ +│ 3 │ 229│ 16.3%│ +│ 4 │ 82│ 5.8%│ +│ 5 │ 56│ 4.0%│ +│ 6 │ 32│ 2.3%│ +│ 7 │ 9│ .6%│ +│ 8 │ 8│ .6%│ +│ 9 │ 4│ .3%│ +│ 10 │ 6│ .4%│ +│ 11 │ 2│ .1%│ +│ 12 │ 5│ .4%│ +│ 14 │ 1│ .1%│ +│ 15 │ 1│ .1%│ +│ 18 │ 1│ .1%│ +│ 20 │ 4│ .3%│ +│ 25 │ 1│ .1%│ +│ 30 │ 3│ .2%│ +│ 60 │ 1│ .1%│ +│ 99+ │ 0│ .0%│ +╰──────────────────────────────────────────────────────────────┴─────┴────────╯ + + Custom Tables +╭──────────────────────────────────────────────────────────────┬─────┬────────╮ +│ │Count│Column %│ +├──────────────────────────────────────────────────────────────┼─────┼────────┤ +│38. How many drinks did you have on that Less than one│ 7│ .5%│ +│occasion? 1 │ 491│ 34.9%│ +│ 2 │ 462│ 32.9%│ +│ 3 │ 229│ 16.3%│ +│ 4 │ 82│ 5.8%│ +│ 5 │ 56│ 4.0%│ +│ 6 │ 32│ 2.3%│ +│ 7 │ 9│ .6%│ +│ 8 │ 8│ .6%│ +│ 9 │<5 │ .3%│ +│ 10 │ 6│ .4%│ +│ 11 │<5 │ .1%│ +│ 12 │ 5│ .4%│ +│ 14 │<5 │ .1%│ +│ 15 │<5 │ .1%│ +│ 18 │<5 │ .1%│ +│ 20 │<5 │ .3%│ +│ 25 │<5 │ .1%│ +│ 30 │<5 │ .2%│ +│ 60 │<5 │ .1%│ +│ 99+ │<5 │ .0%│ +╰──────────────────────────────────────────────────────────────┴─────┴────────╯ + + Custom Tables +╭──────────────────────────────────────────────────────────────┬─────┬────────╮ +│ │Count│Column %│ +├──────────────────────────────────────────────────────────────┼─────┼────────┤ +│38. How many drinks did you have on that Less than one│<10 │ .5%│ +│occasion? 1 │ 491│ 34.9%│ +│ 2 │ 462│ 32.9%│ +│ 3 │ 229│ 16.3%│ +│ 4 │ 82│ 5.8%│ +│ 5 │ 56│ 4.0%│ +│ 6 │ 32│ 2.3%│ +│ 7 │<10 │ .6%│ +│ 8 │<10 │ .6%│ +│ 9 │<10 │ .3%│ +│ 10 │<10 │ .4%│ +│ 11 │<10 │ .1%│ +│ 12 │<10 │ .4%│ +│ 14 │<10 │ .1%│ +│ 15 │<10 │ .1%│ +│ 18 │<10 │ .1%│ +│ 20 │<10 │ .3%│ +│ 25 │<10 │ .1%│ +│ 30 │<10 │ .2%│ +│ 60 │<10 │ .1%│ +│ 99+ │<10 │ .0%│ +╰──────────────────────────────────────────────────────────────┴─────┴────────╯ +]) +AT_CLEANUP + +AT_SETUP([CTABLES FORMAT MINCOLWIDTH MAXCOLWIDTH]) +AT_CHECK([ln $top_srcdir/examples/nhtsa.sav . || cp $top_srcdir/examples/nhtsa.sav .]) +AT_DATA([ctables.sps], +[[GET 'nhtsa.sav'. +CTABLES /FORMAT MINCOLWIDTH=1 MAXCOLWIDTH=2 UNITS=INCHES /TABLE BY qns3a. +]]) +AT_CHECK([pspp ctables.sps -o - -O box=unicode -o pspp.spv], [0], [dnl + Custom Tables +╭────────────╮ +│S3a. GENDER:│ +├─────┬──────┤ +│ Male│Female│ +├─────┼──────┤ +│Count│ Count│ +├─────┼──────┤ +│ 3132│ 3867│ +╰─────┴──────╯ +]) +AT_CHECK([pspp-output get-table-look pspp.spv pspp.stt]) +AT_CHECK([sed 's/ /\n/g' pspp.stt | grep ColumnWidth | sort], [0], [dnl +maximumColumnWidth="192" +minimumColumnWidth="96" +]) +AT_CLEANUP + +AT_SETUP([CTABLES special formats]) +AT_KEYWORDS([NEGPAREN NEQUAL PAREN PCTPAREN]) +AT_CHECK([ln $top_srcdir/examples/nhtsa.sav . || cp $top_srcdir/examples/nhtsa.sav .]) +AT_DATA([ctables.sps], +[[GET 'nhtsa.sav'. +COMPUTE x = qnd3 - 4. +CTABLES /TABLE x[MINIMUM NEGPAREN8.1, MINIMUM NEQUAL8.1, MINIMUM PAREN8.1, MINIMUM PCTPAREN8.1, MAXIMUM NEGPAREN8.1, MAXIMUM NEQUAL8.1, MAXIMUM PAREN8.1, MAXIMUM PCTPAREN8.1]. +]]) +AT_CHECK([pspp ctables.sps -O box=unicode], [0], [dnl + Custom Tables +╭─┬───────┬───────┬───────┬───────┬───────┬───────┬───────┬───────╮ +│ │Minimum│Minimum│Minimum│Minimum│Maximum│Maximum│Maximum│Maximum│ +├─┼───────┼───────┼───────┼───────┼───────┼───────┼───────┼───────┤ +│x│(3.0) │N=-3.0 │(-3.0) │(-3.0%)│8.0 │N=8.0 │(8.0) │(8.0%) │ +╰─┴───────┴───────┴───────┴───────┴───────┴───────┴───────┴───────╯ +]) +AT_CLEANUP + +AT_SETUP([CTABLES TITLES]) +AT_CHECK([ln $top_srcdir/examples/nhtsa.sav . || cp $top_srcdir/examples/nhtsa.sav .]) +AT_DATA([ctables.sps], +[[GET 'nhtsa.sav'. +CTABLES + /VLABELS VARIABLES=qn1 DISPLAY=NONE + /TABLE ((qn1[c][COUNT])) BY qns3a[c] > qnd5 + /TITLES TITLE='How often do you drive?' + CAPTION='Generated )TIME on )DATE' + CORNER=')TABLE'. +]]) +AT_CHECK([pspp ctables.sps -O box=unicode | sed 's/..:..:../HH:MM:SS/ +s&../../..&MM/DD/YY&'], [0], [dnl + How often do you drive? +╭───────────────────────────────────┬─────────────────────────────────────────╮ +│ │ S3a. GENDER: │ +│ ├────────────────────┬────────────────────┤ +│ │ Male │ Female │ +│ ├────────────────────┼────────────────────┤ +│ │ D5. ETHNICITY: Are │ D5. ETHNICITY: Are │ +│ │ you of Hispanic or │ you of Hispanic or │ +│ │ Latino origin or │ Latino origin or │ +│( ( 1. How often do you usually │ descent? │ descent? │ +│drive a car or other motor ├─────────┬──────────┼─────────┬──────────┤ +│vehicle?) ) BY S3a. GENDER: > D5. │ Yes │ No │ Yes │ No │ +│ETHNICITY: Are you of Hispanic or ├─────────┼──────────┼─────────┼──────────┤ +│Latino origin or descent? │ Count │ Count │ Count │ Count │ +├───────────────────────────────────┼─────────┼──────────┼─────────┼──────────┤ +│Every day │ 218│ 2066│ 166│ 2175│ +│Several days a week │ 44│ 391│ 45│ 782│ +│Once a week or less │ 16│ 109│ 12│ 223│ +│Only certain times a year │ 15│ 41│ 11│ 61│ +│Never │ 39│ 150│ 56│ 278│ +╰───────────────────────────────────┴─────────┴──────────┴─────────┴──────────╯ +Generated HH:MM:SS on MM/DD/YY +]) +AT_CLEANUP + +AT_SETUP([CTABLES area definitions]) +AT_CHECK([ln $top_srcdir/examples/nhtsa.sav . || cp $top_srcdir/examples/nhtsa.sav .]) +AT_DATA([ctables.sps], +[[GET 'nhtsa.sav'. +CTABLES + /VLABELS VARIABLES=ALL DISPLAY=NAME + /TABLE qn61 > qn57 BY qnd7a > qn86 + qn64b BY qns3a[TABLEID, LAYERID, SUBTABLEID] + /SLABELS POSITION=ROW + /TABLE qn61 > qn57 BY qnd7a > qn86 + qn64b BY qns3a[ROWID, LAYERROWID] + /SLABELS POSITION=ROW + /TABLE qn61 > qn57 BY qnd7a > qn86 + qn64b BY qns3a[COLID, LAYERCOLID] + /SLABELS POSITION=ROW. +]]) +AT_CHECK([pspp ctables.sps --table-look="$builddir"/all-layers.stt -O box=unicode -O width=80], [0], [dnl + Custom Tables +Male +╭─────────────────────────────┬─────────────┬──────╮ +│ │ QND7A │ QN64B│ +│ ├──────┬──────┼───┬──┤ +│ │ Yes │ No │ │ │ +│ ├──────┼──────┤ │ │ +│ │ QN86 │ QN86 │ │ │ +│ ├───┬──┼───┬──┤ │ │ +│ │Yes│No│Yes│No│Yes│No│ +├─────────────────────────────┼───┼──┼───┼──┼───┼──┤ +│QN61 Yes QN57 Yes Table ID │ 1│ 1│ 1│ 1│ 2│ 2│ +│ Layer ID │ 1│ 1│ 1│ 1│ 2│ 2│ +│ Subtable ID│ 1│ 1│ 2│ 2│ 3│ 3│ +│ ╶───────────────┼───┼──┼───┼──┼───┼──┤ +│ No Table ID │ 1│ 1│ 1│ 1│ 2│ 2│ +│ Layer ID │ 1│ 1│ 1│ 1│ 2│ 2│ +│ Subtable ID│ 1│ 1│ 2│ 2│ 3│ 3│ +│ ╶────────────────────────┼───┼──┼───┼──┼───┼──┤ +│ No QN57 Yes Table ID │ 1│ 1│ 1│ 1│ 2│ 2│ +│ Layer ID │ 1│ 1│ 1│ 1│ 2│ 2│ +│ Subtable ID│ 4│ 4│ 5│ 5│ 6│ 6│ +│ ╶───────────────┼───┼──┼───┼──┼───┼──┤ +│ No Table ID │ 1│ 1│ 1│ 1│ 2│ 2│ +│ Layer ID │ 1│ 1│ 1│ 1│ 2│ 2│ +│ Subtable ID│ 4│ 4│ 5│ 5│ 6│ 6│ +╰─────────────────────────────┴───┴──┴───┴──┴───┴──╯ + + Custom Tables +Female +╭─────────────────────────────┬─────────────┬──────╮ +│ │ QND7A │ QN64B│ +│ ├──────┬──────┼───┬──┤ +│ │ Yes │ No │ │ │ +│ ├──────┼──────┤ │ │ +│ │ QN86 │ QN86 │ │ │ +│ ├───┬──┼───┬──┤ │ │ +│ │Yes│No│Yes│No│Yes│No│ +├─────────────────────────────┼───┼──┼───┼──┼───┼──┤ +│QN61 Yes QN57 Yes Table ID │ 1│ 1│ 1│ 1│ 2│ 2│ +│ Layer ID │ 3│ 3│ 3│ 3│ 4│ 4│ +│ Subtable ID│ 7│ 7│ 8│ 8│ 9│ 9│ +│ ╶───────────────┼───┼──┼───┼──┼───┼──┤ +│ No Table ID │ 1│ 1│ 1│ 1│ 2│ 2│ +│ Layer ID │ 3│ 3│ 3│ 3│ 4│ 4│ +│ Subtable ID│ 7│ 7│ 8│ 8│ 9│ 9│ +│ ╶────────────────────────┼───┼──┼───┼──┼───┼──┤ +│ No QN57 Yes Table ID │ 1│ 1│ 1│ 1│ 2│ 2│ +│ Layer ID │ 3│ 3│ 3│ 3│ 4│ 4│ +│ Subtable ID│ 10│10│ 11│11│ 12│12│ +│ ╶───────────────┼───┼──┼───┼──┼───┼──┤ +│ No Table ID │ 1│ 1│ 1│ 1│ 2│ 2│ +│ Layer ID │ 3│ 3│ 3│ 3│ 4│ 4│ +│ Subtable ID│ 10│10│ 11│11│ 12│12│ +╰─────────────────────────────┴───┴──┴───┴──┴───┴──╯ + + Custom Tables +Male +╭──────────────────────────────┬─────────────┬──────╮ +│ │ QND7A │ QN64B│ +│ ├──────┬──────┼───┬──┤ +│ │ Yes │ No │ │ │ +│ ├──────┼──────┤ │ │ +│ │ QN86 │ QN86 │ │ │ +│ ├───┬──┼───┬──┤ │ │ +│ │Yes│No│Yes│No│Yes│No│ +├──────────────────────────────┼───┼──┼───┼──┼───┼──┤ +│QN61 Yes QN57 Yes Row ID │ 1│ 1│ 2│ 2│ 3│ 3│ +│ Layer Row ID│ 1│ 1│ 1│ 1│ 2│ 2│ +│ ╶────────────────┼───┼──┼───┼──┼───┼──┤ +│ No Row ID │ 4│ 4│ 5│ 5│ 6│ 6│ +│ Layer Row ID│ 3│ 3│ 3│ 3│ 4│ 4│ +│ ╶─────────────────────────┼───┼──┼───┼──┼───┼──┤ +│ No QN57 Yes Row ID │ 7│ 7│ 8│ 8│ 9│ 9│ +│ Layer Row ID│ 5│ 5│ 5│ 5│ 6│ 6│ +│ ╶────────────────┼───┼──┼───┼──┼───┼──┤ +│ No Row ID │ 10│10│ 11│11│ 12│12│ +│ Layer Row ID│ 7│ 7│ 7│ 7│ 8│ 8│ +╰──────────────────────────────┴───┴──┴───┴──┴───┴──╯ + + Custom Tables +Female +╭──────────────────────────────┬─────────────┬──────╮ +│ │ QND7A │ QN64B│ +│ ├──────┬──────┼───┬──┤ +│ │ Yes │ No │ │ │ +│ ├──────┼──────┤ │ │ +│ │ QN86 │ QN86 │ │ │ +│ ├───┬──┼───┬──┤ │ │ +│ │Yes│No│Yes│No│Yes│No│ +├──────────────────────────────┼───┼──┼───┼──┼───┼──┤ +│QN61 Yes QN57 Yes Row ID │ 13│13│ 14│14│ 15│15│ +│ Layer Row ID│ 9│ 9│ 9│ 9│ 10│10│ +│ ╶────────────────┼───┼──┼───┼──┼───┼──┤ +│ No Row ID │ 16│16│ 17│17│ 18│18│ +│ Layer Row ID│ 11│11│ 11│11│ 12│12│ +│ ╶─────────────────────────┼───┼──┼───┼──┼───┼──┤ +│ No QN57 Yes Row ID │ 19│19│ 20│20│ 21│21│ +│ Layer Row ID│ 13│13│ 13│13│ 14│14│ +│ ╶────────────────┼───┼──┼───┼──┼───┼──┤ +│ No Row ID │ 22│22│ 23│23│ 24│24│ +│ Layer Row ID│ 15│15│ 15│15│ 16│16│ +╰──────────────────────────────┴───┴──┴───┴──┴───┴──╯ + + Custom Tables +Male +╭─────────────────────────────────┬─────────────┬──────╮ +│ │ QND7A │ QN64B│ +│ ├──────┬──────┼───┬──┤ +│ │ Yes │ No │ │ │ +│ ├──────┼──────┤ │ │ +│ │ QN86 │ QN86 │ │ │ +│ ├───┬──┼───┬──┤ │ │ +│ │Yes│No│Yes│No│Yes│No│ +├─────────────────────────────────┼───┼──┼───┼──┼───┼──┤ +│QN61 Yes QN57 Yes Column ID │ 1│ 2│ 3│ 4│ 5│ 6│ +│ Layer Column ID│ 1│ 2│ 3│ 4│ 5│ 6│ +│ ╶───────────────────┼───┼──┼───┼──┼───┼──┤ +│ No Column ID │ 1│ 2│ 3│ 4│ 5│ 6│ +│ Layer Column ID│ 1│ 2│ 3│ 4│ 5│ 6│ +│ ╶────────────────────────────┼───┼──┼───┼──┼───┼──┤ +│ No QN57 Yes Column ID │ 7│ 8│ 9│10│ 11│12│ +│ Layer Column ID│ 1│ 2│ 3│ 4│ 5│ 6│ +│ ╶───────────────────┼───┼──┼───┼──┼───┼──┤ +│ No Column ID │ 7│ 8│ 9│10│ 11│12│ +│ Layer Column ID│ 1│ 2│ 3│ 4│ 5│ 6│ +╰─────────────────────────────────┴───┴──┴───┴──┴───┴──╯ + + Custom Tables +Female +╭─────────────────────────────────┬─────────────┬──────╮ +│ │ QND7A │ QN64B│ +│ ├──────┬──────┼───┬──┤ +│ │ Yes │ No │ │ │ +│ ├──────┼──────┤ │ │ +│ │ QN86 │ QN86 │ │ │ +│ ├───┬──┼───┬──┤ │ │ +│ │Yes│No│Yes│No│Yes│No│ +├─────────────────────────────────┼───┼──┼───┼──┼───┼──┤ +│QN61 Yes QN57 Yes Column ID │ 13│14│ 15│16│ 17│18│ +│ Layer Column ID│ 7│ 8│ 9│10│ 11│12│ +│ ╶───────────────────┼───┼──┼───┼──┼───┼──┤ +│ No Column ID │ 13│14│ 15│16│ 17│18│ +│ Layer Column ID│ 7│ 8│ 9│10│ 11│12│ +│ ╶────────────────────────────┼───┼──┼───┼──┼───┼──┤ +│ No QN57 Yes Column ID │ 19│20│ 21│22│ 23│24│ +│ Layer Column ID│ 7│ 8│ 9│10│ 11│12│ +│ ╶───────────────────┼───┼──┼───┼──┼───┼──┤ +│ No Column ID │ 19│20│ 21│22│ 23│24│ +│ Layer Column ID│ 7│ 8│ 9│10│ 11│12│ +╰─────────────────────────────────┴───┴──┴───┴──┴───┴──╯ +]) +AT_CLEANUP + +AT_SETUP([CTABLES area definitions with CLABELS ROWLABELS=OPPOSITE]) +AT_KEYWORDS([ROWLABELS OPPOSITE]) +AT_CHECK([ln $top_srcdir/examples/nhtsa.sav . || cp $top_srcdir/examples/nhtsa.sav .]) +AT_DATA([ctables.sps], +[[GET 'nhtsa.sav'. +CTABLES + /VLABELS VARIABLES=ALL DISPLAY=NAME + /TABLE qn26 > qn61 > qn57 BY qn27 > qnd7a > qn86 BY qns3a[TABLEID, LAYERID, SUBTABLEID] + /SLABELS POSITION=ROW + /CLABELS ROWLABELS=OPPOSITE + /TABLE qn26 > qn61 > qn57 BY qn27 > qnd7a > qn86 BY qns3a[ROWID, LAYERROWID] + /SLABELS POSITION=ROW + /CLABELS ROWLABELS=OPPOSITE + /TABLE qn26 > qn61 > qn57 BY qn27 > qnd7a > qn86 BY qns3a[COLID, LAYERCOLID] + /SLABELS POSITION=ROW + /CLABELS ROWLABELS=OPPOSITE. +]]) +AT_CHECK([pspp ctables.sps --table-look="$builddir"/all-layers.stt -O box=unicode -O width=120], [0], [dnl + Custom Tables +Male +╭──────────────────────────────────┬───────────────────────────────────────────────────────╮ +│ │ QN27 │ +│ ├───────────────────────────┬───────────────────────────┤ +│ │ Yes │ No │ +│ ├───────────────────────────┼───────────────────────────┤ +│ │ QND7A │ QND7A │ +│ ├─────────────┬─────────────┼─────────────┬─────────────┤ +│ │ Yes │ No │ Yes │ No │ +│ ├─────────────┼─────────────┼─────────────┼─────────────┤ +│ │ QN86 │ QN86 │ QN86 │ QN86 │ +│ ├──────┬──────┼──────┬──────┼──────┬──────┼──────┬──────┤ +│ │ Yes │ No │ Yes │ No │ Yes │ No │ Yes │ No │ +│ ├───┬──┼───┬──┼───┬──┼───┬──┼───┬──┼───┬──┼───┬──┼───┬──┤ +│ │Yes│No│Yes│No│Yes│No│Yes│No│Yes│No│Yes│No│Yes│No│Yes│No│ +├──────────────────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┤ +│QN26 Yes QN61 Yes QN57 Table ID │ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ +│ Layer ID │ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ +│ Subtable ID│ 1│ 1│ 2│ 2│ 3│ 3│ 4│ 4│ 5│ 5│ 6│ 6│ 7│ 7│ 8│ 8│ +│ ╶────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┤ +│ No QN57 Table ID │ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ +│ Layer ID │ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ +│ Subtable ID│ 1│ 1│ 2│ 2│ 3│ 3│ 4│ 4│ 5│ 5│ 6│ 6│ 7│ 7│ 8│ 8│ +│ ╶─────────────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┤ +│ No QN61 Yes QN57 Table ID │ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ +│ Layer ID │ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ +│ Subtable ID│ 9│ 9│ 10│10│ 11│11│ 12│12│ 13│13│ 14│14│ 15│15│ 16│16│ +│ ╶────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┤ +│ No QN57 Table ID │ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ +│ Layer ID │ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ +│ Subtable ID│ 9│ 9│ 10│10│ 11│11│ 12│12│ 13│13│ 14│14│ 15│15│ 16│16│ +╰──────────────────────────────────┴───┴──┴───┴──┴───┴──┴───┴──┴───┴──┴───┴──┴───┴──┴───┴──╯ + + Custom Tables +Female +╭──────────────────────────────────┬───────────────────────────────────────────────────────╮ +│ │ QN27 │ +│ ├───────────────────────────┬───────────────────────────┤ +│ │ Yes │ No │ +│ ├───────────────────────────┼───────────────────────────┤ +│ │ QND7A │ QND7A │ +│ ├─────────────┬─────────────┼─────────────┬─────────────┤ +│ │ Yes │ No │ Yes │ No │ +│ ├─────────────┼─────────────┼─────────────┼─────────────┤ +│ │ QN86 │ QN86 │ QN86 │ QN86 │ +│ ├──────┬──────┼──────┬──────┼──────┬──────┼──────┬──────┤ +│ │ Yes │ No │ Yes │ No │ Yes │ No │ Yes │ No │ +│ ├───┬──┼───┬──┼───┬──┼───┬──┼───┬──┼───┬──┼───┬──┼───┬──┤ +│ │Yes│No│Yes│No│Yes│No│Yes│No│Yes│No│Yes│No│Yes│No│Yes│No│ +├──────────────────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┤ +│QN26 Yes QN61 Yes QN57 Table ID │ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ +│ Layer ID │ 2│ 2│ 2│ 2│ 2│ 2│ 2│ 2│ 2│ 2│ 2│ 2│ 2│ 2│ 2│ 2│ +│ Subtable ID│ 17│17│ 18│18│ 19│19│ 20│20│ 21│21│ 22│22│ 23│23│ 24│24│ +│ ╶────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┤ +│ No QN57 Table ID │ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ +│ Layer ID │ 2│ 2│ 2│ 2│ 2│ 2│ 2│ 2│ 2│ 2│ 2│ 2│ 2│ 2│ 2│ 2│ +│ Subtable ID│ 17│17│ 18│18│ 19│19│ 20│20│ 21│21│ 22│22│ 23│23│ 24│24│ +│ ╶─────────────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┤ +│ No QN61 Yes QN57 Table ID │ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ +│ Layer ID │ 2│ 2│ 2│ 2│ 2│ 2│ 2│ 2│ 2│ 2│ 2│ 2│ 2│ 2│ 2│ 2│ +│ Subtable ID│ 25│25│ 26│26│ 27│27│ 28│28│ 29│29│ 30│30│ 31│31│ 32│32│ +│ ╶────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┤ +│ No QN57 Table ID │ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ +│ Layer ID │ 2│ 2│ 2│ 2│ 2│ 2│ 2│ 2│ 2│ 2│ 2│ 2│ 2│ 2│ 2│ 2│ +│ Subtable ID│ 25│25│ 26│26│ 27│27│ 28│28│ 29│29│ 30│30│ 31│31│ 32│32│ +╰──────────────────────────────────┴───┴──┴───┴──┴───┴──┴───┴──┴───┴──┴───┴──┴───┴──┴───┴──╯ + + Custom Tables +Male +╭───────────────────────────────────┬───────────────────────────────────────────────────────╮ +│ │ QN27 │ +│ ├───────────────────────────┬───────────────────────────┤ +│ │ Yes │ No │ +│ ├───────────────────────────┼───────────────────────────┤ +│ │ QND7A │ QND7A │ +│ ├─────────────┬─────────────┼─────────────┬─────────────┤ +│ │ Yes │ No │ Yes │ No │ +│ ├─────────────┼─────────────┼─────────────┼─────────────┤ +│ │ QN86 │ QN86 │ QN86 │ QN86 │ +│ ├──────┬──────┼──────┬──────┼──────┬──────┼──────┬──────┤ +│ │ Yes │ No │ Yes │ No │ Yes │ No │ Yes │ No │ +│ ├───┬──┼───┬──┼───┬──┼───┬──┼───┬──┼───┬──┼───┬──┼───┬──┤ +│ │Yes│No│Yes│No│Yes│No│Yes│No│Yes│No│Yes│No│Yes│No│Yes│No│ +├───────────────────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┤ +│QN26 Yes QN61 Yes QN57 Row ID │ 1│ 1│ 2│ 2│ 3│ 3│ 4│ 4│ 5│ 5│ 6│ 6│ 7│ 7│ 8│ 8│ +│ Layer Row ID│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ +│ ╶─────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┤ +│ No QN57 Row ID │ 9│ 9│ 10│10│ 11│11│ 12│12│ 13│13│ 14│14│ 15│15│ 16│16│ +│ Layer Row ID│ 2│ 2│ 2│ 2│ 2│ 2│ 2│ 2│ 2│ 2│ 2│ 2│ 2│ 2│ 2│ 2│ +│ ╶──────────────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┤ +│ No QN61 Yes QN57 Row ID │ 17│17│ 18│18│ 19│19│ 20│20│ 21│21│ 22│22│ 23│23│ 24│24│ +│ Layer Row ID│ 3│ 3│ 3│ 3│ 3│ 3│ 3│ 3│ 3│ 3│ 3│ 3│ 3│ 3│ 3│ 3│ +│ ╶─────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┤ +│ No QN57 Row ID │ 25│25│ 26│26│ 27│27│ 28│28│ 29│29│ 30│30│ 31│31│ 32│32│ +│ Layer Row ID│ 4│ 4│ 4│ 4│ 4│ 4│ 4│ 4│ 4│ 4│ 4│ 4│ 4│ 4│ 4│ 4│ +╰───────────────────────────────────┴───┴──┴───┴──┴───┴──┴───┴──┴───┴──┴───┴──┴───┴──┴───┴──╯ + + Custom Tables +Female +╭───────────────────────────────────┬───────────────────────────────────────────────────────╮ +│ │ QN27 │ +│ ├───────────────────────────┬───────────────────────────┤ +│ │ Yes │ No │ +│ ├───────────────────────────┼───────────────────────────┤ +│ │ QND7A │ QND7A │ +│ ├─────────────┬─────────────┼─────────────┬─────────────┤ +│ │ Yes │ No │ Yes │ No │ +│ ├─────────────┼─────────────┼─────────────┼─────────────┤ +│ │ QN86 │ QN86 │ QN86 │ QN86 │ +│ ├──────┬──────┼──────┬──────┼──────┬──────┼──────┬──────┤ +│ │ Yes │ No │ Yes │ No │ Yes │ No │ Yes │ No │ +│ ├───┬──┼───┬──┼───┬──┼───┬──┼───┬──┼───┬──┼───┬──┼───┬──┤ +│ │Yes│No│Yes│No│Yes│No│Yes│No│Yes│No│Yes│No│Yes│No│Yes│No│ +├───────────────────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┤ +│QN26 Yes QN61 Yes QN57 Row ID │ 33│33│ 34│34│ 35│35│ 36│36│ 37│37│ 38│38│ 39│39│ 40│40│ +│ Layer Row ID│ 5│ 5│ 5│ 5│ 5│ 5│ 5│ 5│ 5│ 5│ 5│ 5│ 5│ 5│ 5│ 5│ +│ ╶─────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┤ +│ No QN57 Row ID │ 41│41│ 42│42│ 43│43│ 44│44│ 45│45│ 46│46│ 47│47│ 48│48│ +│ Layer Row ID│ 6│ 6│ 6│ 6│ 6│ 6│ 6│ 6│ 6│ 6│ 6│ 6│ 6│ 6│ 6│ 6│ +│ ╶──────────────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┤ +│ No QN61 Yes QN57 Row ID │ 49│49│ 50│50│ 51│51│ 52│52│ 53│53│ 54│54│ 55│55│ 56│56│ +│ Layer Row ID│ 7│ 7│ 7│ 7│ 7│ 7│ 7│ 7│ 7│ 7│ 7│ 7│ 7│ 7│ 7│ 7│ +│ ╶─────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┤ +│ No QN57 Row ID │ 57│57│ 58│58│ 59│59│ 60│60│ 61│61│ 62│62│ 63│63│ 64│64│ +│ Layer Row ID│ 8│ 8│ 8│ 8│ 8│ 8│ 8│ 8│ 8│ 8│ 8│ 8│ 8│ 8│ 8│ 8│ +╰───────────────────────────────────┴───┴──┴───┴──┴───┴──┴───┴──┴───┴──┴───┴──┴───┴──┴───┴──╯ + + Custom Tables +Male +╭──────────────────────────────────────┬───────────────────────────────────────────────────────╮ +│ │ QN27 │ +│ ├───────────────────────────┬───────────────────────────┤ +│ │ Yes │ No │ +│ ├───────────────────────────┼───────────────────────────┤ +│ │ QND7A │ QND7A │ +│ ├─────────────┬─────────────┼─────────────┬─────────────┤ +│ │ Yes │ No │ Yes │ No │ +│ ├─────────────┼─────────────┼─────────────┼─────────────┤ +│ │ QN86 │ QN86 │ QN86 │ QN86 │ +│ ├──────┬──────┼──────┬──────┼──────┬──────┼──────┬──────┤ +│ │ Yes │ No │ Yes │ No │ Yes │ No │ Yes │ No │ +│ ├───┬──┼───┬──┼───┬──┼───┬──┼───┬──┼───┬──┼───┬──┼───┬──┤ +│ │Yes│No│Yes│No│Yes│No│Yes│No│Yes│No│Yes│No│Yes│No│Yes│No│ +├──────────────────────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┤ +│QN26 Yes QN61 Yes QN57 Column ID │ 2│ 1│ 4│ 3│ 6│ 5│ 7│ 8│ 10│ 9│ 11│12│ 14│13│ 15│16│ +│ Layer Column ID│ 2│ 1│ 4│ 3│ 6│ 5│ 7│ 8│ 10│ 9│ 11│12│ 14│13│ 15│16│ +│ ╶────────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┤ +│ No QN57 Column ID │ 2│ 1│ 4│ 3│ 6│ 5│ 7│ 8│ 10│ 9│ 11│12│ 14│13│ 15│16│ +│ Layer Column ID│ 2│ 1│ 4│ 3│ 6│ 5│ 7│ 8│ 10│ 9│ 11│12│ 14│13│ 15│16│ +│ ╶─────────────────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┤ +│ No QN61 Yes QN57 Column ID │ 18│17│ 19│20│ 21│22│ 23│24│ 25│26│ 28│27│ 29│30│ 32│31│ +│ Layer Column ID│ 2│ 1│ 4│ 3│ 6│ 5│ 7│ 8│ 10│ 9│ 11│12│ 14│13│ 15│16│ +│ ╶────────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┤ +│ No QN57 Column ID │ 18│17│ 19│20│ 21│22│ 23│24│ 25│26│ 28│27│ 29│30│ 32│31│ +│ Layer Column ID│ 2│ 1│ 4│ 3│ 6│ 5│ 7│ 8│ 10│ 9│ 11│12│ 14│13│ 15│16│ +╰──────────────────────────────────────┴───┴──┴───┴──┴───┴──┴───┴──┴───┴──┴───┴──┴───┴──┴───┴──╯ + + Custom Tables +Female +╭──────────────────────────────────────┬───────────────────────────────────────────────────────╮ +│ │ QN27 │ +│ ├───────────────────────────┬───────────────────────────┤ +│ │ Yes │ No │ +│ ├───────────────────────────┼───────────────────────────┤ +│ │ QND7A │ QND7A │ +│ ├─────────────┬─────────────┼─────────────┬─────────────┤ +│ │ Yes │ No │ Yes │ No │ +│ ├─────────────┼─────────────┼─────────────┼─────────────┤ +│ │ QN86 │ QN86 │ QN86 │ QN86 │ +│ ├──────┬──────┼──────┬──────┼──────┬──────┼──────┬──────┤ +│ │ Yes │ No │ Yes │ No │ Yes │ No │ Yes │ No │ +│ ├───┬──┼───┬──┼───┬──┼───┬──┼───┬──┼───┬──┼───┬──┼───┬──┤ +│ │Yes│No│Yes│No│Yes│No│Yes│No│Yes│No│Yes│No│Yes│No│Yes│No│ +├──────────────────────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┤ +│QN26 Yes QN61 Yes QN57 Column ID │ 34│33│ 35│36│ 37│38│ 39│40│ 41│42│ 44│43│ 45│46│ 47│48│ +│ Layer Column ID│ 18│17│ 19│20│ 21│22│ 23│24│ 25│26│ 28│27│ 29│30│ 31│32│ +│ ╶────────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┤ +│ No QN57 Column ID │ 34│33│ 35│36│ 37│38│ 39│40│ 41│42│ 44│43│ 45│46│ 47│48│ +│ Layer Column ID│ 18│17│ 19│20│ 21│22│ 23│24│ 25│26│ 28│27│ 29│30│ 31│32│ +│ ╶─────────────────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┤ +│ No QN61 Yes QN57 Column ID │ 50│49│ 51│52│ 53│54│ 55│56│ 57│58│ 59│60│ 62│61│ 64│63│ +│ Layer Column ID│ 18│17│ 19│20│ 21│22│ 23│24│ 25│26│ 28│27│ 29│30│ 31│32│ +│ ╶────────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┼───┼──┤ +│ No QN57 Column ID │ 50│49│ 51│52│ 53│54│ 55│56│ 57│58│ 59│60│ 62│61│ 64│63│ +│ Layer Column ID│ 18│17│ 19│20│ 21│22│ 23│24│ 25│26│ 28│27│ 29│30│ 31│32│ +╰──────────────────────────────────────┴───┴──┴───┴──┴───┴──┴───┴──┴───┴──┴───┴──┴───┴──┴───┴──╯ +]) +AT_CLEANUP + +AT_SETUP([CTABLES area definitions with CLABELS COLLABELS=OPPOSITE]) +AT_KEYWORDS([COLLABELS OPPOSITE]) +AT_CHECK([ln $top_srcdir/examples/nhtsa.sav . || cp $top_srcdir/examples/nhtsa.sav .]) +AT_DATA([ctables.sps], +[[GET 'nhtsa.sav'. +CTABLES + /VLABELS VARIABLES=ALL DISPLAY=NAME + /TABLE qn26 > qn61 > qn57 BY qn27 > qnd7a > qn86 BY qns3a[TABLEID, LAYERID, SUBTABLEID] + /SLABELS POSITION=ROW + /CLABELS COLLABELS=OPPOSITE + /TABLE qn26 > qn61 > qn57 BY qn27 > qnd7a > qn86 BY qns3a[ROWID, LAYERROWID] + /SLABELS POSITION=ROW + /CLABELS COLLABELS=OPPOSITE + /TABLE qn26 > qn61 > qn57 BY qn27 > qnd7a > qn86 BY qns3a[COLID, LAYERCOLID] + /SLABELS POSITION=ROW + /CLABELS COLLABELS=OPPOSITE. +]]) +AT_CHECK([pspp ctables.sps --table-look="$builddir"/all-layers.stt -O box=unicode -O width=120], [0], [dnl + Custom Tables +Male +╭──────────────────────────────────────────┬───────────────────╮ +│ │ QN27 │ +│ ├─────────┬─────────┤ +│ │ Yes │ No │ +│ ├─────────┼─────────┤ +│ │ QND7A │ QND7A │ +│ ├────┬────┼────┬────┤ +│ │ Yes│ No │ Yes│ No │ +│ ├────┼────┼────┼────┤ +│ │QN86│QN86│QN86│QN86│ +├──────────────────────────────────────────┼────┼────┼────┼────┤ +│QN26 Yes QN61 Yes QN57 Yes Yes Table ID │ 1│ 1│ 1│ 1│ +│ Layer ID │ 1│ 1│ 1│ 1│ +│ Subtable ID│ 1│ 1│ 2│ 2│ +│ ╶───────────────┼────┼────┼────┼────┤ +│ No Table ID │ 1│ 1│ 1│ 1│ +│ Layer ID │ 1│ 1│ 1│ 1│ +│ Subtable ID│ 1│ 1│ 2│ 2│ +│ ╶───────────────────┼────┼────┼────┼────┤ +│ No Yes Table ID │ 1│ 1│ 1│ 1│ +│ Layer ID │ 1│ 1│ 1│ 1│ +│ Subtable ID│ 3│ 3│ 4│ 4│ +│ ╶───────────────┼────┼────┼────┼────┤ +│ No Table ID │ 1│ 1│ 1│ 1│ +│ Layer ID │ 1│ 1│ 1│ 1│ +│ Subtable ID│ 3│ 3│ 4│ 4│ +│ ╶────────────────────────────┼────┼────┼────┼────┤ +│ No QN57 Yes Yes Table ID │ 1│ 1│ 1│ 1│ +│ Layer ID │ 1│ 1│ 1│ 1│ +│ Subtable ID│ 5│ 5│ 6│ 6│ +│ ╶───────────────┼────┼────┼────┼────┤ +│ No Table ID │ 1│ 1│ 1│ 1│ +│ Layer ID │ 1│ 1│ 1│ 1│ +│ Subtable ID│ 5│ 5│ 6│ 6│ +│ ╶───────────────────┼────┼────┼────┼────┤ +│ No Yes Table ID │ 1│ 1│ 1│ 1│ +│ Layer ID │ 1│ 1│ 1│ 1│ +│ Subtable ID│ 7│ 7│ 8│ 8│ +│ ╶───────────────┼────┼────┼────┼────┤ +│ No Table ID │ 1│ 1│ 1│ 1│ +│ Layer ID │ 1│ 1│ 1│ 1│ +│ Subtable ID│ 7│ 7│ 8│ 8│ +│ ╶─────────────────────────────────────┼────┼────┼────┼────┤ +│ No QN61 Yes QN57 Yes Yes Table ID │ 1│ 1│ 1│ 1│ +│ Layer ID │ 1│ 1│ 1│ 1│ +│ Subtable ID│ 9│ 9│ 10│ 10│ +│ ╶───────────────┼────┼────┼────┼────┤ +│ No Table ID │ 1│ 1│ 1│ 1│ +│ Layer ID │ 1│ 1│ 1│ 1│ +│ Subtable ID│ 9│ 9│ 10│ 10│ +│ ╶───────────────────┼────┼────┼────┼────┤ +│ No Yes Table ID │ 1│ 1│ 1│ 1│ +│ Layer ID │ 1│ 1│ 1│ 1│ +│ Subtable ID│ 11│ 11│ 12│ 12│ +│ ╶───────────────┼────┼────┼────┼────┤ +│ No Table ID │ 1│ 1│ 1│ 1│ +│ Layer ID │ 1│ 1│ 1│ 1│ +│ Subtable ID│ 11│ 11│ 12│ 12│ +│ ╶────────────────────────────┼────┼────┼────┼────┤ +│ No QN57 Yes Yes Table ID │ 1│ 1│ 1│ 1│ +│ Layer ID │ 1│ 1│ 1│ 1│ +│ Subtable ID│ 13│ 13│ 14│ 14│ +│ ╶───────────────┼────┼────┼────┼────┤ +│ No Table ID │ 1│ 1│ 1│ 1│ +│ Layer ID │ 1│ 1│ 1│ 1│ +│ Subtable ID│ 13│ 13│ 14│ 14│ +│ ╶───────────────────┼────┼────┼────┼────┤ +│ No Yes Table ID │ 1│ 1│ 1│ 1│ +│ Layer ID │ 1│ 1│ 1│ 1│ +│ Subtable ID│ 15│ 15│ 16│ 16│ +│ ╶───────────────┼────┼────┼────┼────┤ +│ No Table ID │ 1│ 1│ 1│ 1│ +│ Layer ID │ 1│ 1│ 1│ 1│ +│ Subtable ID│ 15│ 15│ 16│ 16│ +╰──────────────────────────────────────────┴────┴────┴────┴────╯ + + Custom Tables +Female +╭──────────────────────────────────────────┬───────────────────╮ +│ │ QN27 │ +│ ├─────────┬─────────┤ +│ │ Yes │ No │ +│ ├─────────┼─────────┤ +│ │ QND7A │ QND7A │ +│ ├────┬────┼────┬────┤ +│ │ Yes│ No │ Yes│ No │ +│ ├────┼────┼────┼────┤ +│ │QN86│QN86│QN86│QN86│ +├──────────────────────────────────────────┼────┼────┼────┼────┤ +│QN26 Yes QN61 Yes QN57 Yes Yes Table ID │ 1│ 1│ 1│ 1│ +│ Layer ID │ 2│ 2│ 2│ 2│ +│ Subtable ID│ 17│ 17│ 18│ 18│ +│ ╶───────────────┼────┼────┼────┼────┤ +│ No Table ID │ 1│ 1│ 1│ 1│ +│ Layer ID │ 2│ 2│ 2│ 2│ +│ Subtable ID│ 17│ 17│ 18│ 18│ +│ ╶───────────────────┼────┼────┼────┼────┤ +│ No Yes Table ID │ 1│ 1│ 1│ 1│ +│ Layer ID │ 2│ 2│ 2│ 2│ +│ Subtable ID│ 19│ 19│ 20│ 20│ +│ ╶───────────────┼────┼────┼────┼────┤ +│ No Table ID │ 1│ 1│ 1│ 1│ +│ Layer ID │ 2│ 2│ 2│ 2│ +│ Subtable ID│ 19│ 19│ 20│ 20│ +│ ╶────────────────────────────┼────┼────┼────┼────┤ +│ No QN57 Yes Yes Table ID │ 1│ 1│ 1│ 1│ +│ Layer ID │ 2│ 2│ 2│ 2│ +│ Subtable ID│ 21│ 21│ 22│ 22│ +│ ╶───────────────┼────┼────┼────┼────┤ +│ No Table ID │ 1│ 1│ 1│ 1│ +│ Layer ID │ 2│ 2│ 2│ 2│ +│ Subtable ID│ 21│ 21│ 22│ 22│ +│ ╶───────────────────┼────┼────┼────┼────┤ +│ No Yes Table ID │ 1│ 1│ 1│ 1│ +│ Layer ID │ 2│ 2│ 2│ 2│ +│ Subtable ID│ 23│ 23│ 24│ 24│ +│ ╶───────────────┼────┼────┼────┼────┤ +│ No Table ID │ 1│ 1│ 1│ 1│ +│ Layer ID │ 2│ 2│ 2│ 2│ +│ Subtable ID│ 23│ 23│ 24│ 24│ +│ ╶─────────────────────────────────────┼────┼────┼────┼────┤ +│ No QN61 Yes QN57 Yes Yes Table ID │ 1│ 1│ 1│ 1│ +│ Layer ID │ 2│ 2│ 2│ 2│ +│ Subtable ID│ 25│ 25│ 26│ 26│ +│ ╶───────────────┼────┼────┼────┼────┤ +│ No Table ID │ 1│ 1│ 1│ 1│ +│ Layer ID │ 2│ 2│ 2│ 2│ +│ Subtable ID│ 25│ 25│ 26│ 26│ +│ ╶───────────────────┼────┼────┼────┼────┤ +│ No Yes Table ID │ 1│ 1│ 1│ 1│ +│ Layer ID │ 2│ 2│ 2│ 2│ +│ Subtable ID│ 27│ 27│ 28│ 28│ +│ ╶───────────────┼────┼────┼────┼────┤ +│ No Table ID │ 1│ 1│ 1│ 1│ +│ Layer ID │ 2│ 2│ 2│ 2│ +│ Subtable ID│ 27│ 27│ 28│ 28│ +│ ╶────────────────────────────┼────┼────┼────┼────┤ +│ No QN57 Yes Yes Table ID │ 1│ 1│ 1│ 1│ +│ Layer ID │ 2│ 2│ 2│ 2│ +│ Subtable ID│ 29│ 29│ 30│ 30│ +│ ╶───────────────┼────┼────┼────┼────┤ +│ No Table ID │ 1│ 1│ 1│ 1│ +│ Layer ID │ 2│ 2│ 2│ 2│ +│ Subtable ID│ 29│ 29│ 30│ 30│ +│ ╶───────────────────┼────┼────┼────┼────┤ +│ No Yes Table ID │ 1│ 1│ 1│ 1│ +│ Layer ID │ 2│ 2│ 2│ 2│ +│ Subtable ID│ 31│ 31│ 32│ 32│ +│ ╶───────────────┼────┼────┼────┼────┤ +│ No Table ID │ 1│ 1│ 1│ 1│ +│ Layer ID │ 2│ 2│ 2│ 2│ +│ Subtable ID│ 31│ 31│ 32│ 32│ +╰──────────────────────────────────────────┴────┴────┴────┴────╯ + + Custom Tables +Male +╭───────────────────────────────────────────┬───────────────────╮ +│ │ QN27 │ +│ ├─────────┬─────────┤ +│ │ Yes │ No │ +│ ├─────────┼─────────┤ +│ │ QND7A │ QND7A │ +│ ├────┬────┼────┬────┤ +│ │ Yes│ No │ Yes│ No │ +│ ├────┼────┼────┼────┤ +│ │QN86│QN86│QN86│QN86│ +├───────────────────────────────────────────┼────┼────┼────┼────┤ +│QN26 Yes QN61 Yes QN57 Yes Yes Row ID │ 2│ 2│ 3│ 3│ +│ Layer Row ID│ 2│ 2│ 2│ 2│ +│ ╶────────────────┼────┼────┼────┼────┤ +│ No Row ID │ 1│ 1│ 4│ 4│ +│ Layer Row ID│ 1│ 1│ 1│ 1│ +│ ╶────────────────────┼────┼────┼────┼────┤ +│ No Yes Row ID │ 5│ 5│ 7│ 7│ +│ Layer Row ID│ 3│ 3│ 3│ 3│ +│ ╶────────────────┼────┼────┼────┼────┤ +│ No Row ID │ 6│ 6│ 8│ 8│ +│ Layer Row ID│ 4│ 4│ 4│ 4│ +│ ╶─────────────────────────────┼────┼────┼────┼────┤ +│ No QN57 Yes Yes Row ID │ 10│ 10│ 11│ 11│ +│ Layer Row ID│ 6│ 6│ 6│ 6│ +│ ╶────────────────┼────┼────┼────┼────┤ +│ No Row ID │ 9│ 9│ 12│ 12│ +│ Layer Row ID│ 5│ 5│ 5│ 5│ +│ ╶────────────────────┼────┼────┼────┼────┤ +│ No Yes Row ID │ 14│ 14│ 16│ 16│ +│ Layer Row ID│ 8│ 8│ 8│ 8│ +│ ╶────────────────┼────┼────┼────┼────┤ +│ No Row ID │ 13│ 13│ 15│ 15│ +│ Layer Row ID│ 7│ 7│ 7│ 7│ +│ ╶──────────────────────────────────────┼────┼────┼────┼────┤ +│ No QN61 Yes QN57 Yes Yes Row ID │ 17│ 17│ 19│ 19│ +│ Layer Row ID│ 9│ 9│ 9│ 9│ +│ ╶────────────────┼────┼────┼────┼────┤ +│ No Row ID │ 18│ 18│ 20│ 20│ +│ Layer Row ID│ 10│ 10│ 10│ 10│ +│ ╶────────────────────┼────┼────┼────┼────┤ +│ No Yes Row ID │ 21│ 21│ 23│ 23│ +│ Layer Row ID│ 11│ 11│ 11│ 11│ +│ ╶────────────────┼────┼────┼────┼────┤ +│ No Row ID │ 22│ 22│ 24│ 24│ +│ Layer Row ID│ 12│ 12│ 12│ 12│ +│ ╶─────────────────────────────┼────┼────┼────┼────┤ +│ No QN57 Yes Yes Row ID │ 26│ 26│ 28│ 28│ +│ Layer Row ID│ 14│ 14│ 14│ 14│ +│ ╶────────────────┼────┼────┼────┼────┤ +│ No Row ID │ 25│ 25│ 27│ 27│ +│ Layer Row ID│ 13│ 13│ 13│ 13│ +│ ╶────────────────────┼────┼────┼────┼────┤ +│ No Yes Row ID │ 30│ 30│ 32│ 32│ +│ Layer Row ID│ 16│ 16│ 16│ 16│ +│ ╶────────────────┼────┼────┼────┼────┤ +│ No Row ID │ 29│ 29│ 31│ 31│ +│ Layer Row ID│ 15│ 15│ 15│ 15│ +╰───────────────────────────────────────────┴────┴────┴────┴────╯ + + Custom Tables +Female +╭───────────────────────────────────────────┬───────────────────╮ +│ │ QN27 │ +│ ├─────────┬─────────┤ +│ │ Yes │ No │ +│ ├─────────┼─────────┤ +│ │ QND7A │ QND7A │ +│ ├────┬────┼────┬────┤ +│ │ Yes│ No │ Yes│ No │ +│ ├────┼────┼────┼────┤ +│ │QN86│QN86│QN86│QN86│ +├───────────────────────────────────────────┼────┼────┼────┼────┤ +│QN26 Yes QN61 Yes QN57 Yes Yes Row ID │ 33│ 33│ 36│ 36│ +│ Layer Row ID│ 17│ 17│ 17│ 17│ +│ ╶────────────────┼────┼────┼────┼────┤ +│ No Row ID │ 34│ 34│ 35│ 35│ +│ Layer Row ID│ 18│ 18│ 18│ 18│ +│ ╶────────────────────┼────┼────┼────┼────┤ +│ No Yes Row ID │ 37│ 37│ 39│ 39│ +│ Layer Row ID│ 19│ 19│ 19│ 19│ +│ ╶────────────────┼────┼────┼────┼────┤ +│ No Row ID │ 38│ 38│ 40│ 40│ +│ Layer Row ID│ 20│ 20│ 20│ 20│ +│ ╶─────────────────────────────┼────┼────┼────┼────┤ +│ No QN57 Yes Yes Row ID │ 41│ 41│ 44│ 44│ +│ Layer Row ID│ 21│ 21│ 21│ 21│ +│ ╶────────────────┼────┼────┼────┼────┤ +│ No Row ID │ 42│ 42│ 43│ 43│ +│ Layer Row ID│ 22│ 22│ 22│ 22│ +│ ╶────────────────────┼────┼────┼────┼────┤ +│ No Yes Row ID │ 45│ 45│ 48│ 48│ +│ Layer Row ID│ 23│ 23│ 23│ 23│ +│ ╶────────────────┼────┼────┼────┼────┤ +│ No Row ID │ 46│ 46│ 47│ 47│ +│ Layer Row ID│ 24│ 24│ 24│ 24│ +│ ╶──────────────────────────────────────┼────┼────┼────┼────┤ +│ No QN61 Yes QN57 Yes Yes Row ID │ 49│ 49│ 52│ 52│ +│ Layer Row ID│ 25│ 25│ 25│ 25│ +│ ╶────────────────┼────┼────┼────┼────┤ +│ No Row ID │ 50│ 50│ 51│ 51│ +│ Layer Row ID│ 26│ 26│ 26│ 26│ +│ ╶────────────────────┼────┼────┼────┼────┤ +│ No Yes Row ID │ 53│ 53│ 55│ 55│ +│ Layer Row ID│ 27│ 27│ 27│ 27│ +│ ╶────────────────┼────┼────┼────┼────┤ +│ No Row ID │ 54│ 54│ 56│ 56│ +│ Layer Row ID│ 28│ 28│ 28│ 28│ +│ ╶─────────────────────────────┼────┼────┼────┼────┤ +│ No QN57 Yes Yes Row ID │ 58│ 58│ 59│ 59│ +│ Layer Row ID│ 30│ 30│ 30│ 30│ +│ ╶────────────────┼────┼────┼────┼────┤ +│ No Row ID │ 57│ 57│ 60│ 60│ +│ Layer Row ID│ 29│ 29│ 29│ 29│ +│ ╶────────────────────┼────┼────┼────┼────┤ +│ No Yes Row ID │ 62│ 62│ 64│ 64│ +│ Layer Row ID│ 32│ 32│ 32│ 32│ +│ ╶────────────────┼────┼────┼────┼────┤ +│ No Row ID │ 61│ 61│ 63│ 63│ +│ Layer Row ID│ 31│ 31│ 31│ 31│ +╰───────────────────────────────────────────┴────┴────┴────┴────╯ + + Custom Tables +Male +╭──────────────────────────────────────────────┬───────────────────╮ +│ │ QN27 │ +│ ├─────────┬─────────┤ +│ │ Yes │ No │ +│ ├─────────┼─────────┤ +│ │ QND7A │ QND7A │ +│ ├────┬────┼────┬────┤ +│ │ Yes│ No │ Yes│ No │ +│ ├────┼────┼────┼────┤ +│ │QN86│QN86│QN86│QN86│ +├──────────────────────────────────────────────┼────┼────┼────┼────┤ +│QN26 Yes QN61 Yes QN57 Yes Yes Column ID │ 1│ 2│ 3│ 4│ +│ Layer Column ID│ 1│ 2│ 3│ 4│ +│ ╶───────────────────┼────┼────┼────┼────┤ +│ No Column ID │ 1│ 2│ 3│ 4│ +│ Layer Column ID│ 1│ 2│ 3│ 4│ +│ ╶───────────────────────┼────┼────┼────┼────┤ +│ No Yes Column ID │ 5│ 6│ 7│ 8│ +│ Layer Column ID│ 1│ 2│ 3│ 4│ +│ ╶───────────────────┼────┼────┼────┼────┤ +│ No Column ID │ 5│ 6│ 7│ 8│ +│ Layer Column ID│ 1│ 2│ 3│ 4│ +│ ╶────────────────────────────────┼────┼────┼────┼────┤ +│ No QN57 Yes Yes Column ID │ 9│ 10│ 11│ 12│ +│ Layer Column ID│ 1│ 2│ 3│ 4│ +│ ╶───────────────────┼────┼────┼────┼────┤ +│ No Column ID │ 9│ 10│ 11│ 12│ +│ Layer Column ID│ 1│ 2│ 3│ 4│ +│ ╶───────────────────────┼────┼────┼────┼────┤ +│ No Yes Column ID │ 13│ 14│ 15│ 16│ +│ Layer Column ID│ 1│ 2│ 3│ 4│ +│ ╶───────────────────┼────┼────┼────┼────┤ +│ No Column ID │ 13│ 14│ 15│ 16│ +│ Layer Column ID│ 1│ 2│ 3│ 4│ +│ ╶─────────────────────────────────────────┼────┼────┼────┼────┤ +│ No QN61 Yes QN57 Yes Yes Column ID │ 17│ 18│ 19│ 20│ +│ Layer Column ID│ 1│ 2│ 3│ 4│ +│ ╶───────────────────┼────┼────┼────┼────┤ +│ No Column ID │ 17│ 18│ 19│ 20│ +│ Layer Column ID│ 1│ 2│ 3│ 4│ +│ ╶───────────────────────┼────┼────┼────┼────┤ +│ No Yes Column ID │ 21│ 22│ 23│ 24│ +│ Layer Column ID│ 1│ 2│ 3│ 4│ +│ ╶───────────────────┼────┼────┼────┼────┤ +│ No Column ID │ 21│ 22│ 23│ 24│ +│ Layer Column ID│ 1│ 2│ 3│ 4│ +│ ╶────────────────────────────────┼────┼────┼────┼────┤ +│ No QN57 Yes Yes Column ID │ 25│ 26│ 27│ 28│ +│ Layer Column ID│ 1│ 2│ 3│ 4│ +│ ╶───────────────────┼────┼────┼────┼────┤ +│ No Column ID │ 25│ 26│ 27│ 28│ +│ Layer Column ID│ 1│ 2│ 3│ 4│ +│ ╶───────────────────────┼────┼────┼────┼────┤ +│ No Yes Column ID │ 29│ 30│ 31│ 32│ +│ Layer Column ID│ 1│ 2│ 3│ 4│ +│ ╶───────────────────┼────┼────┼────┼────┤ +│ No Column ID │ 29│ 30│ 31│ 32│ +│ Layer Column ID│ 1│ 2│ 3│ 4│ +╰──────────────────────────────────────────────┴────┴────┴────┴────╯ + + Custom Tables +Female +╭──────────────────────────────────────────────┬───────────────────╮ +│ │ QN27 │ +│ ├─────────┬─────────┤ +│ │ Yes │ No │ +│ ├─────────┼─────────┤ +│ │ QND7A │ QND7A │ +│ ├────┬────┼────┬────┤ +│ │ Yes│ No │ Yes│ No │ +│ ├────┼────┼────┼────┤ +│ │QN86│QN86│QN86│QN86│ +├──────────────────────────────────────────────┼────┼────┼────┼────┤ +│QN26 Yes QN61 Yes QN57 Yes Yes Column ID │ 33│ 34│ 35│ 36│ +│ Layer Column ID│ 5│ 6│ 7│ 8│ +│ ╶───────────────────┼────┼────┼────┼────┤ +│ No Column ID │ 33│ 34│ 35│ 36│ +│ Layer Column ID│ 5│ 6│ 7│ 8│ +│ ╶───────────────────────┼────┼────┼────┼────┤ +│ No Yes Column ID │ 37│ 38│ 39│ 40│ +│ Layer Column ID│ 5│ 6│ 7│ 8│ +│ ╶───────────────────┼────┼────┼────┼────┤ +│ No Column ID │ 37│ 38│ 39│ 40│ +│ Layer Column ID│ 5│ 6│ 7│ 8│ +│ ╶────────────────────────────────┼────┼────┼────┼────┤ +│ No QN57 Yes Yes Column ID │ 41│ 42│ 43│ 44│ +│ Layer Column ID│ 5│ 6│ 7│ 8│ +│ ╶───────────────────┼────┼────┼────┼────┤ +│ No Column ID │ 41│ 42│ 43│ 44│ +│ Layer Column ID│ 5│ 6│ 7│ 8│ +│ ╶───────────────────────┼────┼────┼────┼────┤ +│ No Yes Column ID │ 45│ 46│ 47│ 48│ +│ Layer Column ID│ 5│ 6│ 7│ 8│ +│ ╶───────────────────┼────┼────┼────┼────┤ +│ No Column ID │ 45│ 46│ 47│ 48│ +│ Layer Column ID│ 5│ 6│ 7│ 8│ +│ ╶─────────────────────────────────────────┼────┼────┼────┼────┤ +│ No QN61 Yes QN57 Yes Yes Column ID │ 49│ 50│ 51│ 52│ +│ Layer Column ID│ 5│ 6│ 7│ 8│ +│ ╶───────────────────┼────┼────┼────┼────┤ +│ No Column ID │ 49│ 50│ 51│ 52│ +│ Layer Column ID│ 5│ 6│ 7│ 8│ +│ ╶───────────────────────┼────┼────┼────┼────┤ +│ No Yes Column ID │ 53│ 54│ 55│ 56│ +│ Layer Column ID│ 5│ 6│ 7│ 8│ +│ ╶───────────────────┼────┼────┼────┼────┤ +│ No Column ID │ 53│ 54│ 55│ 56│ +│ Layer Column ID│ 5│ 6│ 7│ 8│ +│ ╶────────────────────────────────┼────┼────┼────┼────┤ +│ No QN57 Yes Yes Column ID │ 57│ 58│ 59│ 60│ +│ Layer Column ID│ 5│ 6│ 7│ 8│ +│ ╶───────────────────┼────┼────┼────┼────┤ +│ No Column ID │ 57│ 58│ 59│ 60│ +│ Layer Column ID│ 5│ 6│ 7│ 8│ +│ ╶───────────────────────┼────┼────┼────┼────┤ +│ No Yes Column ID │ 61│ 62│ 63│ 64│ +│ Layer Column ID│ 5│ 6│ 7│ 8│ +│ ╶───────────────────┼────┼────┼────┼────┤ +│ No Column ID │ 61│ 62│ 63│ 64│ +│ Layer Column ID│ 5│ 6│ 7│ 8│ +╰──────────────────────────────────────────────┴────┴────┴────┴────╯ +]) +AT_CLEANUP + +AT_SETUP([CTABLES area definitions with CLABELS ROWLABELS=LAYER]) +AT_KEYWORDS([ROWLABELS LAYER]) +AT_CHECK([ln $top_srcdir/examples/nhtsa.sav . || cp $top_srcdir/examples/nhtsa.sav .]) +AT_DATA([ctables.sps], +[[GET 'nhtsa.sav'. +CTABLES + /VLABELS VARIABLES=ALL DISPLAY=NAME + /TABLE qn26 > qn61 > qn57 BY qn27 > qnd7a > qn86 BY qns3a[TABLEID, LAYERID, SUBTABLEID] + /SLABELS POSITION=ROW + /CLABELS ROWLABELS=LAYER + /TABLE qn26 > qn61 > qn57 BY qn27 > qnd7a > qn86 BY qns3a[ROWID, LAYERROWID] + /SLABELS POSITION=ROW + /CLABELS ROWLABELS=LAYER + /TABLE qn26 > qn61 > qn57 BY qn27 > qnd7a > qn86 BY qns3a[COLID, LAYERCOLID] + /SLABELS POSITION=ROW + /CLABELS ROWLABELS=LAYER. +]]) +AT_CHECK([pspp ctables.sps --table-look="$builddir"/all-layers.stt -O box=unicode -O width=120], [0], [dnl + Custom Tables +Male +Yes +╭──────────────────────────────────┬───────────────────────────╮ +│ │ QN27 │ +│ ├─────────────┬─────────────┤ +│ │ Yes │ No │ +│ ├─────────────┼─────────────┤ +│ │ QND7A │ QND7A │ +│ ├──────┬──────┼──────┬──────┤ +│ │ Yes │ No │ Yes │ No │ +│ ├──────┼──────┼──────┼──────┤ +│ │ QN86 │ QN86 │ QN86 │ QN86 │ +│ ├───┬──┼───┬──┼───┬──┼───┬──┤ +│ │Yes│No│Yes│No│Yes│No│Yes│No│ +├──────────────────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┤ +│QN26 Yes QN61 Yes QN57 Table ID │ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ +│ Layer ID │ 2│ 2│ 2│ 2│ 2│ 2│ 2│ 2│ +│ Subtable ID│ 2│ 2│ 3│ 3│ 5│ 5│ 7│ 7│ +│ ╶────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┤ +│ No QN57 Table ID │ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ +│ Layer ID │ 2│ 2│ 2│ 2│ 2│ 2│ 2│ 2│ +│ Subtable ID│ 2│ 2│ 3│ 3│ 5│ 5│ 7│ 7│ +│ ╶─────────────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┤ +│ No QN61 Yes QN57 Table ID │ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ +│ Layer ID │ 2│ 2│ 2│ 2│ 2│ 2│ 2│ 2│ +│ Subtable ID│ 10│10│ 12│12│ 13│13│ 16│16│ +│ ╶────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┤ +│ No QN57 Table ID │ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ +│ Layer ID │ 2│ 2│ 2│ 2│ 2│ 2│ 2│ 2│ +│ Subtable ID│ 10│10│ 12│12│ 13│13│ 16│16│ +╰──────────────────────────────────┴───┴──┴───┴──┴───┴──┴───┴──╯ + + Custom Tables +Male +No +╭──────────────────────────────────┬───────────────────────────╮ +│ │ QN27 │ +│ ├─────────────┬─────────────┤ +│ │ Yes │ No │ +│ ├─────────────┼─────────────┤ +│ │ QND7A │ QND7A │ +│ ├──────┬──────┼──────┬──────┤ +│ │ Yes │ No │ Yes │ No │ +│ ├──────┼──────┼──────┼──────┤ +│ │ QN86 │ QN86 │ QN86 │ QN86 │ +│ ├───┬──┼───┬──┼───┬──┼───┬──┤ +│ │Yes│No│Yes│No│Yes│No│Yes│No│ +├──────────────────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┤ +│QN26 Yes QN61 Yes QN57 Table ID │ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ +│ Layer ID │ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ +│ Subtable ID│ 1│ 1│ 4│ 4│ 6│ 6│ 8│ 8│ +│ ╶────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┤ +│ No QN57 Table ID │ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ +│ Layer ID │ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ +│ Subtable ID│ 1│ 1│ 4│ 4│ 6│ 6│ 8│ 8│ +│ ╶─────────────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┤ +│ No QN61 Yes QN57 Table ID │ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ +│ Layer ID │ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ +│ Subtable ID│ 9│ 9│ 11│11│ 14│14│ 15│15│ +│ ╶────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┤ +│ No QN57 Table ID │ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ +│ Layer ID │ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ +│ Subtable ID│ 9│ 9│ 11│11│ 14│14│ 15│15│ +╰──────────────────────────────────┴───┴──┴───┴──┴───┴──┴───┴──╯ + + Custom Tables +Female +Yes +╭──────────────────────────────────┬───────────────────────────╮ +│ │ QN27 │ +│ ├─────────────┬─────────────┤ +│ │ Yes │ No │ +│ ├─────────────┼─────────────┤ +│ │ QND7A │ QND7A │ +│ ├──────┬──────┼──────┬──────┤ +│ │ Yes │ No │ Yes │ No │ +│ ├──────┼──────┼──────┼──────┤ +│ │ QN86 │ QN86 │ QN86 │ QN86 │ +│ ├───┬──┼───┬──┼───┬──┼───┬──┤ +│ │Yes│No│Yes│No│Yes│No│Yes│No│ +├──────────────────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┤ +│QN26 Yes QN61 Yes QN57 Table ID │ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ +│ Layer ID │ 3│ 3│ 3│ 3│ 3│ 3│ 3│ 3│ +│ Subtable ID│ 17│17│ 19│19│ 21│21│ 23│23│ +│ ╶────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┤ +│ No QN57 Table ID │ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ +│ Layer ID │ 3│ 3│ 3│ 3│ 3│ 3│ 3│ 3│ +│ Subtable ID│ 17│17│ 19│19│ 21│21│ 23│23│ +│ ╶─────────────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┤ +│ No QN61 Yes QN57 Table ID │ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ +│ Layer ID │ 3│ 3│ 3│ 3│ 3│ 3│ 3│ 3│ +│ Subtable ID│ 25│25│ 28│28│ 29│29│ 32│32│ +│ ╶────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┤ +│ No QN57 Table ID │ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ +│ Layer ID │ 3│ 3│ 3│ 3│ 3│ 3│ 3│ 3│ +│ Subtable ID│ 25│25│ 28│28│ 29│29│ 32│32│ +╰──────────────────────────────────┴───┴──┴───┴──┴───┴──┴───┴──╯ + + Custom Tables +Female +No +╭──────────────────────────────────┬───────────────────────────╮ +│ │ QN27 │ +│ ├─────────────┬─────────────┤ +│ │ Yes │ No │ +│ ├─────────────┼─────────────┤ +│ │ QND7A │ QND7A │ +│ ├──────┬──────┼──────┬──────┤ +│ │ Yes │ No │ Yes │ No │ +│ ├──────┼──────┼──────┼──────┤ +│ │ QN86 │ QN86 │ QN86 │ QN86 │ +│ ├───┬──┼───┬──┼───┬──┼───┬──┤ +│ │Yes│No│Yes│No│Yes│No│Yes│No│ +├──────────────────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┤ +│QN26 Yes QN61 Yes QN57 Table ID │ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ +│ Layer ID │ 4│ 4│ 4│ 4│ 4│ 4│ 4│ 4│ +│ Subtable ID│ 18│18│ 20│20│ 22│22│ 24│24│ +│ ╶────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┤ +│ No QN57 Table ID │ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ +│ Layer ID │ 4│ 4│ 4│ 4│ 4│ 4│ 4│ 4│ +│ Subtable ID│ 18│18│ 20│20│ 22│22│ 24│24│ +│ ╶─────────────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┤ +│ No QN61 Yes QN57 Table ID │ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ +│ Layer ID │ 4│ 4│ 4│ 4│ 4│ 4│ 4│ 4│ +│ Subtable ID│ 26│26│ 27│27│ 30│30│ 31│31│ +│ ╶────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┤ +│ No QN57 Table ID │ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ +│ Layer ID │ 4│ 4│ 4│ 4│ 4│ 4│ 4│ 4│ +│ Subtable ID│ 26│26│ 27│27│ 30│30│ 31│31│ +╰──────────────────────────────────┴───┴──┴───┴──┴───┴──┴───┴──╯ + + Custom Tables +Male +Yes +╭───────────────────────────────────┬───────────────────────────╮ +│ │ QN27 │ +│ ├─────────────┬─────────────┤ +│ │ Yes │ No │ +│ ├─────────────┼─────────────┤ +│ │ QND7A │ QND7A │ +│ ├──────┬──────┼──────┬──────┤ +│ │ Yes │ No │ Yes │ No │ +│ ├──────┼──────┼──────┼──────┤ +│ │ QN86 │ QN86 │ QN86 │ QN86 │ +│ ├───┬──┼───┬──┼───┬──┼───┬──┤ +│ │Yes│No│Yes│No│Yes│No│Yes│No│ +├───────────────────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┤ +│QN26 Yes QN61 Yes QN57 Row ID │ 1│ 1│ 3│ 3│ 6│ 6│ 8│ 8│ +│ Layer Row ID│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ 1│ +│ ╶─────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┤ +│ No QN57 Row ID │ 9│ 9│ 11│11│ 14│14│ 15│15│ +│ Layer Row ID│ 3│ 3│ 3│ 3│ 3│ 3│ 3│ 3│ +│ ╶──────────────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┤ +│ No QN61 Yes QN57 Row ID │ 18│18│ 20│20│ 22│22│ 23│23│ +│ Layer Row ID│ 6│ 6│ 6│ 6│ 6│ 6│ 6│ 6│ +│ ╶─────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┤ +│ No QN57 Row ID │ 26│26│ 28│28│ 29│29│ 32│32│ +│ Layer Row ID│ 8│ 8│ 8│ 8│ 8│ 8│ 8│ 8│ +╰───────────────────────────────────┴───┴──┴───┴──┴───┴──┴───┴──╯ + + Custom Tables +Male +No +╭───────────────────────────────────┬───────────────────────────╮ +│ │ QN27 │ +│ ├─────────────┬─────────────┤ +│ │ Yes │ No │ +│ ├─────────────┼─────────────┤ +│ │ QND7A │ QND7A │ +│ ├──────┬──────┼──────┬──────┤ +│ │ Yes │ No │ Yes │ No │ +│ ├──────┼──────┼──────┼──────┤ +│ │ QN86 │ QN86 │ QN86 │ QN86 │ +│ ├───┬──┼───┬──┼───┬──┼───┬──┤ +│ │Yes│No│Yes│No│Yes│No│Yes│No│ +├───────────────────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┤ +│QN26 Yes QN61 Yes QN57 Row ID │ 2│ 2│ 4│ 4│ 5│ 5│ 7│ 7│ +│ Layer Row ID│ 2│ 2│ 2│ 2│ 2│ 2│ 2│ 2│ +│ ╶─────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┤ +│ No QN57 Row ID │ 10│10│ 12│12│ 13│13│ 16│16│ +│ Layer Row ID│ 4│ 4│ 4│ 4│ 4│ 4│ 4│ 4│ +│ ╶──────────────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┤ +│ No QN61 Yes QN57 Row ID │ 17│17│ 19│19│ 21│21│ 24│24│ +│ Layer Row ID│ 5│ 5│ 5│ 5│ 5│ 5│ 5│ 5│ +│ ╶─────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┤ +│ No QN57 Row ID │ 25│25│ 27│27│ 30│30│ 31│31│ +│ Layer Row ID│ 7│ 7│ 7│ 7│ 7│ 7│ 7│ 7│ +╰───────────────────────────────────┴───┴──┴───┴──┴───┴──┴───┴──╯ + + Custom Tables +Female +Yes +╭───────────────────────────────────┬───────────────────────────╮ +│ │ QN27 │ +│ ├─────────────┬─────────────┤ +│ │ Yes │ No │ +│ ├─────────────┼─────────────┤ +│ │ QND7A │ QND7A │ +│ ├──────┬──────┼──────┬──────┤ +│ │ Yes │ No │ Yes │ No │ +│ ├──────┼──────┼──────┼──────┤ +│ │ QN86 │ QN86 │ QN86 │ QN86 │ +│ ├───┬──┼───┬──┼───┬──┼───┬──┤ +│ │Yes│No│Yes│No│Yes│No│Yes│No│ +├───────────────────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┤ +│QN26 Yes QN61 Yes QN57 Row ID │ 33│33│ 36│36│ 38│38│ 40│40│ +│ Layer Row ID│ 9│ 9│ 9│ 9│ 9│ 9│ 9│ 9│ +│ ╶─────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┤ +│ No QN57 Row ID │ 42│42│ 43│43│ 45│45│ 47│47│ +│ Layer Row ID│ 12│12│ 12│12│ 12│12│ 12│12│ +│ ╶──────────────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┤ +│ No QN61 Yes QN57 Row ID │ 50│50│ 52│52│ 53│53│ 56│56│ +│ Layer Row ID│ 14│14│ 14│14│ 14│14│ 14│14│ +│ ╶─────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┤ +│ No QN57 Row ID │ 57│57│ 60│60│ 61│61│ 63│63│ +│ Layer Row ID│ 15│15│ 15│15│ 15│15│ 15│15│ +╰───────────────────────────────────┴───┴──┴───┴──┴───┴──┴───┴──╯ + + Custom Tables +Female +No +╭───────────────────────────────────┬───────────────────────────╮ +│ │ QN27 │ +│ ├─────────────┬─────────────┤ +│ │ Yes │ No │ +│ ├─────────────┼─────────────┤ +│ │ QND7A │ QND7A │ +│ ├──────┬──────┼──────┬──────┤ +│ │ Yes │ No │ Yes │ No │ +│ ├──────┼──────┼──────┼──────┤ +│ │ QN86 │ QN86 │ QN86 │ QN86 │ +│ ├───┬──┼───┬──┼───┬──┼───┬──┤ +│ │Yes│No│Yes│No│Yes│No│Yes│No│ +├───────────────────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┤ +│QN26 Yes QN61 Yes QN57 Row ID │ 34│34│ 35│35│ 37│37│ 39│39│ +│ Layer Row ID│ 10│10│ 10│10│ 10│10│ 10│10│ +│ ╶─────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┤ +│ No QN57 Row ID │ 41│41│ 44│44│ 46│46│ 48│48│ +│ Layer Row ID│ 11│11│ 11│11│ 11│11│ 11│11│ +│ ╶──────────────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┤ +│ No QN61 Yes QN57 Row ID │ 49│49│ 51│51│ 54│54│ 55│55│ +│ Layer Row ID│ 13│13│ 13│13│ 13│13│ 13│13│ +│ ╶─────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┤ +│ No QN57 Row ID │ 58│58│ 59│59│ 62│62│ 64│64│ +│ Layer Row ID│ 16│16│ 16│16│ 16│16│ 16│16│ +╰───────────────────────────────────┴───┴──┴───┴──┴───┴──┴───┴──╯ + + Custom Tables +Male +Yes +╭──────────────────────────────────────┬───────────────────────────╮ +│ │ QN27 │ +│ ├─────────────┬─────────────┤ +│ │ Yes │ No │ +│ ├─────────────┼─────────────┤ +│ │ QND7A │ QND7A │ +│ ├──────┬──────┼──────┬──────┤ +│ │ Yes │ No │ Yes │ No │ +│ ├──────┼──────┼──────┼──────┤ +│ │ QN86 │ QN86 │ QN86 │ QN86 │ +│ ├───┬──┼───┬──┼───┬──┼───┬──┤ +│ │Yes│No│Yes│No│Yes│No│Yes│No│ +├──────────────────────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┤ +│QN26 Yes QN61 Yes QN57 Column ID │ 2│ 4│ 6│ 7│ 10│11│ 14│15│ +│ Layer Column ID│ 2│ 4│ 6│ 7│ 10│11│ 14│15│ +│ ╶────────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┤ +│ No QN57 Column ID │ 2│ 4│ 6│ 7│ 10│11│ 14│15│ +│ Layer Column ID│ 2│ 4│ 6│ 7│ 10│11│ 14│15│ +│ ╶─────────────────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┤ +│ No QN61 Yes QN57 Column ID │ 18│19│ 21│23│ 25│28│ 29│32│ +│ Layer Column ID│ 2│ 4│ 6│ 7│ 10│11│ 14│15│ +│ ╶────────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┤ +│ No QN57 Column ID │ 18│19│ 21│23│ 25│28│ 29│32│ +│ Layer Column ID│ 2│ 4│ 6│ 7│ 10│11│ 14│15│ +╰──────────────────────────────────────┴───┴──┴───┴──┴───┴──┴───┴──╯ + + Custom Tables +Male +No +╭──────────────────────────────────────┬───────────────────────────╮ +│ │ QN27 │ +│ ├─────────────┬─────────────┤ +│ │ Yes │ No │ +│ ├─────────────┼─────────────┤ +│ │ QND7A │ QND7A │ +│ ├──────┬──────┼──────┬──────┤ +│ │ Yes │ No │ Yes │ No │ +│ ├──────┼──────┼──────┼──────┤ +│ │ QN86 │ QN86 │ QN86 │ QN86 │ +│ ├───┬──┼───┬──┼───┬──┼───┬──┤ +│ │Yes│No│Yes│No│Yes│No│Yes│No│ +├──────────────────────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┤ +│QN26 Yes QN61 Yes QN57 Column ID │ 1│ 3│ 5│ 8│ 9│12│ 13│16│ +│ Layer Column ID│ 1│ 3│ 5│ 8│ 9│12│ 13│16│ +│ ╶────────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┤ +│ No QN57 Column ID │ 1│ 3│ 5│ 8│ 9│12│ 13│16│ +│ Layer Column ID│ 1│ 3│ 5│ 8│ 9│12│ 13│16│ +│ ╶─────────────────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┤ +│ No QN61 Yes QN57 Column ID │ 17│20│ 22│24│ 26│27│ 30│31│ +│ Layer Column ID│ 1│ 3│ 5│ 8│ 9│12│ 13│16│ +│ ╶────────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┤ +│ No QN57 Column ID │ 17│20│ 22│24│ 26│27│ 30│31│ +│ Layer Column ID│ 1│ 3│ 5│ 8│ 9│12│ 13│16│ +╰──────────────────────────────────────┴───┴──┴───┴──┴───┴──┴───┴──╯ + + Custom Tables +Female +Yes +╭──────────────────────────────────────┬───────────────────────────╮ +│ │ QN27 │ +│ ├─────────────┬─────────────┤ +│ │ Yes │ No │ +│ ├─────────────┼─────────────┤ +│ │ QND7A │ QND7A │ +│ ├──────┬──────┼──────┬──────┤ +│ │ Yes │ No │ Yes │ No │ +│ ├──────┼──────┼──────┼──────┤ +│ │ QN86 │ QN86 │ QN86 │ QN86 │ +│ ├───┬──┼───┬──┼───┬──┼───┬──┤ +│ │Yes│No│Yes│No│Yes│No│Yes│No│ +├──────────────────────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┤ +│QN26 Yes QN61 Yes QN57 Column ID │ 34│35│ 37│39│ 41│44│ 45│47│ +│ Layer Column ID│ 18│19│ 21│23│ 25│28│ 29│31│ +│ ╶────────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┤ +│ No QN57 Column ID │ 34│35│ 37│39│ 41│44│ 45│47│ +│ Layer Column ID│ 18│19│ 21│23│ 25│28│ 29│31│ +│ ╶─────────────────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┤ +│ No QN61 Yes QN57 Column ID │ 50│51│ 53│55│ 57│59│ 62│64│ +│ Layer Column ID│ 18│19│ 21│23│ 25│28│ 29│31│ +│ ╶────────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┤ +│ No QN57 Column ID │ 50│51│ 53│55│ 57│59│ 62│64│ +│ Layer Column ID│ 18│19│ 21│23│ 25│28│ 29│31│ +╰──────────────────────────────────────┴───┴──┴───┴──┴───┴──┴───┴──╯ + + Custom Tables +Female +No +╭──────────────────────────────────────┬───────────────────────────╮ +│ │ QN27 │ +│ ├─────────────┬─────────────┤ +│ │ Yes │ No │ +│ ├─────────────┼─────────────┤ +│ │ QND7A │ QND7A │ +│ ├──────┬──────┼──────┬──────┤ +│ │ Yes │ No │ Yes │ No │ +│ ├──────┼──────┼──────┼──────┤ +│ │ QN86 │ QN86 │ QN86 │ QN86 │ +│ ├───┬──┼───┬──┼───┬──┼───┬──┤ +│ │Yes│No│Yes│No│Yes│No│Yes│No│ +├──────────────────────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┤ +│QN26 Yes QN61 Yes QN57 Column ID │ 33│36│ 38│40│ 42│43│ 46│48│ +│ Layer Column ID│ 17│20│ 22│24│ 26│27│ 30│32│ +│ ╶────────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┤ +│ No QN57 Column ID │ 33│36│ 38│40│ 42│43│ 46│48│ +│ Layer Column ID│ 17│20│ 22│24│ 26│27│ 30│32│ +│ ╶─────────────────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┤ +│ No QN61 Yes QN57 Column ID │ 49│52│ 54│56│ 58│60│ 61│63│ +│ Layer Column ID│ 17│20│ 22│24│ 26│27│ 30│32│ +│ ╶────────────────────────┼───┼──┼───┼──┼───┼──┼───┼──┤ +│ No QN57 Column ID │ 49│52│ 54│56│ 58│60│ 61│63│ +│ Layer Column ID│ 17│20│ 22│24│ 26│27│ 30│32│ +╰──────────────────────────────────────┴───┴──┴───┴──┴───┴──┴───┴──╯ +]) +AT_CLEANUP + +AT_SETUP([CTABLES area definitions with CLABELS COLLABELS=LAYER]) +AT_KEYWORDS([COLLABELS LAYER]) +AT_CHECK([ln $top_srcdir/examples/nhtsa.sav . || cp $top_srcdir/examples/nhtsa.sav .]) +AT_DATA([ctables.sps], +[[GET 'nhtsa.sav'. +CTABLES + /VLABELS VARIABLES=ALL DISPLAY=NAME + /TABLE qn26 > qn61 > qn57 BY qn27 > qnd7a > qn86 BY qns3a[TABLEID, LAYERID, SUBTABLEID] + /SLABELS POSITION=ROW + /CLABELS COLLABELS=LAYER + /TABLE qn26 > qn61 > qn57 BY qn27 > qnd7a > qn86 BY qns3a[ROWID, LAYERROWID] + /SLABELS POSITION=ROW + /CLABELS COLLABELS=LAYER + /TABLE qn26 > qn61 > qn57 BY qn27 > qnd7a > qn86 BY qns3a[COLID, LAYERCOLID] + /SLABELS POSITION=ROW + /CLABELS COLLABELS=LAYER. +]]) +AT_CHECK([pspp ctables.sps --table-look="$builddir"/all-layers.stt -O box=unicode -O width=120], [0], [dnl + Custom Tables +Male +Yes +╭──────────────────────────────────────┬───────────────────╮ +│ │ QN27 │ +│ ├─────────┬─────────┤ +│ │ Yes │ No │ +│ ├─────────┼─────────┤ +│ │ QND7A │ QND7A │ +│ ├────┬────┼────┬────┤ +│ │ Yes│ No │ Yes│ No │ +│ ├────┼────┼────┼────┤ +│ │QN86│QN86│QN86│QN86│ +├──────────────────────────────────────┼────┼────┼────┼────┤ +│QN26 Yes QN61 Yes QN57 Yes Table ID │ 1│ 1│ 1│ 1│ +│ Layer ID │ 2│ 2│ 2│ 2│ +│ Subtable ID│ 2│ 2│ 4│ 4│ +│ ╶───────────────┼────┼────┼────┼────┤ +│ No Table ID │ 1│ 1│ 1│ 1│ +│ Layer ID │ 2│ 2│ 2│ 2│ +│ Subtable ID│ 2│ 2│ 4│ 4│ +│ ╶────────────────────────┼────┼────┼────┼────┤ +│ No QN57 Yes Table ID │ 1│ 1│ 1│ 1│ +│ Layer ID │ 2│ 2│ 2│ 2│ +│ Subtable ID│ 5│ 5│ 7│ 7│ +│ ╶───────────────┼────┼────┼────┼────┤ +│ No Table ID │ 1│ 1│ 1│ 1│ +│ Layer ID │ 2│ 2│ 2│ 2│ +│ Subtable ID│ 5│ 5│ 7│ 7│ +│ ╶─────────────────────────────────┼────┼────┼────┼────┤ +│ No QN61 Yes QN57 Yes Table ID │ 1│ 1│ 1│ 1│ +│ Layer ID │ 2│ 2│ 2│ 2│ +│ Subtable ID│ 10│ 10│ 12│ 12│ +│ ╶───────────────┼────┼────┼────┼────┤ +│ No Table ID │ 1│ 1│ 1│ 1│ +│ Layer ID │ 2│ 2│ 2│ 2│ +│ Subtable ID│ 10│ 10│ 12│ 12│ +│ ╶────────────────────────┼────┼────┼────┼────┤ +│ No QN57 Yes Table ID │ 1│ 1│ 1│ 1│ +│ Layer ID │ 2│ 2│ 2│ 2│ +│ Subtable ID│ 13│ 13│ 15│ 15│ +│ ╶───────────────┼────┼────┼────┼────┤ +│ No Table ID │ 1│ 1│ 1│ 1│ +│ Layer ID │ 2│ 2│ 2│ 2│ +│ Subtable ID│ 13│ 13│ 15│ 15│ +╰──────────────────────────────────────┴────┴────┴────┴────╯ + + Custom Tables +Male +No +╭──────────────────────────────────────┬───────────────────╮ +│ │ QN27 │ +│ ├─────────┬─────────┤ +│ │ Yes │ No │ +│ ├─────────┼─────────┤ +│ │ QND7A │ QND7A │ +│ ├────┬────┼────┬────┤ +│ │ Yes│ No │ Yes│ No │ +│ ├────┼────┼────┼────┤ +│ │QN86│QN86│QN86│QN86│ +├──────────────────────────────────────┼────┼────┼────┼────┤ +│QN26 Yes QN61 Yes QN57 Yes Table ID │ 1│ 1│ 1│ 1│ +│ Layer ID │ 1│ 1│ 1│ 1│ +│ Subtable ID│ 1│ 1│ 3│ 3│ +│ ╶───────────────┼────┼────┼────┼────┤ +│ No Table ID │ 1│ 1│ 1│ 1│ +│ Layer ID │ 1│ 1│ 1│ 1│ +│ Subtable ID│ 1│ 1│ 3│ 3│ +│ ╶────────────────────────┼────┼────┼────┼────┤ +│ No QN57 Yes Table ID │ 1│ 1│ 1│ 1│ +│ Layer ID │ 1│ 1│ 1│ 1│ +│ Subtable ID│ 6│ 6│ 8│ 8│ +│ ╶───────────────┼────┼────┼────┼────┤ +│ No Table ID │ 1│ 1│ 1│ 1│ +│ Layer ID │ 1│ 1│ 1│ 1│ +│ Subtable ID│ 6│ 6│ 8│ 8│ +│ ╶─────────────────────────────────┼────┼────┼────┼────┤ +│ No QN61 Yes QN57 Yes Table ID │ 1│ 1│ 1│ 1│ +│ Layer ID │ 1│ 1│ 1│ 1│ +│ Subtable ID│ 9│ 9│ 11│ 11│ +│ ╶───────────────┼────┼────┼────┼────┤ +│ No Table ID │ 1│ 1│ 1│ 1│ +│ Layer ID │ 1│ 1│ 1│ 1│ +│ Subtable ID│ 9│ 9│ 11│ 11│ +│ ╶────────────────────────┼────┼────┼────┼────┤ +│ No QN57 Yes Table ID │ 1│ 1│ 1│ 1│ +│ Layer ID │ 1│ 1│ 1│ 1│ +│ Subtable ID│ 14│ 14│ 16│ 16│ +│ ╶───────────────┼────┼────┼────┼────┤ +│ No Table ID │ 1│ 1│ 1│ 1│ +│ Layer ID │ 1│ 1│ 1│ 1│ +│ Subtable ID│ 14│ 14│ 16│ 16│ +╰──────────────────────────────────────┴────┴────┴────┴────╯ + + Custom Tables +Female +Yes +╭──────────────────────────────────────┬───────────────────╮ +│ │ QN27 │ +│ ├─────────┬─────────┤ +│ │ Yes │ No │ +│ ├─────────┼─────────┤ +│ │ QND7A │ QND7A │ +│ ├────┬────┼────┬────┤ +│ │ Yes│ No │ Yes│ No │ +│ ├────┼────┼────┼────┤ +│ │QN86│QN86│QN86│QN86│ +├──────────────────────────────────────┼────┼────┼────┼────┤ +│QN26 Yes QN61 Yes QN57 Yes Table ID │ 1│ 1│ 1│ 1│ +│ Layer ID │ 4│ 4│ 4│ 4│ +│ Subtable ID│ 18│ 18│ 19│ 19│ +│ ╶───────────────┼────┼────┼────┼────┤ +│ No Table ID │ 1│ 1│ 1│ 1│ +│ Layer ID │ 4│ 4│ 4│ 4│ +│ Subtable ID│ 18│ 18│ 19│ 19│ +│ ╶────────────────────────┼────┼────┼────┼────┤ +│ No QN57 Yes Table ID │ 1│ 1│ 1│ 1│ +│ Layer ID │ 4│ 4│ 4│ 4│ +│ Subtable ID│ 22│ 22│ 23│ 23│ +│ ╶───────────────┼────┼────┼────┼────┤ +│ No Table ID │ 1│ 1│ 1│ 1│ +│ Layer ID │ 4│ 4│ 4│ 4│ +│ Subtable ID│ 22│ 22│ 23│ 23│ +│ ╶─────────────────────────────────┼────┼────┼────┼────┤ +│ No QN61 Yes QN57 Yes Table ID │ 1│ 1│ 1│ 1│ +│ Layer ID │ 4│ 4│ 4│ 4│ +│ Subtable ID│ 26│ 26│ 28│ 28│ +│ ╶───────────────┼────┼────┼────┼────┤ +│ No Table ID │ 1│ 1│ 1│ 1│ +│ Layer ID │ 4│ 4│ 4│ 4│ +│ Subtable ID│ 26│ 26│ 28│ 28│ +│ ╶────────────────────────┼────┼────┼────┼────┤ +│ No QN57 Yes Table ID │ 1│ 1│ 1│ 1│ +│ Layer ID │ 4│ 4│ 4│ 4│ +│ Subtable ID│ 29│ 29│ 31│ 31│ +│ ╶───────────────┼────┼────┼────┼────┤ +│ No Table ID │ 1│ 1│ 1│ 1│ +│ Layer ID │ 4│ 4│ 4│ 4│ +│ Subtable ID│ 29│ 29│ 31│ 31│ +╰──────────────────────────────────────┴────┴────┴────┴────╯ + + Custom Tables +Female +No +╭──────────────────────────────────────┬───────────────────╮ +│ │ QN27 │ +│ ├─────────┬─────────┤ +│ │ Yes │ No │ +│ ├─────────┼─────────┤ +│ │ QND7A │ QND7A │ +│ ├────┬────┼────┬────┤ +│ │ Yes│ No │ Yes│ No │ +│ ├────┼────┼────┼────┤ +│ │QN86│QN86│QN86│QN86│ +├──────────────────────────────────────┼────┼────┼────┼────┤ +│QN26 Yes QN61 Yes QN57 Yes Table ID │ 1│ 1│ 1│ 1│ +│ Layer ID │ 3│ 3│ 3│ 3│ +│ Subtable ID│ 17│ 17│ 20│ 20│ +│ ╶───────────────┼────┼────┼────┼────┤ +│ No Table ID │ 1│ 1│ 1│ 1│ +│ Layer ID │ 3│ 3│ 3│ 3│ +│ Subtable ID│ 17│ 17│ 20│ 20│ +│ ╶────────────────────────┼────┼────┼────┼────┤ +│ No QN57 Yes Table ID │ 1│ 1│ 1│ 1│ +│ Layer ID │ 3│ 3│ 3│ 3│ +│ Subtable ID│ 21│ 21│ 24│ 24│ +│ ╶───────────────┼────┼────┼────┼────┤ +│ No Table ID │ 1│ 1│ 1│ 1│ +│ Layer ID │ 3│ 3│ 3│ 3│ +│ Subtable ID│ 21│ 21│ 24│ 24│ +│ ╶─────────────────────────────────┼────┼────┼────┼────┤ +│ No QN61 Yes QN57 Yes Table ID │ 1│ 1│ 1│ 1│ +│ Layer ID │ 3│ 3│ 3│ 3│ +│ Subtable ID│ 25│ 25│ 27│ 27│ +│ ╶───────────────┼────┼────┼────┼────┤ +│ No Table ID │ 1│ 1│ 1│ 1│ +│ Layer ID │ 3│ 3│ 3│ 3│ +│ Subtable ID│ 25│ 25│ 27│ 27│ +│ ╶────────────────────────┼────┼────┼────┼────┤ +│ No QN57 Yes Table ID │ 1│ 1│ 1│ 1│ +│ Layer ID │ 3│ 3│ 3│ 3│ +│ Subtable ID│ 30│ 30│ 32│ 32│ +│ ╶───────────────┼────┼────┼────┼────┤ +│ No Table ID │ 1│ 1│ 1│ 1│ +│ Layer ID │ 3│ 3│ 3│ 3│ +│ Subtable ID│ 30│ 30│ 32│ 32│ +╰──────────────────────────────────────┴────┴────┴────┴────╯ + + Custom Tables +Male +Yes +╭───────────────────────────────────────┬───────────────────╮ +│ │ QN27 │ +│ ├─────────┬─────────┤ +│ │ Yes │ No │ +│ ├─────────┼─────────┤ +│ │ QND7A │ QND7A │ +│ ├────┬────┼────┬────┤ +│ │ Yes│ No │ Yes│ No │ +│ ├────┼────┼────┼────┤ +│ │QN86│QN86│QN86│QN86│ +├───────────────────────────────────────┼────┼────┼────┼────┤ +│QN26 Yes QN61 Yes QN57 Yes Row ID │ 2│ 2│ 3│ 3│ +│ Layer Row ID│ 2│ 2│ 2│ 2│ +│ ╶────────────────┼────┼────┼────┼────┤ +│ No Row ID │ 5│ 5│ 7│ 7│ +│ Layer Row ID│ 3│ 3│ 3│ 3│ +│ ╶─────────────────────────┼────┼────┼────┼────┤ +│ No QN57 Yes Row ID │ 10│ 10│ 11│ 11│ +│ Layer Row ID│ 6│ 6│ 6│ 6│ +│ ╶────────────────┼────┼────┼────┼────┤ +│ No Row ID │ 14│ 14│ 16│ 16│ +│ Layer Row ID│ 8│ 8│ 8│ 8│ +│ ╶──────────────────────────────────┼────┼────┼────┼────┤ +│ No QN61 Yes QN57 Yes Row ID │ 17│ 17│ 19│ 19│ +│ Layer Row ID│ 9│ 9│ 9│ 9│ +│ ╶────────────────┼────┼────┼────┼────┤ +│ No Row ID │ 21│ 21│ 23│ 23│ +│ Layer Row ID│ 11│ 11│ 11│ 11│ +│ ╶─────────────────────────┼────┼────┼────┼────┤ +│ No QN57 Yes Row ID │ 26│ 26│ 28│ 28│ +│ Layer Row ID│ 14│ 14│ 14│ 14│ +│ ╶────────────────┼────┼────┼────┼────┤ +│ No Row ID │ 30│ 30│ 32│ 32│ +│ Layer Row ID│ 16│ 16│ 16│ 16│ +╰───────────────────────────────────────┴────┴────┴────┴────╯ + + Custom Tables +Male +No +╭───────────────────────────────────────┬───────────────────╮ +│ │ QN27 │ +│ ├─────────┬─────────┤ +│ │ Yes │ No │ +│ ├─────────┼─────────┤ +│ │ QND7A │ QND7A │ +│ ├────┬────┼────┬────┤ +│ │ Yes│ No │ Yes│ No │ +│ ├────┼────┼────┼────┤ +│ │QN86│QN86│QN86│QN86│ +├───────────────────────────────────────┼────┼────┼────┼────┤ +│QN26 Yes QN61 Yes QN57 Yes Row ID │ 1│ 1│ 4│ 4│ +│ Layer Row ID│ 1│ 1│ 1│ 1│ +│ ╶────────────────┼────┼────┼────┼────┤ +│ No Row ID │ 6│ 6│ 8│ 8│ +│ Layer Row ID│ 4│ 4│ 4│ 4│ +│ ╶─────────────────────────┼────┼────┼────┼────┤ +│ No QN57 Yes Row ID │ 9│ 9│ 12│ 12│ +│ Layer Row ID│ 5│ 5│ 5│ 5│ +│ ╶────────────────┼────┼────┼────┼────┤ +│ No Row ID │ 13│ 13│ 15│ 15│ +│ Layer Row ID│ 7│ 7│ 7│ 7│ +│ ╶──────────────────────────────────┼────┼────┼────┼────┤ +│ No QN61 Yes QN57 Yes Row ID │ 18│ 18│ 20│ 20│ +│ Layer Row ID│ 10│ 10│ 10│ 10│ +│ ╶────────────────┼────┼────┼────┼────┤ +│ No Row ID │ 22│ 22│ 24│ 24│ +│ Layer Row ID│ 12│ 12│ 12│ 12│ +│ ╶─────────────────────────┼────┼────┼────┼────┤ +│ No QN57 Yes Row ID │ 25│ 25│ 27│ 27│ +│ Layer Row ID│ 13│ 13│ 13│ 13│ +│ ╶────────────────┼────┼────┼────┼────┤ +│ No Row ID │ 29│ 29│ 31│ 31│ +│ Layer Row ID│ 15│ 15│ 15│ 15│ +╰───────────────────────────────────────┴────┴────┴────┴────╯ + + Custom Tables +Female +Yes +╭───────────────────────────────────────┬───────────────────╮ +│ │ QN27 │ +│ ├─────────┬─────────┤ +│ │ Yes │ No │ +│ ├─────────┼─────────┤ +│ │ QND7A │ QND7A │ +│ ├────┬────┼────┬────┤ +│ │ Yes│ No │ Yes│ No │ +│ ├────┼────┼────┼────┤ +│ │QN86│QN86│QN86│QN86│ +├───────────────────────────────────────┼────┼────┼────┼────┤ +│QN26 Yes QN61 Yes QN57 Yes Row ID │ 33│ 33│ 36│ 36│ +│ Layer Row ID│ 17│ 17│ 17│ 17│ +│ ╶────────────────┼────┼────┼────┼────┤ +│ No Row ID │ 37│ 37│ 39│ 39│ +│ Layer Row ID│ 19│ 19│ 19│ 19│ +│ ╶─────────────────────────┼────┼────┼────┼────┤ +│ No QN57 Yes Row ID │ 41│ 41│ 44│ 44│ +│ Layer Row ID│ 21│ 21│ 21│ 21│ +│ ╶────────────────┼────┼────┼────┼────┤ +│ No Row ID │ 45│ 45│ 48│ 48│ +│ Layer Row ID│ 23│ 23│ 23│ 23│ +│ ╶──────────────────────────────────┼────┼────┼────┼────┤ +│ No QN61 Yes QN57 Yes Row ID │ 49│ 49│ 52│ 52│ +│ Layer Row ID│ 25│ 25│ 25│ 25│ +│ ╶────────────────┼────┼────┼────┼────┤ +│ No Row ID │ 53│ 53│ 55│ 55│ +│ Layer Row ID│ 27│ 27│ 27│ 27│ +│ ╶─────────────────────────┼────┼────┼────┼────┤ +│ No QN57 Yes Row ID │ 58│ 58│ 59│ 59│ +│ Layer Row ID│ 30│ 30│ 30│ 30│ +│ ╶────────────────┼────┼────┼────┼────┤ +│ No Row ID │ 62│ 62│ 64│ 64│ +│ Layer Row ID│ 32│ 32│ 32│ 32│ +╰───────────────────────────────────────┴────┴────┴────┴────╯ + + Custom Tables +Female +No +╭───────────────────────────────────────┬───────────────────╮ +│ │ QN27 │ +│ ├─────────┬─────────┤ +│ │ Yes │ No │ +│ ├─────────┼─────────┤ +│ │ QND7A │ QND7A │ +│ ├────┬────┼────┬────┤ +│ │ Yes│ No │ Yes│ No │ +│ ├────┼────┼────┼────┤ +│ │QN86│QN86│QN86│QN86│ +├───────────────────────────────────────┼────┼────┼────┼────┤ +│QN26 Yes QN61 Yes QN57 Yes Row ID │ 34│ 34│ 35│ 35│ +│ Layer Row ID│ 18│ 18│ 18│ 18│ +│ ╶────────────────┼────┼────┼────┼────┤ +│ No Row ID │ 38│ 38│ 40│ 40│ +│ Layer Row ID│ 20│ 20│ 20│ 20│ +│ ╶─────────────────────────┼────┼────┼────┼────┤ +│ No QN57 Yes Row ID │ 42│ 42│ 43│ 43│ +│ Layer Row ID│ 22│ 22│ 22│ 22│ +│ ╶────────────────┼────┼────┼────┼────┤ +│ No Row ID │ 46│ 46│ 47│ 47│ +│ Layer Row ID│ 24│ 24│ 24│ 24│ +│ ╶──────────────────────────────────┼────┼────┼────┼────┤ +│ No QN61 Yes QN57 Yes Row ID │ 50│ 50│ 51│ 51│ +│ Layer Row ID│ 26│ 26│ 26│ 26│ +│ ╶────────────────┼────┼────┼────┼────┤ +│ No Row ID │ 54│ 54│ 56│ 56│ +│ Layer Row ID│ 28│ 28│ 28│ 28│ +│ ╶─────────────────────────┼────┼────┼────┼────┤ +│ No QN57 Yes Row ID │ 57│ 57│ 60│ 60│ +│ Layer Row ID│ 29│ 29│ 29│ 29│ +│ ╶────────────────┼────┼────┼────┼────┤ +│ No Row ID │ 61│ 61│ 63│ 63│ +│ Layer Row ID│ 31│ 31│ 31│ 31│ +╰───────────────────────────────────────┴────┴────┴────┴────╯ + + Custom Tables +Male +Yes +╭──────────────────────────────────────────┬───────────────────╮ +│ │ QN27 │ +│ ├─────────┬─────────┤ +│ │ Yes │ No │ +│ ├─────────┼─────────┤ +│ │ QND7A │ QND7A │ +│ ├────┬────┼────┬────┤ +│ │ Yes│ No │ Yes│ No │ +│ ├────┼────┼────┼────┤ +│ │QN86│QN86│QN86│QN86│ +├──────────────────────────────────────────┼────┼────┼────┼────┤ +│QN26 Yes QN61 Yes QN57 Yes Column ID │ 1│ 4│ 5│ 7│ +│ Layer Column ID│ 1│ 4│ 5│ 7│ +│ ╶───────────────────┼────┼────┼────┼────┤ +│ No Column ID │ 1│ 4│ 5│ 7│ +│ Layer Column ID│ 1│ 4│ 5│ 7│ +│ ╶────────────────────────────┼────┼────┼────┼────┤ +│ No QN57 Yes Column ID │ 9│ 12│ 14│ 15│ +│ Layer Column ID│ 1│ 4│ 5│ 7│ +│ ╶───────────────────┼────┼────┼────┼────┤ +│ No Column ID │ 9│ 12│ 14│ 15│ +│ Layer Column ID│ 1│ 4│ 5│ 7│ +│ ╶─────────────────────────────────────┼────┼────┼────┼────┤ +│ No QN61 Yes QN57 Yes Column ID │ 18│ 20│ 22│ 24│ +│ Layer Column ID│ 1│ 4│ 5│ 7│ +│ ╶───────────────────┼────┼────┼────┼────┤ +│ No Column ID │ 18│ 20│ 22│ 24│ +│ Layer Column ID│ 1│ 4│ 5│ 7│ +│ ╶────────────────────────────┼────┼────┼────┼────┤ +│ No QN57 Yes Column ID │ 26│ 27│ 30│ 31│ +│ Layer Column ID│ 1│ 4│ 5│ 7│ +│ ╶───────────────────┼────┼────┼────┼────┤ +│ No Column ID │ 26│ 27│ 30│ 31│ +│ Layer Column ID│ 1│ 4│ 5│ 7│ +╰──────────────────────────────────────────┴────┴────┴────┴────╯ + + Custom Tables +Male +No +╭──────────────────────────────────────────┬───────────────────╮ +│ │ QN27 │ +│ ├─────────┬─────────┤ +│ │ Yes │ No │ +│ ├─────────┼─────────┤ +│ │ QND7A │ QND7A │ +│ ├────┬────┼────┬────┤ +│ │ Yes│ No │ Yes│ No │ +│ ├────┼────┼────┼────┤ +│ │QN86│QN86│QN86│QN86│ +├──────────────────────────────────────────┼────┼────┼────┼────┤ +│QN26 Yes QN61 Yes QN57 Yes Column ID │ 2│ 3│ 6│ 8│ +│ Layer Column ID│ 2│ 3│ 6│ 8│ +│ ╶───────────────────┼────┼────┼────┼────┤ +│ No Column ID │ 2│ 3│ 6│ 8│ +│ Layer Column ID│ 2│ 3│ 6│ 8│ +│ ╶────────────────────────────┼────┼────┼────┼────┤ +│ No QN57 Yes Column ID │ 10│ 11│ 13│ 16│ +│ Layer Column ID│ 2│ 3│ 6│ 8│ +│ ╶───────────────────┼────┼────┼────┼────┤ +│ No Column ID │ 10│ 11│ 13│ 16│ +│ Layer Column ID│ 2│ 3│ 6│ 8│ +│ ╶─────────────────────────────────────┼────┼────┼────┼────┤ +│ No QN61 Yes QN57 Yes Column ID │ 17│ 19│ 21│ 23│ +│ Layer Column ID│ 2│ 3│ 6│ 8│ +│ ╶───────────────────┼────┼────┼────┼────┤ +│ No Column ID │ 17│ 19│ 21│ 23│ +│ Layer Column ID│ 2│ 3│ 6│ 8│ +│ ╶────────────────────────────┼────┼────┼────┼────┤ +│ No QN57 Yes Column ID │ 25│ 28│ 29│ 32│ +│ Layer Column ID│ 2│ 3│ 6│ 8│ +│ ╶───────────────────┼────┼────┼────┼────┤ +│ No Column ID │ 25│ 28│ 29│ 32│ +│ Layer Column ID│ 2│ 3│ 6│ 8│ +╰──────────────────────────────────────────┴────┴────┴────┴────╯ + + Custom Tables +Female +Yes +╭──────────────────────────────────────────┬───────────────────╮ +│ │ QN27 │ +│ ├─────────┬─────────┤ +│ │ Yes │ No │ +│ ├─────────┼─────────┤ +│ │ QND7A │ QND7A │ +│ ├────┬────┼────┬────┤ +│ │ Yes│ No │ Yes│ No │ +│ ├────┼────┼────┼────┤ +│ │QN86│QN86│QN86│QN86│ +├──────────────────────────────────────────┼────┼────┼────┼────┤ +│QN26 Yes QN61 Yes QN57 Yes Column ID │ 34│ 36│ 37│ 39│ +│ Layer Column ID│ 10│ 12│ 13│ 15│ +│ ╶───────────────────┼────┼────┼────┼────┤ +│ No Column ID │ 34│ 36│ 37│ 39│ +│ Layer Column ID│ 10│ 12│ 13│ 15│ +│ ╶────────────────────────────┼────┼────┼────┼────┤ +│ No QN57 Yes Column ID │ 41│ 43│ 46│ 48│ +│ Layer Column ID│ 10│ 12│ 13│ 15│ +│ ╶───────────────────┼────┼────┼────┼────┤ +│ No Column ID │ 41│ 43│ 46│ 48│ +│ Layer Column ID│ 10│ 12│ 13│ 15│ +│ ╶─────────────────────────────────────┼────┼────┼────┼────┤ +│ No QN61 Yes QN57 Yes Column ID │ 50│ 51│ 53│ 55│ +│ Layer Column ID│ 10│ 12│ 13│ 15│ +│ ╶───────────────────┼────┼────┼────┼────┤ +│ No Column ID │ 50│ 51│ 53│ 55│ +│ Layer Column ID│ 10│ 12│ 13│ 15│ +│ ╶────────────────────────────┼────┼────┼────┼────┤ +│ No QN57 Yes Column ID │ 58│ 60│ 62│ 64│ +│ Layer Column ID│ 10│ 12│ 13│ 15│ +│ ╶───────────────────┼────┼────┼────┼────┤ +│ No Column ID │ 58│ 60│ 62│ 64│ +│ Layer Column ID│ 10│ 12│ 13│ 15│ +╰──────────────────────────────────────────┴────┴────┴────┴────╯ + + Custom Tables +Female +No +╭──────────────────────────────────────────┬───────────────────╮ +│ │ QN27 │ +│ ├─────────┬─────────┤ +│ │ Yes │ No │ +│ ├─────────┼─────────┤ +│ │ QND7A │ QND7A │ +│ ├────┬────┼────┬────┤ +│ │ Yes│ No │ Yes│ No │ +│ ├────┼────┼────┼────┤ +│ │QN86│QN86│QN86│QN86│ +├──────────────────────────────────────────┼────┼────┼────┼────┤ +│QN26 Yes QN61 Yes QN57 Yes Column ID │ 33│ 35│ 38│ 40│ +│ Layer Column ID│ 9│ 11│ 14│ 16│ +│ ╶───────────────────┼────┼────┼────┼────┤ +│ No Column ID │ 33│ 35│ 38│ 40│ +│ Layer Column ID│ 9│ 11│ 14│ 16│ +│ ╶────────────────────────────┼────┼────┼────┼────┤ +│ No QN57 Yes Column ID │ 42│ 44│ 45│ 47│ +│ Layer Column ID│ 9│ 11│ 14│ 16│ +│ ╶───────────────────┼────┼────┼────┼────┤ +│ No Column ID │ 42│ 44│ 45│ 47│ +│ Layer Column ID│ 9│ 11│ 14│ 16│ +│ ╶─────────────────────────────────────┼────┼────┼────┼────┤ +│ No QN61 Yes QN57 Yes Column ID │ 49│ 52│ 54│ 56│ +│ Layer Column ID│ 9│ 11│ 14│ 16│ +│ ╶───────────────────┼────┼────┼────┼────┤ +│ No Column ID │ 49│ 52│ 54│ 56│ +│ Layer Column ID│ 9│ 11│ 14│ 16│ +│ ╶────────────────────────────┼────┼────┼────┼────┤ +│ No QN57 Yes Column ID │ 57│ 59│ 61│ 63│ +│ Layer Column ID│ 9│ 11│ 14│ 16│ +│ ╶───────────────────┼────┼────┼────┼────┤ +│ No Column ID │ 57│ 59│ 61│ 63│ +│ Layer Column ID│ 9│ 11│ 14│ 16│ +╰──────────────────────────────────────────┴────┴────┴────┴────╯ +]) +AT_CLEANUP + +AT_SETUP([CTABLES categorical summary functions]) +AT_CHECK([ln $top_srcdir/examples/nhtsa.sav . || cp $top_srcdir/examples/nhtsa.sav .]) +AT_DATA([ctables.sps], +[[GET 'nhtsa.sav'. +CTABLES + /TABLE region BY qnd5a[COUNT, ROWPCT, ROWPCT.VALIDN, ROWPCT.TOTALN, TOTAL[COUNT, VALIDN, TOTALN]] + /CATEGORIES VARIABLES=qnd5a TOTAL=YES MISSING=INCLUDE + /SLABELS POSITION=ROW. +]]) +AT_CHECK([pspp ctables.sps -O box=unicode -O width=120], [0], [dnl + Custom Tables +╭─────────────────┬────────────────────────────────────────────────────────────────────────────────────────────────────╮ +│ │ D5a. What would you say is your primary ethnic background? │ +│ ├─────┬───────┬───────┬──────────┬──────────┬─────────┬──────────┬──────────────┬──────┬───────┬─────┤ +│ │ │ │ │ │ │ │ │ Multiple - │ │ │ │ +│ │ │ │ │ South │ Central │ Puerto │ Something│ cannot choose│ Don't│ │ │ +│ │Cuban│Mexican│Spanish│ American │ American │Rican, OR│ else │ one │ know │Refused│Total│ +├─────────────────┼─────┼───────┼───────┼──────────┼──────────┼─────────┼──────────┼──────────────┼──────┼───────┼─────┤ +│Region NE Count │ 6│ 8│ 8│ 11│ 7│ 39│ 23│ 2│ 0│ 1│ 105│ +│ Row % │ 5.7%│ 7.6%│ 7.6%│ 10.5%│ 6.7%│ 37.1%│ 21.9%│ 1.9%│ .0%│ 1.0%│ │ +│ Row │ 5.8%│ 7.7%│ 7.7%│ 10.6%│ 6.7%│ 37.5%│ 22.1%│ 1.9%│ .0%│ .0%│ │ +│ Valid N│ │ │ │ │ │ │ │ │ │ │ │ +│ % │ │ │ │ │ │ │ │ │ │ │ │ +│ Row │ .4%│ .6%│ .6%│ .8%│ .5%│ 2.8%│ 1.6%│ .1%│ .0%│ .1%│ │ +│ Total N│ │ │ │ │ │ │ │ │ │ │ │ +│ % │ │ │ │ │ │ │ │ │ │ │ │ +│ Valid N│ │ │ │ │ │ │ │ │ │ │ 104│ +│ Total N│ │ │ │ │ │ │ │ │ │ │ 1409│ +│ ╶──────────┼─────┼───────┼───────┼──────────┼──────────┼─────────┼──────────┼──────────────┼──────┼───────┼─────┤ +│ MW Count │ 3│ 24│ 1│ 4│ 5│ 9│ 6│ 0│ 0│ 1│ 53│ +│ Row % │ 5.7%│ 45.3%│ 1.9%│ 7.5%│ 9.4%│ 17.0%│ 11.3%│ .0%│ .0%│ 1.9%│ │ +│ Row │ 5.8%│ 46.2%│ 1.9%│ 7.7%│ 9.6%│ 17.3%│ 11.5%│ .0%│ .0%│ .0%│ │ +│ Valid N│ │ │ │ │ │ │ │ │ │ │ │ +│ % │ │ │ │ │ │ │ │ │ │ │ │ +│ Row │ .2%│ 1.5%│ .1%│ .2%│ .3%│ .5%│ .4%│ .0%│ .0%│ .1%│ │ +│ Total N│ │ │ │ │ │ │ │ │ │ │ │ +│ % │ │ │ │ │ │ │ │ │ │ │ │ +│ Valid N│ │ │ │ │ │ │ │ │ │ │ 52│ +│ Total N│ │ │ │ │ │ │ │ │ │ │ 1654│ +│ ╶──────────┼─────┼───────┼───────┼──────────┼──────────┼─────────┼──────────┼──────────────┼──────┼───────┼─────┤ +│ S Count │ 10│ 113│ 11│ 14│ 25│ 23│ 20│ 2│ 3│ 2│ 223│ +│ Row % │ 4.5%│ 50.7%│ 4.9%│ 6.3%│ 11.2%│ 10.3%│ 9.0%│ .9%│ 1.3%│ .9%│ │ +│ Row │ 4.6%│ 51.8%│ 5.0%│ 6.4%│ 11.5%│ 10.6%│ 9.2%│ .9%│ .0%│ .0%│ │ +│ Valid N│ │ │ │ │ │ │ │ │ │ │ │ +│ % │ │ │ │ │ │ │ │ │ │ │ │ +│ Row │ .4%│ 4.7%│ .5%│ .6%│ 1.0%│ 1.0%│ .8%│ .1%│ .1%│ .1%│ │ +│ Total N│ │ │ │ │ │ │ │ │ │ │ │ +│ % │ │ │ │ │ │ │ │ │ │ │ │ +│ Valid N│ │ │ │ │ │ │ │ │ │ │ 218│ +│ Total N│ │ │ │ │ │ │ │ │ │ │ 2390│ +│ ╶──────────┼─────┼───────┼───────┼──────────┼──────────┼─────────┼──────────┼──────────────┼──────┼───────┼─────┤ +│ W Count │ 1│ 166│ 28│ 5│ 15│ 7│ 19│ 3│ 0│ 1│ 245│ +│ Row % │ .4%│ 67.8%│ 11.4%│ 2.0%│ 6.1%│ 2.9%│ 7.8%│ 1.2%│ .0%│ .4%│ │ +│ Row │ .4%│ 68.0%│ 11.5%│ 2.0%│ 6.1%│ 2.9%│ 7.8%│ 1.2%│ .0%│ .0%│ │ +│ Valid N│ │ │ │ │ │ │ │ │ │ │ │ +│ % │ │ │ │ │ │ │ │ │ │ │ │ +│ Row │ .1%│ 10.7%│ 1.8%│ .3%│ 1.0%│ .5%│ 1.2%│ .2%│ .0%│ .1%│ │ +│ Total N│ │ │ │ │ │ │ │ │ │ │ │ +│ % │ │ │ │ │ │ │ │ │ │ │ │ +│ Valid N│ │ │ │ │ │ │ │ │ │ │ 244│ +│ Total N│ │ │ │ │ │ │ │ │ │ │ 1546│ +╰─────────────────┴─────┴───────┴───────┴──────────┴──────────┴─────────┴──────────┴──────────────┴──────┴───────┴─────╯ +]) +AT_CLEANUP + +AT_SETUP([CTABLES scale summary functions]) +AT_CHECK([ln $top_srcdir/examples/nhtsa.sav . || cp $top_srcdir/examples/nhtsa.sav .]) +AT_DATA([ctables.sps], +[[GET 'nhtsa.sav'. +SET TVAR=NAME. + +* Use SPLIT FILE with FREQUENCIES to generate output equivalent to + CTABLES later, to make the results easier to verify. +SPLIT FILE BY REGION. +FREQUENCIES + qn19a + /STATISTICS=MEAN SEMEAN MEDIAN MODE STDDEV VARIANCE RANGE MINIMUM MAXIMUM SUM + /FORMAT NOTABLE /MISSING=INCLUDE. +SPLIT FILE OFF. + +CTABLES + /VLABELS VARIABLE=qn19a DISPLAY=NONE + /TABLE region BY qn19a[VALIDN, MISSING, MEAN, SEMEAN, MEDIAN, MODE, STDDEV, VARIANCE, RANGE, MINIMUM, MAXIMUM, SUM, COUNT, TOTALN, ROWPCT.SUM] + /CATEGORIES VARIABLES=qn19a TOTAL=YES MISSING=INCLUDE + /SLABELS POSITION=ROW + /CLABELS ROWLABELS=OPPOSITE. +]]) +AT_CHECK([pspp ctables.sps -O box=unicode -O width=120], [0], [dnl + Statistics +╭─────────┬───────────────────────────────────╮ +│ │ REGION │ +│ ├────────┬────────┬────────┬────────┤ +│ │ NE │ MW │ S │ W │ +│ ├────────┼────────┼────────┼────────┤ +│ │ QN19A │ QN19A │ QN19A │ QN19A │ +├─────────┼────────┼────────┼────────┼────────┤ +│N Valid │ 936│ 1019│ 1276│ 950│ +│ Missing│ 473│ 635│ 1114│ 596│ +├─────────┼────────┼────────┼────────┼────────┤ +│Mean │ 19.33│ 19.83│ 20.29│ 19.87│ +├─────────┼────────┼────────┼────────┼────────┤ +│S.E. Mean│ .14│ .16│ .18│ .17│ +├─────────┼────────┼────────┼────────┼────────┤ +│Median │ 18.00│ 19.00│ 19.00│ 19.00│ +├─────────┼────────┼────────┼────────┼────────┤ +│Mode │ 18.00│ 18.00│ 18.00│ 18.00│ +├─────────┼────────┼────────┼────────┼────────┤ +│Std Dev │ 4.41│ 5.15│ 6.44│ 5.25│ +├─────────┼────────┼────────┼────────┼────────┤ +│Variance │ 19.41│ 26.47│ 41.43│ 27.59│ +├─────────┼────────┼────────┼────────┼────────┤ +│Range │ 59.00│ 71.00│ 75.00│ 61.00│ +├─────────┼────────┼────────┼────────┼────────┤ +│Minimum │ .00│ 4.00│ 4.00│ 4.00│ +├─────────┼────────┼────────┼────────┼────────┤ +│Maximum │ 59.00│ 75.00│ 79.00│ 65.00│ +├─────────┼────────┼────────┼────────┼────────┤ +│Sum │18092.00│20206.00│25886.00│18877.00│ +╰─────────┴────────┴────────┴────────┴────────╯ + + Custom Tables +╭────────────────────────┬────────┬────────┬────────┬────────╮ +│ │ NE │ MW │ S │ W │ +├────────────────────────┼────────┼────────┼────────┼────────┤ +│REGION Valid N │ 936│ 1019│ 1276│ 950│ +│ Missing │ 473.00│ 635.00│ 1114.00│ 596.00│ +│ Mean │ 19.33│ 19.83│ 20.29│ 19.87│ +│ Std Error of Mean│ .14│ .16│ .18│ .17│ +│ Median │ 18.00│ 19.00│ 19.00│ 19.00│ +│ Mode │ 18.00│ 18.00│ 18.00│ 18.00│ +│ Std Deviation │ 4.41│ 5.15│ 6.44│ 5.25│ +│ Variance │ 19.41│ 26.47│ 41.43│ 27.59│ +│ Range │ 59.00│ 71.00│ 75.00│ 61.00│ +│ Minimum │ .00│ 4.00│ 4.00│ 4.00│ +│ Maximum │ 59.00│ 75.00│ 79.00│ 65.00│ +│ Sum │18092.00│20206.00│25886.00│18877.00│ +│ Count │ 1409│ 1654│ 2390│ 1546│ +│ Total N │ 1409│ 1654│ 2390│ 1546│ +│ Row Sum % │ 21.8%│ 24.3%│ 31.2%│ 22.7%│ +╰────────────────────────┴────────┴────────┴────────┴────────╯ +]) +AT_CLEANUP + +AT_SETUP([CTABLES scale summary functions - weighting]) +weight=1 +c=10 +for a in 1 2 9; do + for b in 3 4 9; do + for n in 1 2 3 4 5 6 7 8 9 10; do + if test $c -lt 15; then + cval=. + else + cval=$c + fi + printf "$weight $a $b $cval\n" + weight=$(expr \( $weight + 3 \) % 7 + 2) + c=$(expr \( $c + 13 \) % 29 + 7) + done + done +done > ctables.txt + +AT_DATA([analysis.sps], +[[* Use SPLIT FILE with FREQUENCIES to generate output equivalent to + CTABLES later, to make the results easier to verify. +SPLIT FILE BY a b. +FREQUENCIES + c + /STATISTICS=MEAN SEMEAN MEDIAN MODE STDDEV VARIANCE RANGE MINIMUM MAXIMUM SUM + /FORMAT NOTABLE /MISSING=INCLUDE. +SPLIT FILE OFF. + +CTABLES + /TABLE c[VALIDN, MISSING, MEAN F8.2, SEMEAN F8.2, MEDIAN F8.2, MODE, STDDEV F8.2, VARIANCE F8.2, RANGE F8.2, MINIMUM, MAXIMUM, SUM F8.2, COUNT, TOTALN, LAYERROWPCT.SUM] BY a>b + /SLABELS POSITION=ROW + /CATEGORIES VARIABLES=a b MISSING=INCLUDE. +]]) + +AT_DATA([ctables.sps], +[[DATA LIST LIST NOTABLE FILE='ctables.txt' + /w (F5.0) a b c (f2.0). +VAR LEVEL w c (SCALE) a b (NOMINAL). +MISSING VALUES a b (9). + +INCLUDE 'analysis.sps'. + +WEIGHT BY w. +INCLUDE 'analysis.sps'. + +* Same as original analysis using unweighted versions of summaries. +CTABLES + /TABLE c[UVALIDN, UMISSING, UMEAN F8.2, USEMEAN F8.2, UMEDIAN F8.2, UMODE, USTDDEV F8.2, UVARIANCE F8.2, USUM F8.2, UCOUNT, UTOTALN, ULAYERROWPCT.SUM] BY a>b + /SLABELS POSITION=ROW + /CATEGORIES VARIABLES=a b MISSING=INCLUDE. +]]) +AT_CHECK([pspp ctables.sps -O box=unicode -O width=120], [0], [dnl + Statistics +╭─────────┬──────────────────────────────────────────────────────────────╮ +│ │ a │ +│ ├────────────────────┬────────────────────┬────────────────────┤ +│ │ 1 │ 2 │ 9 │ +│ ├────────────────────┼────────────────────┼────────────────────┤ +│ │ b │ b │ b │ +│ ├──────┬──────┬──────┼──────┬──────┬──────┼──────┬──────┬──────┤ +│ │ 3 │ 4 │ 9 │ 3 │ 4 │ 9 │ 3 │ 4 │ 9 │ +│ ├──────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┤ +│ │ c │ c │ c │ c │ c │ c │ c │ c │ c │ +├─────────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┤ +│N Valid │ 7│ 6│ 8│ 7│ 7│ 8│ 7│ 7│ 8│ +│ Missing│ 3│ 4│ 2│ 3│ 3│ 2│ 3│ 3│ 2│ +├─────────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┤ +│Mean │ 25.86│ 24.50│ 24.63│ 25.86│ 25.71│ 24.25│ 25.43│ 25.29│ 23.88│ +├─────────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┤ +│S.E. Mean│ 2.44│ 2.14│ 2.58│ 2.44│ 2.18│ 2.43│ 2.36│ 2.18│ 2.47│ +├─────────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┤ +│Median │ 25.00│ 24.50│ 25.00│ 25.00│ 27.00│ 25.00│ 25.00│ 24.00│ 23.50│ +├─────────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┤ +│Mode │ 16│ 18│ 15│ 16│ 18│ 15│ 16│ 18│ 15│ +├─────────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┤ +│Std Dev │ 6.47│ 5.24│ 7.31│ 6.47│ 5.77│ 6.88│ 6.24│ 5.77│ 6.98│ +├─────────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┤ +│Variance │ 41.81│ 27.50│ 53.41│ 41.81│ 33.24│ 47.36│ 38.95│ 33.24│ 48.70│ +├─────────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┤ +│Range │ 18.00│ 13.00│ 20.00│ 18.00│ 15.00│ 20.00│ 18.00│ 15.00│ 20.00│ +├─────────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┤ +│Minimum │ 16│ 18│ 15│ 16│ 18│ 15│ 16│ 18│ 15│ +├─────────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┤ +│Maximum │ 34│ 31│ 35│ 34│ 33│ 35│ 34│ 33│ 35│ +├─────────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┤ +│Sum │181.00│147.00│197.00│181.00│180.00│194.00│178.00│177.00│191.00│ +╰─────────┴──────┴──────┴──────┴──────┴──────┴──────┴──────┴──────┴──────╯ + + Custom Tables +╭───────────────────┬──────────────────────────────────────────────────────────────╮ +│ │ a │ +│ ├────────────────────┬────────────────────┬────────────────────┤ +│ │ 1 │ 2 │ 9 │ +│ ├────────────────────┼────────────────────┼────────────────────┤ +│ │ b │ b │ b │ +│ ├──────┬──────┬──────┼──────┬──────┬──────┼──────┬──────┬──────┤ +│ │ 3 │ 4 │ 9 │ 3 │ 4 │ 9 │ 3 │ 4 │ 9 │ +├───────────────────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┤ +│c Valid N │ 7│ 6│ 8│ 7│ 7│ 8│ 7│ 7│ 8│ +│ Missing │ 3│ 4│ 2│ 3│ 3│ 2│ 3│ 3│ 2│ +│ Mean │ 25.86│ 24.50│ 24.63│ 25.86│ 25.71│ 24.25│ 25.43│ 25.29│ 23.88│ +│ Std Error of Mean│ 2.44│ 2.14│ 2.58│ 2.44│ 2.18│ 2.43│ 2.36│ 2.18│ 2.47│ +│ Median │ 25.00│ 24.50│ 25.00│ 25.00│ 27.00│ 25.00│ 25.00│ 24.00│ 23.50│ +│ Mode │ 16│ 18│ 15│ 16│ 18│ 15│ 16│ 18│ 15│ +│ Std Deviation │ 6.47│ 5.24│ 7.31│ 6.47│ 5.77│ 6.88│ 6.24│ 5.77│ 6.98│ +│ Variance │ 41.81│ 27.50│ 53.41│ 41.81│ 33.24│ 47.36│ 38.95│ 33.24│ 48.70│ +│ Range │ 18.00│ 13.00│ 20.00│ 18.00│ 15.00│ 20.00│ 18.00│ 15.00│ 20.00│ +│ Minimum │ 16│ 18│ 15│ 16│ 18│ 15│ 16│ 18│ 15│ +│ Maximum │ 34│ 31│ 35│ 34│ 33│ 35│ 34│ 33│ 35│ +│ Sum │181.00│147.00│197.00│181.00│180.00│194.00│178.00│177.00│191.00│ +│ Count │ 10│ 10│ 10│ 10│ 10│ 10│ 10│ 10│ 10│ +│ Total N │ 10│ 10│ 10│ 10│ 10│ 10│ 10│ 10│ 10│ +│ Layer Row Sum % │ 11.1%│ 9.0%│ 12.1%│ 11.1%│ 11.1%│ 11.9%│ 10.9%│ 10.9%│ 11.7%│ +╰───────────────────┴──────┴──────┴──────┴──────┴──────┴──────┴──────┴──────┴──────╯ + + Statistics +╭─────────┬─────────────────────────────────────────────────────────────────╮ +│ │ a │ +│ ├─────────────────────┬─────────────────────┬─────────────────────┤ +│ │ 1 │ 2 │ 9 │ +│ ├─────────────────────┼─────────────────────┼─────────────────────┤ +│ │ b │ b │ b │ +│ ├───────┬──────┬──────┼──────┬───────┬──────┼──────┬──────┬───────┤ +│ │ 3 │ 4 │ 9 │ 3 │ 4 │ 9 │ 3 │ 4 │ 9 │ +│ ├───────┼──────┼──────┼──────┼───────┼──────┼──────┼──────┼───────┤ +│ │ c │ c │ c │ c │ c │ c │ c │ c │ c │ +├─────────┼───────┼──────┼──────┼──────┼───────┼──────┼──────┼──────┼───────┤ +│N Valid │ 40│ 35│ 41│ 26│ 38│ 40│ 34│ 32│ 39│ +│ Missing│ 6│ 14│ 11│ 22│ 13│ 7│ 16│ 21│ 10│ +├─────────┼───────┼──────┼──────┼──────┼───────┼──────┼──────┼──────┼───────┤ +│Mean │ 27.23│ 24.20│ 22.63│ 27.96│ 27.21│ 23.48│ 23.71│ 25.47│ 26.03│ +├─────────┼───────┼──────┼──────┼──────┼───────┼──────┼──────┼──────┼───────┤ +│S.E. Mean│ .93│ .75│ 1.03│ 1.12│ .84│ .87│ 1.01│ 1.05│ 1.01│ +├─────────┼───────┼──────┼──────┼──────┼───────┼──────┼──────┼──────┼───────┤ +│Median │ 30.00│ 22.00│ 19.00│ 30.00│ 29.00│ 24.00│ 23.00│ 24.00│ 28.00│ +├─────────┼───────┼──────┼──────┼──────┼───────┼──────┼──────┼──────┼───────┤ +│Mode │ 34│ 29│ 19│ 34│ 33│ 28│ 23│ 18│ 30│ +├─────────┼───────┼──────┼──────┼──────┼───────┼──────┼──────┼──────┼───────┤ +│Std Dev │ 5.89│ 4.42│ 6.59│ 5.69│ 5.16│ 5.50│ 5.87│ 5.94│ 6.30│ +├─────────┼───────┼──────┼──────┼──────┼───────┼──────┼──────┼──────┼───────┤ +│Variance │ 34.64│ 19.52│ 43.39│ 32.36│ 26.66│ 30.20│ 34.46│ 35.29│ 39.71│ +├─────────┼───────┼──────┼──────┼──────┼───────┼──────┼──────┼──────┼───────┤ +│Range │ 18.00│ 13.00│ 20.00│ 18.00│ 15.00│ 20.00│ 18.00│ 15.00│ 20.00│ +├─────────┼───────┼──────┼──────┼──────┼───────┼──────┼──────┼──────┼───────┤ +│Minimum │ 16│ 18│ 15│ 16│ 18│ 15│ 16│ 18│ 15│ +├─────────┼───────┼──────┼──────┼──────┼───────┼──────┼──────┼──────┼───────┤ +│Maximum │ 34│ 31│ 35│ 34│ 33│ 35│ 34│ 33│ 35│ +├─────────┼───────┼──────┼──────┼──────┼───────┼──────┼──────┼──────┼───────┤ +│Sum │1089.00│847.00│928.00│727.00│1034.00│939.00│806.00│815.00│1015.00│ +╰─────────┴───────┴──────┴──────┴──────┴───────┴──────┴──────┴──────┴───────╯ + + Custom Tables +╭───────────────────┬─────────────────────────────────────────────────────────────────╮ +│ │ a │ +│ ├─────────────────────┬─────────────────────┬─────────────────────┤ +│ │ 1 │ 2 │ 9 │ +│ ├─────────────────────┼─────────────────────┼─────────────────────┤ +│ │ b │ b │ b │ +│ ├───────┬──────┬──────┼──────┬───────┬──────┼──────┬──────┬───────┤ +│ │ 3 │ 4 │ 9 │ 3 │ 4 │ 9 │ 3 │ 4 │ 9 │ +├───────────────────┼───────┼──────┼──────┼──────┼───────┼──────┼──────┼──────┼───────┤ +│c Valid N │ 40│ 35│ 41│ 26│ 38│ 40│ 34│ 32│ 39│ +│ Missing │ 6│ 14│ 11│ 22│ 13│ 7│ 16│ 21│ 10│ +│ Mean │ 27.22│ 24.20│ 22.63│ 27.96│ 27.21│ 23.48│ 23.71│ 25.47│ 26.03│ +│ Std Error of Mean│ .93│ .75│ 1.03│ 1.12│ .84│ .87│ 1.01│ 1.05│ 1.01│ +│ Median │ 30.00│ 22.00│ 19.00│ 30.00│ 29.00│ 24.00│ 23.00│ 24.00│ 28.00│ +│ Mode │ 34│ 29│ 19│ 34│ 33│ 28│ 23│ 18│ 30│ +│ Std Deviation │ 5.89│ 4.42│ 6.59│ 5.69│ 5.16│ 5.50│ 5.87│ 5.94│ 6.30│ +│ Variance │ 34.64│ 19.52│ 43.39│ 32.36│ 26.66│ 30.20│ 34.46│ 35.29│ 39.71│ +│ Range │ 18.00│ 13.00│ 20.00│ 18.00│ 15.00│ 20.00│ 18.00│ 15.00│ 20.00│ +│ Minimum │ 16│ 18│ 15│ 16│ 18│ 15│ 16│ 18│ 15│ +│ Maximum │ 34│ 31│ 35│ 34│ 33│ 35│ 34│ 33│ 35│ +│ Sum │1089.00│847.00│928.00│727.00│1034.00│939.00│806.00│815.00│1015.00│ +│ Count │ 46│ 49│ 52│ 48│ 51│ 47│ 50│ 53│ 49│ +│ Total N │ 46│ 49│ 52│ 48│ 51│ 47│ 50│ 53│ 49│ +│ Layer Row Sum % │ 13.3%│ 10.3%│ 11.3%│ 8.9%│ 12.6%│ 11.5%│ 9.8%│ 9.9%│ 12.4%│ +╰───────────────────┴───────┴──────┴──────┴──────┴───────┴──────┴──────┴──────┴───────╯ + + Custom Tables +╭──────────────────────────────┬──────────────────────────────────────────────────────────────╮ +│ │ a │ +│ ├────────────────────┬────────────────────┬────────────────────┤ +│ │ 1 │ 2 │ 9 │ +│ ├────────────────────┼────────────────────┼────────────────────┤ +│ │ b │ b │ b │ +│ ├──────┬──────┬──────┼──────┬──────┬──────┼──────┬──────┬──────┤ +│ │ 3 │ 4 │ 9 │ 3 │ 4 │ 9 │ 3 │ 4 │ 9 │ +├──────────────────────────────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┤ +│c Unweighted Valid N │ 7│ 6│ 8│ 7│ 7│ 8│ 7│ 7│ 8│ +│ Unweighted Missing │ 3│ 4│ 2│ 3│ 3│ 2│ 3│ 3│ 2│ +│ Unweighted Mean │ 25.86│ 24.50│ 24.63│ 25.86│ 25.71│ 24.25│ 25.43│ 25.29│ 23.88│ +│ Unweighted Std Error of Mean│ 2.44│ 2.14│ 2.58│ 2.44│ 2.18│ 2.43│ 2.36│ 2.18│ 2.47│ +│ Unweighted Median │ 25.00│ 24.50│ 25.00│ 25.00│ 27.00│ 25.00│ 25.00│ 24.00│ 23.50│ +│ Unweighted Mode │ 16│ 18│ 15│ 16│ 18│ 15│ 16│ 18│ 15│ +│ Unweighted Std Deviation │ 6.47│ 5.24│ 7.31│ 6.47│ 5.77│ 6.88│ 6.24│ 5.77│ 6.98│ +│ Unweighted Variance │ 41.81│ 27.50│ 53.41│ 41.81│ 33.24│ 47.36│ 38.95│ 33.24│ 48.70│ +│ Unweighted Sum │181.00│147.00│197.00│181.00│180.00│194.00│178.00│177.00│191.00│ +│ Unweighted Count │ 10│ 10│ 10│ 10│ 10│ 10│ 10│ 10│ 10│ +│ Unweighted Total N │ 10│ 10│ 10│ 10│ 10│ 10│ 10│ 10│ 10│ +│ Unweighted Layer Row Sum % │ 11.1%│ 9.0%│ 12.1%│ 11.1%│ 11.1%│ 11.9%│ 10.9%│ 10.9%│ 11.7%│ +╰──────────────────────────────┴──────┴──────┴──────┴──────┴──────┴──────┴──────┴──────┴──────╯ +]) +AT_CLEANUP + +AT_SETUP([CTABLES hidden scale VLABELS]) +AT_CHECK([ln $top_srcdir/examples/nhtsa.sav . || cp $top_srcdir/examples/nhtsa.sav .]) +AT_DATA([ctables.sps], +[[GET 'nhtsa.sav'. +CTABLES + /TABLE region BY qn19a + qn35 + /SLABELS POSITION=ROW. +CTABLES + /VLABELS VARIABLE=qn19a DISPLAY=NONE + /TABLE region BY qn19a + qn35 + /SLABELS POSITION=ROW. +CTABLES + /VLABELS VARIABLE=qn35 DISPLAY=NONE + /TABLE region BY qn19a + qn35 + /SLABELS POSITION=ROW. + +* This one in particular caused a crash because no categories were + created on the column axis, so passing in 0 for the index was still + too big for that number of categories. It was fixed by creating a + name-only category for each variable despite the "NONE" request, + then hiding the entire dimension's labels if all its labels were + set to "NONE". +CTABLES + /VLABELS VARIABLE=qn19a qn35 DISPLAY=NONE + /TABLE region BY qn19a + qn35 + /SLABELS POSITION=ROW. +]]) +AT_CHECK([pspp ctables.sps -O box=unicode], [0], [dnl + Custom Tables +╭──────────────┬────────────────────────────┬─────────────────────────────────╮ +│ │ 19a. About how old were you│ 35. In the past thirty days, how│ +│ │ when you first starting │ many times have you driven a │ +│ │ drinking alcohol, not │ motor vehicle WITHIN TWO HOURS │ +│ │ counting small tastes or │ AFTER drinking alcoholic │ +│ │ sips of alcohol. │ beverages? │ +├──────────────┼────────────────────────────┼─────────────────────────────────┤ +│Region NE Mean│ 19.33│ 2│ +│ ╶───────┼────────────────────────────┼─────────────────────────────────┤ +│ MW Mean│ 19.83│ 2│ +│ ╶───────┼────────────────────────────┼─────────────────────────────────┤ +│ S Mean│ 20.29│ 2│ +│ ╶───────┼────────────────────────────┼─────────────────────────────────┤ +│ W Mean│ 19.87│ 2│ +╰──────────────┴────────────────────────────┴─────────────────────────────────╯ + + Custom Tables +╭──────────────┬─────┬────────────────────────────────────────────────────────╮ +│ │ │ 35. In the past thirty days, how many times have you │ +│ │ │ driven a motor vehicle WITHIN TWO HOURS AFTER drinking │ +│ │QN19A│ alcoholic beverages? │ +├──────────────┼─────┼────────────────────────────────────────────────────────┤ +│Region NE Mean│19.33│ 2│ +│ ╶───────┼─────┼────────────────────────────────────────────────────────┤ +│ MW Mean│19.83│ 2│ +│ ╶───────┼─────┼────────────────────────────────────────────────────────┤ +│ S Mean│20.29│ 2│ +│ ╶───────┼─────┼────────────────────────────────────────────────────────┤ +│ W Mean│19.87│ 2│ +╰──────────────┴─────┴────────────────────────────────────────────────────────╯ + + Custom Tables +╭──────────────┬─────────────────────────────────────────────────────────┬────╮ +│ │ 19a. About how old were you when you first starting │ │ +│ │ drinking alcohol, not counting small tastes or sips of │ │ +│ │ alcohol. │qn35│ +├──────────────┼─────────────────────────────────────────────────────────┼────┤ +│Region NE Mean│ 19.33│ 2│ +│ ╶───────┼─────────────────────────────────────────────────────────┼────┤ +│ MW Mean│ 19.83│ 2│ +│ ╶───────┼─────────────────────────────────────────────────────────┼────┤ +│ S Mean│ 20.29│ 2│ +│ ╶───────┼─────────────────────────────────────────────────────────┼────┤ +│ W Mean│ 19.87│ 2│ +╰──────────────┴─────────────────────────────────────────────────────────┴────╯ + + Custom Tables +╭──────────────┬───────╮ +│Region NE Mean│19.33 2│ +│ ╶───────┼───────┤ +│ MW Mean│19.83 2│ +│ ╶───────┼───────┤ +│ S Mean│20.29 2│ +│ ╶───────┼───────┤ +│ W Mean│19.87 2│ +╰──────────────┴───────╯ +]) +AT_CLEANUP + +AT_SETUP([CTABLES with SPLIT FILE]) +AT_CHECK([ln $top_srcdir/examples/nhtsa.sav . || cp $top_srcdir/examples/nhtsa.sav .]) +AT_DATA([ctables.sps], +[[GET 'nhtsa.sav'. + +SORT CASES BY qns3a. + +CTABLES /TABLE qn105ba. + +* Layered split has no effect on output. +SPLIT FILE BY qns3a. +CTABLES /TABLE qn105ba. + +* Add column variable qns3a to compare against separate splits. +CTABLES /TABLE qn105ba BY qns3a. + +* Separate splits are truly output separately. +SPLIT FILE SEPARATE BY qns3a. +CTABLES /TABLE qn105ba. +]]) +AT_CHECK([pspp ctables.sps -O box=unicode -O width=80], [0], [dnl + Custom Tables +╭────────────────────────────────────────────────────────────────────────┬─────╮ +│ │Count│ +├────────────────────────────────────────────────────────────────────────┼─────┤ +│105b. How likely is it that drivers who have had too much Almost │ 700│ +│to drink to drive safely will A. Get stopped by the police? certain │ │ +│ Very likely │ 1502│ +│ Somewhat │ 2763│ +│ likely │ │ +│ Somewhat │ 1307│ +│ unlikely │ │ +│ Very │ 609│ +│ unlikely │ │ +╰────────────────────────────────────────────────────────────────────────┴─────╯ + + Custom Tables +╭────────────────────────────────────────────────────────────────────────┬─────╮ +│ │Count│ +├────────────────────────────────────────────────────────────────────────┼─────┤ +│105b. How likely is it that drivers who have had too much Almost │ 700│ +│to drink to drive safely will A. Get stopped by the police? certain │ │ +│ Very likely │ 1502│ +│ Somewhat │ 2763│ +│ likely │ │ +│ Somewhat │ 1307│ +│ unlikely │ │ +│ Very │ 609│ +│ unlikely │ │ +╰────────────────────────────────────────────────────────────────────────┴─────╯ + + Custom Tables +╭─────────────────────────────────────────────────────────────────┬────────────╮ +│ │S3a. GENDER:│ +│ ├─────┬──────┤ +│ │ Male│Female│ +│ ├─────┼──────┤ +│ │Count│ Count│ +├─────────────────────────────────────────────────────────────────┼─────┼──────┤ +│105b. How likely is it that drivers who have had too Almost │ 297│ 403│ +│much to drink to drive safely will A. Get stopped by certain │ │ │ +│the police? Very likely │ 660│ 842│ +│ Somewhat │ 1174│ 1589│ +│ likely │ │ │ +│ Somewhat │ 640│ 667│ +│ unlikely │ │ │ +│ Very │ 311│ 298│ +│ unlikely │ │ │ +╰─────────────────────────────────────────────────────────────────┴─────┴──────╯ + + Split Values +╭────────────┬─────╮ +│Variable │Value│ +├────────────┼─────┤ +│S3a. GENDER:│Male │ +╰────────────┴─────╯ + + Custom Tables +╭────────────────────────────────────────────────────────────────────────┬─────╮ +│ │Count│ +├────────────────────────────────────────────────────────────────────────┼─────┤ +│105b. How likely is it that drivers who have had too much Almost │ 297│ +│to drink to drive safely will A. Get stopped by the police? certain │ │ +│ Very likely │ 660│ +│ Somewhat │ 1174│ +│ likely │ │ +│ Somewhat │ 640│ +│ unlikely │ │ +│ Very │ 311│ +│ unlikely │ │ +╰────────────────────────────────────────────────────────────────────────┴─────╯ + + Split Values +╭────────────┬──────╮ +│Variable │ Value│ +├────────────┼──────┤ +│S3a. GENDER:│Female│ +╰────────────┴──────╯ + + Custom Tables +╭────────────────────────────────────────────────────────────────────────┬─────╮ +│ │Count│ +├────────────────────────────────────────────────────────────────────────┼─────┤ +│105b. How likely is it that drivers who have had too much Almost │ 403│ +│to drink to drive safely will A. Get stopped by the police? certain │ │ +│ Very likely │ 842│ +│ Somewhat │ 1589│ +│ likely │ │ +│ Somewhat │ 667│ +│ unlikely │ │ +│ Very │ 298│ +│ unlikely │ │ +╰────────────────────────────────────────────────────────────────────────┴─────╯ +]) +AT_CLEANUP + +AT_SETUP([CTABLES variable level inference]) +AT_DATA([data.txt], [dnl +dnl n1 has 10 unique small values -> nominal. +dnl n2 has 23 unique small values -> nominal. +dnl n3 is all missing -> nominal. +dnl s1 has 24 unique small values -> scale. +dnl s2 has one negative value -> scale. +dnl s3 has one non-integer value -> scale. +dnl s4 has no valid values less than 10 -> scale. +dnl s5 has no valid values less than 10,000 -> scale. +1 1 . 1 1 1 10 10001 +2 2 . 2 2 2 11 10002 +3 3 . 3 3 3 12 10003 +4 4 . 4 4 4 13 10004 +5 5 . 5 5 5 14 10005 +6 6 . 6 6 6 15 10006 +7 7 . 7 7 7 16 10007 +8 8 . 8 8 8 17 10008 +9 9 . 9 9 9 18 10009 +10 10 . 10 10 10.5 19 110000 +1 11 . 11 -1 1 11 10001 +2 12 . 12 2 2 12 10002 +3 13 . 13 3 3 13 10003 +4 14 . 14 4 4 14 10004 +5 15 . 15 5 5 15 10005 +6 16 . 16 6 6 16 10006 +7 17 . 17 7 7 17 10007 +8 18 . 18 8 8 18 10008 +9 19 . 19 9 9 19 10009 +1 20 . 20 1 1 20 10001 +2 21 . 21 2 2 21 10002 +3 22 . 22 3 3 22 10003 +4 23 . 23 4 4 23 10004 +5 23 . 24 5 5 24 10005 +6 23 . 24 6 6 25 10006 +]) + +AT_DATA([ctables.sps], [dnl +DATA LIST LIST file='data.txt' NOTABLE /n1 to n3 s1 to s5. + +* Nominal formats (copied from data that will default to scale). +COMPUTE n4=s1. +COMPUTE n5=s1. +FORMATS n4(WKDAY5) n5(MONTH5). + +* Scale formats (copied from data that will default to nominal). +COMPUTE s6=n1. +COMPUTE s7=n1. +COMPUTE s8=n1. +FORMATS s6(DOLLAR6.2) s7(CCA8.2) s8(DATETIME17). + +STRING string(A8). + +DISPLAY DICTIONARY. +CTABLES /TABLE n1 + n2 + n3 + string + s1 + s2 + s3 + s4 + s5. +DISPLAY DICTIONARY. +]) + +AT_CHECK([pspp ctables.sps -O box=unicode -O width=80], [0], [dnl + Variables +╭──────┬────────┬──────────────┬─────┬─────┬─────────┬────────────┬────────────╮ +│ │ │ Measurement │ │ │ │ │ │ +│Name │Position│ Level │ Role│Width│Alignment│Print Format│Write Format│ +├──────┼────────┼──────────────┼─────┼─────┼─────────┼────────────┼────────────┤ +│n1 │ 1│Unknown │Input│ 8│Right │F8.2 │F8.2 │ +│n2 │ 2│Unknown │Input│ 8│Right │F8.2 │F8.2 │ +│n3 │ 3│Unknown │Input│ 8│Right │F8.2 │F8.2 │ +│s1 │ 4│Unknown │Input│ 8│Right │F8.2 │F8.2 │ +│s2 │ 5│Unknown │Input│ 8│Right │F8.2 │F8.2 │ +│s3 │ 6│Unknown │Input│ 8│Right │F8.2 │F8.2 │ +│s4 │ 7│Unknown │Input│ 8│Right │F8.2 │F8.2 │ +│s5 │ 8│Unknown │Input│ 8│Right │F8.2 │F8.2 │ +│n4 │ 9│Unknown │Input│ 8│Right │WKDAY5 │WKDAY5 │ +│n5 │ 10│Unknown │Input│ 8│Right │MONTH5 │MONTH5 │ +│s6 │ 11│Unknown │Input│ 8│Right │DOLLAR6.2 │DOLLAR6.2 │ +│s7 │ 12│Unknown │Input│ 8│Right │CCA8.2 │CCA8.2 │ +│s8 │ 13│Unknown │Input│ 8│Right │DATETIME17.0│DATETIME17.0│ +│string│ 14│Nominal │Input│ 8│Left │A8 │A8 │ +╰──────┴────────┴──────────────┴─────┴─────┴─────────┴────────────┴────────────╯ + + Custom Tables +╭────────────┬─────┬────────╮ +│ │Count│ Mean │ +├────────────┼─────┼────────┤ +│n1 1.00 │ 3│ │ +│ 2.00 │ 3│ │ +│ 3.00 │ 3│ │ +│ 4.00 │ 3│ │ +│ 5.00 │ 3│ │ +│ 6.00 │ 3│ │ +│ 7.00 │ 2│ │ +│ 8.00 │ 2│ │ +│ 9.00 │ 2│ │ +│ 10.00│ 1│ │ +├────────────┼─────┼────────┤ +│n2 1.00 │ 1│ │ +│ 2.00 │ 1│ │ +│ 3.00 │ 1│ │ +│ 4.00 │ 1│ │ +│ 5.00 │ 1│ │ +│ 6.00 │ 1│ │ +│ 7.00 │ 1│ │ +│ 8.00 │ 1│ │ +│ 9.00 │ 1│ │ +│ 10.00│ 1│ │ +│ 11.00│ 1│ │ +│ 12.00│ 1│ │ +│ 13.00│ 1│ │ +│ 14.00│ 1│ │ +│ 15.00│ 1│ │ +│ 16.00│ 1│ │ +│ 17.00│ 1│ │ +│ 18.00│ 1│ │ +│ 19.00│ 1│ │ +│ 20.00│ 1│ │ +│ 21.00│ 1│ │ +│ 22.00│ 1│ │ +│ 23.00│ 3│ │ +├────────────┼─────┼────────┤ +│string │ 25│ │ +├────────────┼─────┼────────┤ +│s1 │ │ 12.96│ +├────────────┼─────┼────────┤ +│s2 │ │ 4.76│ +├────────────┼─────┼────────┤ +│s3 │ │ 4.86│ +├────────────┼─────┼────────┤ +│s4 │ │ 16.60│ +├────────────┼─────┼────────┤ +│s5 │ │14004.44│ +╰────────────┴─────┴────────╯ + + Variables +╭──────┬────────┬──────────────┬─────┬─────┬─────────┬────────────┬────────────╮ +│ │ │ Measurement │ │ │ │ │ │ +│Name │Position│ Level │ Role│Width│Alignment│Print Format│Write Format│ +├──────┼────────┼──────────────┼─────┼─────┼─────────┼────────────┼────────────┤ +│n1 │ 1│Nominal │Input│ 8│Right │F8.2 │F8.2 │ +│n2 │ 2│Nominal │Input│ 8│Right │F8.2 │F8.2 │ +│n3 │ 3│Nominal │Input│ 8│Right │F8.2 │F8.2 │ +│s1 │ 4│Scale │Input│ 8│Right │F8.2 │F8.2 │ +│s2 │ 5│Scale │Input│ 8│Right │F8.2 │F8.2 │ +│s3 │ 6│Scale │Input│ 8│Right │F8.2 │F8.2 │ +│s4 │ 7│Scale │Input│ 8│Right │F8.2 │F8.2 │ +│s5 │ 8│Scale │Input│ 8│Right │F8.2 │F8.2 │ +│n4 │ 9│Nominal │Input│ 8│Right │WKDAY5 │WKDAY5 │ +│n5 │ 10│Nominal │Input│ 8│Right │MONTH5 │MONTH5 │ +│s6 │ 11│Scale │Input│ 8│Right │DOLLAR6.2 │DOLLAR6.2 │ +│s7 │ 12│Scale │Input│ 8│Right │CCA8.2 │CCA8.2 │ +│s8 │ 13│Scale │Input│ 8│Right │DATETIME17.0│DATETIME17.0│ +│string│ 14│Nominal │Input│ 8│Left │A8 │A8 │ +╰──────┴────────┴──────────────┴─────┴─────┴─────────┴────────────┴────────────╯ +]) +AT_CLEANUP