pintos-os.org Git - pspp/blob - tests/language/dictionary/split-file.at

   1 dnl PSPP - a program for statistical analysis.
   2 dnl Copyright (C) 2017 Free Software Foundation, Inc.
   3 dnl
   4 dnl This program is free software: you can redistribute it and/or modify
   5 dnl it under the terms of the GNU General Public License as published by
   6 dnl the Free Software Foundation, either version 3 of the License, or
   7 dnl (at your option) any later version.
   8 dnl
   9 dnl This program is distributed in the hope that it will be useful,
  10 dnl but WITHOUT ANY WARRANTY; without even the implied warranty of
  11 dnl MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12 dnl GNU General Public License for more details.
  13 dnl
  14 dnl You should have received a copy of the GNU General Public License
  15 dnl along with this program.  If not, see <http://www.gnu.org/licenses/>.
  16 dnl AT_BANNER([SPLIT FILE])
  17
  18 AT_SETUP([SPLIT FILE - basic test])
  19 AT_DATA([split-file.sps], [dnl
  20 title 'Test SPLIT FILE utility'.
  21
  22 data list notable /X 1 Y 2.
  23 begin data.
  24 12
  25 16
  26 17
  27 19
  28 15
  29 14
  30 27
  31 20
  32 26
  33 25
  34 28
  35 29
  36 24
  37 end data.
  38 split file by x.
  39 list.
  40 ])
  41 AT_CHECK([pspp -o pspp.csv split-file.sps])
  42 AT_CHECK([cat pspp.csv], [0], [dnl
  43 Title: Test SPLIT FILE utility
  44
  45 Variable,Value,Label
  46 X,1,
  47
  48 Table: Data List
  49 X,Y
  50 1,2
  51 1,6
  52 1,7
  53 1,9
  54 1,5
  55 1,4
  56
  57 Variable,Value,Label
  58 X,2,
  59
  60 Table: Data List
  61 X,Y
  62 2,7
  63 2,0
  64 2,6
  65 2,5
  66 2,8
  67 2,9
  68 2,4
  69 ])
  70 AT_CLEANUP
  71
  72
  73
  74
  75
  76 AT_SETUP([SPLIT FILE  - vs procedures])
  77 AT_DATA([split-file.sps], [dnl
  78
  79 * This test is a compendium of those procedures which might
  80 * have problems when run in conjunction with SPLITS.
  81
  82 data list list /a b c q g *.
  83 begin data.
  84 1 2 3     1  0
  85 4 5 6     0  0
  86 7 8 9     1  0
  87 10 11 12  0  1
  88 13 14 15  1  1
  89 end data.
  90
  91 split file by g.
  92
  93
  94 * The commented out lines are ones which currently fail.
  95
  96 AGGREGATE outfile='foo' /break=c /X=sum(a).
  97 AUTORECODE variables = c into d .
  98 COUNT e = c (1 2 3 4 5 6 7).
  99 CROSSTABS a by b.
 100 CORRELATIONS /VARIABLES = a b.
 101 DELETE VARIABLES a.
 102 DESCRIPTIVES e .
 103 EXAMINE c by b.
 104 EXPORT outfile='xxx'.
 105 FACTOR /VARIABLES = b c d.
 106 FILTER BY c.
 107 FREQUENCIES b.
 108 GLM c BY b.
 109 GRAPH /HISTOGRAM = b .
 110 GRAPH /SCATTERPLOT(BIVARIATE) = b with c by e .
 111 GRAPH /BAR (GROUPED) = MEAN(b) by c by e.
 112 GRAPH /BAR = COUNT BY  b.
 113 LIST.
 114 LOGISTIC REGRESSION q WITH b.
 115 MEANS c b.
 116 NPAR TESTS /MCNEMAR q.
 117 ONEWAY c BY b.
 118 QUICK CLUSTER b c.
 119 RANK b c.
 120 REGRESSION /VARIABLES = c /DEPENDENT = q.
 121 RELIABILITY /VARIABLES = c b d.
 122 RENAME VARIABLES (b = bb).
 123 ROC bb by q(1).
 124 SAMPLE 0.9 .
 125 SAVE outfile='xx.sav'.
 126 SORT CASES by bb.
 127 T-TEST /GROUP=q(0,1) /VARIABLES=bb.
 128 USE ALL.
 129 FLIP /VARIABLES = bb, c .
 130
 131 execute.
 132 finish.
 133 ])
 134
 135 AT_CHECK([pspp -O format=csv split-file.sps], [0],[ignore])
 136
 137 AT_CLEANUP