1
 2
 3
 4
 5
 6
 7
 8
 9
10
data list list /q df.
begin data
10 5
12 4
15 7 
end data.

compute sig1tail=sig.chisq(q,df).
formats sig1tail(f8.4).
list.