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])