GLM: Rewrite interactions module and update glm.c to use it in some places
[pspp] / tests / output / charts.at
1 AT_BANNER([CHARTS Rudimentary run tests])
2
3 dnl Check that the charts work
4 dnl Currently, "work" means that the commands which
5 dnl should generate them, run without crashing.
6 dnl Better tests will come later (hopefully)
7
8 AT_SETUP([Examine])
9 AT_DATA([charts.sps],[
10 input program.
11 loop #i = 1 to 1000.
12  compute x  = rv.normal (56, 3) + rv.uniform (1, 1).
13  compute y  = rv.normal (6, 2) + rv.uniform (1, 2).
14  compute A  = rv.uniform (-1, 1).
15   compute A = (A > 0).
16  end case.
17 end loop.
18 end file.
19 end input program.
20
21 examine x y by a
22         /plot = histogram, npplot
23         .
24
25 examine x y by a
26         /compare = groups
27         /plot = boxplot
28         .
29
30 examine x y by a
31         /compare = variables
32         /plot = boxplot
33         .
34 ])
35
36 AT_CHECK([pspp -O format=csv charts.sps], [0], [ignore])
37
38 AT_CLEANUP
39
40 AT_SETUP([Roc])
41 AT_DATA([roc.sps],[
42 data list list /fred * group * w *.
43 begin data.
44 99  0 1000
45 99  1 3
46 97  0 908
47 97  1 2
48 95  0 904
49 96  1 7
50 94  1 9
51 93  0 823
52 93  1 12
53 90  0 723
54 90  1 42
55 84  0 523
56 84  1 98
57 73  0 500
58 75  1 180
59 63  0 520
60 69  1 320
61 60  0 510
62 60  1 418
63 50  0 488
64 54  1 432
65 46  0 428
66 43  1 528
67 36  0 324
68 36  1 612
69 26  0 294
70 28  1 682
71 20  0 119
72 20  1 719
73 10  0 97
74 10  1 809
75 end data.
76
77 weight by w.
78
79 compute bert = fred + (group < 0.5) * 45.
80 compute charlie = fred + (group > 0.5) * 15.
81
82
83 ROC /fred bert charlie by group (0)
84         /plot = curve (reference).
85
86 ])
87
88 AT_CHECK([pspp -O format=csv roc.sps], [0], [ignore])
89
90 AT_CLEANUP
91
92
93
94
95 AT_SETUP([Scree])
96 AT_DATA([scree.sps],[
97 input program.
98 vector vec(10).
99 loop #i = 1 to 100.
100  loop #v = 1 to 3.
101  compute vec(#v) = rv.normal (0, 45).
102  end loop.
103  loop #v = 4 to 10.
104  compute vec(#v) = vec (#v - 3) + rv.normal (0, 30).
105  end loop.
106  end case.
107 end loop.
108 end file.
109 end input program.
110
111
112 factor /variables = all
113         /print initial
114         /plot = eigen.
115
116 ])
117
118 AT_CHECK([pspp -O format=csv scree.sps], [0], [ignore])
119
120 AT_CLEANUP