1 AT_BANNER([QUICK CLUSTER])
3 AT_SETUP([QUICK CLUSTER with small data set])
4 AT_DATA([quick-cluster.sps], [dnl
20 /CRITERIA=CLUSTER(2) MXITER(20).
22 AT_CHECK([pspp -o pspp.csv quick-cluster.sps])
23 AT_CHECK([cat pspp.csv], [0], [dnl
24 Table: Reading free-form data from INLINE.
30 Table: Final Cluster Centers
39 Table: Number of Cases in each Cluster
46 AT_SETUP([QUICK CLUSTER with large data set])
47 AT_DATA([quick-cluster.sps], [dnl
49 loop #i = 1 to 500000.
55 QUICK CLUSTER x /CRITERIA = CLUSTER(4) MXITER (100).
57 AT_CHECK([pspp -o pspp.csv quick-cluster.sps])
58 AT_CHECK([cat pspp.csv], [0], [dnl
59 Table: Final Cluster Centers
66 Table: Number of Cases in each Cluster
76 AT_SETUP([QUICK CLUSTER with weights])
77 AT_DATA([qc-weighted.sps], [dnl
80 compute x = mod (#i, 4).
85 compute x = mod (#i, 4).
94 QUICK CLUSTER x /CRITERIA = CLUSTER(4) MXITER (100).
97 AT_CHECK([pspp -o pspp-w.csv qc-weighted.sps])
100 AT_DATA([qc-unweighted.sps], [dnl
103 compute x = mod (#i, 4).
109 QUICK CLUSTER x /CRITERIA = CLUSTER(4) MXITER (100).
112 AT_CHECK([pspp -o pspp-unw.csv qc-unweighted.sps])
114 AT_CHECK([diff pspp-w.csv pspp-unw.csv], [0])
118 AT_SETUP([QUICK CLUSTER with listwise missing])
119 AT_DATA([quick-miss.sps], [dnl
120 data list notable list /x *.
131 QUICK CLUSTER x /CRITERIA = CLUSTER(4) MXITER (100).
134 AT_CHECK([pspp -o pspp-m.csv quick-miss.sps])
136 AT_DATA([quick-nmiss.sps], [dnl
137 data list notable list /x *.
147 QUICK CLUSTER x /CRITERIA = CLUSTER(4) MXITER (100).
150 AT_CHECK([pspp -o pspp-nm.csv quick-nmiss.sps])
152 AT_CHECK([diff pspp-m.csv pspp-nm.csv], [0])
157 AT_SETUP([QUICK CLUSTER with pairwise missing])
158 AT_DATA([quick-s.sps], [dnl
159 data list notable list /x * y *.
177 /CRITERIA = CLUSTER(3) MXITER (100)
181 AT_CHECK([pspp -O format=csv quick-s.sps | tail -5 > pspp-s.csv])
183 AT_DATA([quick-pw.sps], [dnl
184 data list notable list /x * y *.
202 /CRITERIA = CLUSTER(3) MXITER (100)
207 AT_CHECK([pspp -O format=csv quick-pw.sps | tail -5 > pspp-pw.csv])
209 AT_CHECK([diff pspp-s.csv pspp-pw.csv], [0])