projects
/
pspp
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
gui: Delete now-incorrect advice to translators.
[pspp]
/
tests
/
language
/
xforms
/
select-if.at
1
AT_BANNER([FILTER])
2
3
AT_SETUP([FILTER])
4
AT_DATA([filter.sps], [dnl
5
data list notable /X 1-2.
6
begin data.
7
1
8
2
9
3
10
4
11
5
12
6
13
7
14
8
15
9
16
10
17
end data.
18
compute FILTER_$ = mod(x,2).
19
20
filter by filter_$.
21
list.
22
filter off.
23
list.
24
compute filter_$ = 1 - filter_$.
25
filter by filter_$.
26
list.
27
])
28
AT_CHECK([pspp -o pspp.csv filter.sps])
29
AT_CHECK([cat pspp.csv], [0], [dnl
30
Table: Data List
31
X,FILTER_$
32
1,1.00
33
3,1.00
34
5,1.00
35
7,1.00
36
9,1.00
37
38
Table: Data List
39
X,FILTER_$
40
1,1.00
41
2,.00
42
3,1.00
43
4,.00
44
5,1.00
45
6,.00
46
7,1.00
47
8,.00
48
9,1.00
49
10,.00
50
51
Table: Data List
52
X,FILTER_$
53
2,1.00
54
4,1.00
55
6,1.00
56
8,1.00
57
10,1.00
58
])
59
AT_CLEANUP