QUICK CLUSTER: New command.
[pspp] / tests / language / stats / quick-cluster.at
1 AT_BANNER([QUICK CLUSTER])
2
3 AT_SETUP([QUICK CLUSTER with small data set])
4 AT_DATA([quick-cluster.sps], [dnl
5 DATA LIST LIST /x y z.
6 BEGIN DATA.
7 22,2930,4099
8 17,3350,4749
9 22,2640,3799
10 20, 3250,4816
11 15,4080,7827
12 4,5,4
13 5,6,5
14 6,7,6
15 7,8,7
16 8,9,8
17 9,10,9
18 END DATA.
19 QUICK CLUSTER x y z
20   /CRITERIA=CLUSTER(2) MXITER(20).
21 ])
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.
25 Variable,Format
26 x,F8.0
27 y,F8.0
28 z,F8.0
29
30 Table: Final Cluster Centers
31 ,Cluster,
32 ,,
33 ,1,2
34 ,,
35 x,6.50,19.20
36 y,7.50,3250.00
37 z,6.50,5058.00
38
39 Table: Number of Cases in each Cluster
40 Cluster,1,6
41 ,2,5
42 Valid,,11
43 ])
44 AT_CLEANUP
45
46 AT_SETUP([QUICK CLUSTER with large data set])
47 AT_DATA([quick-cluster.sps], [dnl
48 input program.
49 loop #i = 1 to 500000.
50 compute x = 3.
51 end case.
52 end loop.
53 end file.
54 end input program.
55 QUICK CLUSTER x /CRITERIA = CLUSTER(4) MXITER (100).
56 ])
57 AT_CHECK([pspp -o pspp.csv quick-cluster.sps])
58 AT_CHECK([cat pspp.csv], [0], [dnl
59 Table: Final Cluster Centers
60 ,Cluster,,,
61 ,,,,
62 ,1,2,3,4
63 ,,,,
64 x,.00,.00,.00,3.00
65
66 Table: Number of Cases in each Cluster
67 Cluster,1,0
68 ,2,0
69 ,3,0
70 ,4,500000
71 Valid,,500000
72 ])
73 AT_CLEANUP
74