Only taint casereader if case size is unknown.
[pspp] / tests / command / regression.sh
1 #!/bin/sh
2
3 # This program tests that the REGRESSION command works.
4
5 TEMPDIR=/tmp/pspp-tst-$$
6 TESTFILE=$TEMPDIR/`basename $0`.sps
7
8 # ensure that top_builddir  are absolute
9 if [ -z "$top_builddir" ] ; then top_builddir=. ; fi
10 if [ -z "$top_srcdir" ] ; then top_srcdir=. ; fi
11 top_builddir=`cd $top_builddir; pwd`
12 PSPP=$top_builddir/src/ui/terminal/pspp
13
14 # ensure that top_srcdir is absolute
15 top_srcdir=`cd $top_srcdir; pwd`
16
17 STAT_CONFIG_PATH=$top_srcdir/config
18 export STAT_CONFIG_PATH
19
20
21 cleanup()
22 {
23     if [ x"$PSPP_TEST_NO_CLEANUP" != x ] ; then 
24         echo Not cleaning $TEMPDIR;
25         return ; 
26     fi
27     cd /
28     rm -rf $TEMPDIR
29 }
30
31
32 fail()
33 {
34     echo $activity
35     echo FAILED
36     cleanup;
37     exit 1;
38 }
39
40
41 no_result()
42 {
43     echo $activity
44     echo NO RESULT;
45     cleanup;
46     exit 2;
47 }
48
49 pass()
50 {
51     cleanup;
52     exit 0;
53 }
54
55 mkdir -p $TEMPDIR
56
57 cd $TEMPDIR
58
59 activity="create program"
60 cat > $TESTFILE <<EOF
61 data list list / v0 to v2.
62 begin data
63  0.65377128  7.735648 -23.97588
64 -0.13087553  6.142625 -19.63854
65  0.34880368  7.651430 -25.26557
66  0.69249021  6.125125 -16.57090
67 -0.07368178  8.245789 -25.80001
68 -0.34404919  6.031540 -17.56743
69  0.75981559  9.832291 -28.35977
70 -0.46958313  5.343832 -16.79548
71 -0.06108490  8.838262 -29.25689
72  0.56154863  6.200189 -18.58219
73 end data
74 regression /variables=v0 v1 v2 /statistics defaults /dependent=v2 /method=enter.
75 EOF
76 if [ $? -ne 0 ] ; then no_result ; fi
77
78
79 activity="run program"
80 $SUPERVISOR $PSPP -o raw-ascii $TESTFILE
81 if [ $? -ne 0 ] ; then no_result ; fi
82
83 perl -pi -e 's/^\s*$//g' $TEMPDIR/pspp.list
84 diff -b  $TEMPDIR/pspp.list - << EOF
85 1.1 DATA LIST.  Reading free-form data from INLINE.
86 +--------+------+
87 |Variable|Format|
88 #========#======#
89 |v0      |F8.0  |
90 |v1      |F8.0  |
91 |v2      |F8.0  |
92 +--------+------+
93 2.1 REGRESSION.  Model Summary
94 #============#========#=================#==========================#
95 #          R #R Square|Adjusted R Square|Std. Error of the Estimate#
96 #========#===#========#=================#==========================#
97 #        |.97#     .94|              .93|                       .33#
98 #========#===#========#=================#==========================#
99 2.2 REGRESSION.  ANOVA
100 #===================#==============#==#===========#======#============#
101 #                   #Sum of Squares|df|Mean Square|   F  |Significance#
102 #========#==========#==============#==#===========#======#============#
103 #        |Regression#        202.75| 2|    101.376|56.754|        .000#
104 #        |Residual  #         12.50| 7|      1.786|      |            #
105 #        |Total     #        215.26| 9|           |      |            #
106 #========#==========#==============#==#===========#======#============#
107 2.3 REGRESSION.  Coefficients
108 #===================#=====#==========#====#======#============#
109 #                   #  B  |Std. Error|Beta|   t  |Significance#
110 #========#==========#=====#==========#====#======#============#
111 #        |(Constant)# 2.19|      2.36| .45|   .93|         .52#
112 #        |    v0    # 1.81|      1.05| .54|  1.72|         .13#
113 #        |    v1    #-3.43|       .33| .00|-10.33|         .00#
114 #        |          #     |          |    |      |            #
115 #========#==========#=====#==========#====#======#============#
116 EOF
117 if [ $? -ne 0 ] ; then fail ; fi
118
119 pass