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 /save=pred resid.
  75 list.
  76 EOF
  77 if [ $? -ne 0 ] ; then no_result ; fi
  78
  79
  80 activity="run program"
  81 $SUPERVISOR $PSPP --testing-mode $TESTFILE
  82 if [ $? -ne 0 ] ; then no_result ; fi
  83
  84 perl -pi -e 's/^\s*$//g' $TEMPDIR/pspp.list
  85 diff -b  $TEMPDIR/pspp.list - << EOF
  86 1.1 DATA LIST.  Reading free-form data from INLINE.
  87 +--------+------+
  88 |Variable|Format|
  89 #========#======#
  90 |v0      |F8.0  |
  91 |v1      |F8.0  |
  92 |v2      |F8.0  |
  93 +--------+------+
  94 2.1 REGRESSION.  Model Summary
  95 #============#========#=================#==========================#
  96 #          R #R Square|Adjusted R Square|Std. Error of the Estimate#
  97 #========#===#========#=================#==========================#
  98 #        |.97#     .94|              .93|                       .33#
  99 #========#===#========#=================#==========================#
 100 2.2 REGRESSION.  ANOVA
 101 #===================#==============#==#===========#======#============#
 102 #                   #Sum of Squares|df|Mean Square|   F  |Significance#
 103 #========#==========#==============#==#===========#======#============#
 104 #        |Regression#        202.75| 2|    101.376|56.754|        .000#
 105 #        |Residual  #         12.50| 7|      1.786|      |            #
 106 #        |Total     #        215.26| 9|           |      |            #
 107 #========#==========#==============#==#===========#======#============#
 108 2.3 REGRESSION.  Coefficients
 109 #===================#=====#==========#=====#======#============#
 110 #                   #  B  |Std. Error| Beta|   t  |Significance#
 111 #========#==========#=====#==========#=====#======#============#
 112 #        |(Constant)# 2.19|      2.36|  .00|   .93|         .52#
 113 #        |    v0    # 1.81|      1.05|  .17|  1.72|         .12#
 114 #        |    v1    #-3.43|       .33|-1.03|-10.33|         .00#
 115 #        |          #     |          |     |      |            #
 116 #========#==========#=====#==========#=====#======#============#
 117       v0       v1       v2     RES1    PRED1
 118 -------- -------- -------- -------- --------
 119      .65     7.74   -23.98     -.84   -23.13
 120     -.13     6.14   -19.64     -.54   -19.10
 121      .35     7.65   -25.27    -1.87   -23.40
 122      .69     6.13   -16.57      .97   -17.54
 123     -.07     8.25   -25.80      .40   -26.20
 124     -.34     6.03   -17.57     1.53   -19.10
 125      .76     9.83   -28.36     1.77   -30.13
 126     -.47     5.34   -16.80      .18   -16.97
 127     -.06     8.84   -29.26    -1.05   -28.21
 128      .56     6.20   -18.58     -.54   -18.04
 129 EOF
 130 if [ $? -ne 0 ] ; then fail ; fi
 131
 132 pass