pintos-os.org Git - pspp/blob - tests/output/charts.at

   1 AT_BANNER([CHARTS Rudimentary run tests])
   2
   3 dnl Check that the charts work
   4 dnl Currently, "work" means that the commands which
   5 dnl should generate them, run without crashing.
   6 dnl Better tests will come later (hopefully)
   7
   8 AT_SETUP([Examine])
   9 AT_DATA([charts.sps],[
  10 input program.
  11 loop #i = 1 to 1000.
  12  compute x  = rv.normal (56, 3) + rv.uniform (1, 1).
  13  compute y  = rv.normal (6, 2) + rv.uniform (1, 2).
  14  compute A  = rv.uniform (-1, 1).
  15   compute A = (A > 0).
  16  end case.
  17 end loop.
  18 end file.
  19 end input program.
  20
  21 examine x y by a
  22         /plot = histogram, npplot spreadlevel(1)
  23         .
  24
  25 examine x y by a
  26         /compare = groups
  27         /plot = boxplot
  28         .
  29
  30 examine x y by a
  31         /compare = variables
  32         /plot = boxplot
  33         .
  34 ])
  35
  36 AT_CHECK([pspp -O format=csv charts.sps], [0], [ignore])
  37
  38 AT_CLEANUP
  39
  40 AT_SETUP([Roc])
  41 AT_DATA([roc.sps],[
  42 data list list /fred * group * w *.
  43 begin data.
  44 99  0 1000
  45 99  1 3
  46 97  0 908
  47 97  1 2
  48 95  0 904
  49 96  1 7
  50 94  1 9
  51 93  0 823
  52 93  1 12
  53 90  0 723
  54 90  1 42
  55 84  0 523
  56 84  1 98
  57 73  0 500
  58 75  1 180
  59 63  0 520
  60 69  1 320
  61 60  0 510
  62 60  1 418
  63 50  0 488
  64 54  1 432
  65 46  0 428
  66 43  1 528
  67 36  0 324
  68 36  1 612
  69 26  0 294
  70 28  1 682
  71 20  0 119
  72 20  1 719
  73 10  0 97
  74 10  1 809
  75 end data.
  76
  77 weight by w.
  78
  79 compute bert = fred + (group < 0.5) * 45.
  80 compute charlie = fred + (group > 0.5) * 15.
  81
  82
  83 ROC /fred bert charlie by group (0)
  84         /plot = curve (reference).
  85
  86 ])
  87
  88 AT_CHECK([pspp -O format=csv roc.sps], [0], [ignore])
  89
  90 AT_CLEANUP
  91
  92
  93
  94
  95 AT_SETUP([Scree])
  96 AT_DATA([scree.sps],[
  97 input program.
  98 vector vec(10).
  99 loop #i = 1 to 100.
 100  loop #v = 1 to 3.
 101  compute vec(#v) = rv.normal (0, 45).
 102  end loop.
 103  loop #v = 4 to 10.
 104  compute vec(#v) = vec (#v - 3) + rv.normal (0, 30).
 105  end loop.
 106  end case.
 107 end loop.
 108 end file.
 109 end input program.
 110
 111
 112 factor /variables = all
 113         /print initial
 114         /plot = eigen.
 115
 116 ])
 117
 118 AT_CHECK([pspp -O format=csv scree.sps], [0], [ignore])
 119
 120 AT_CLEANUP
 121
 122
 123 AT_SETUP([Histogram])
 124 AT_DATA([histogram.sps],[
 125 * This test is designed to "torture" the code which
 126   generates histograms.  It is no-crash test. However
 127   the code is rich in assertions, so any problems we
 128   hope will be caught there.
 129
 130
 131 input program.
 132 loop #i = 1 to 1000.
 133  compute pos  = rv.normal (56, 3) + rv.uniform (1, 1).
 134  compute neg  = rv.normal (-86, 2) + rv.uniform (1, 1).
 135  compute pn  = rv.normal (0, 2) + rv.uniform (1, 2).
 136  compute A  = rv.uniform (-1, 1).
 137   compute A = (A > 0).
 138  end case.
 139 end loop.
 140 end file.
 141 end input program.
 142
 143
 144 examine pos neg pn by a
 145         /plot = histogram
 146         .
 147
 148 frequencies pos neg pn
 149         /format=notable
 150         /histogram=normal.
 151 ])
 152
 153
 154 dnl The --testing-mode flag is important!!
 155 AT_CHECK([pspp --testing-mode -O format=csv histogram.sps], [0], [ignore])
 156
 157 AT_CLEANUP
 158
 159
 160 AT_SETUP([FREQUENCIES charts])
 161 AT_DATA([xxx.sps],[
 162 DATA LIST LIST /nationality (A10)  religion (A20) gender (A8).
 163 BEGIN DATA.
 164 Australian  Sikh      Male
 165 Australian  Sikh      Male
 166 Australian  Sikh      Male
 167 Australian  Sikh      Male
 168 British     Zoroastrian Female
 169 British     Buddist   Female
 170 British     Buddist   Female
 171 British      Zoroastrian Female
 172 German      Muslim    Male
 173 German      Christian Male
 174 German      Christian Female
 175 German      Christian Male
 176 German      Zoroastrian Female
 177 German      Sikh   Female
 178 German      Muslim Female
 179 German      Pastafarian Female
 180 German      "Jedi Knight" Female
 181 Belgian     Sikh      Male
 182 French       Muslim      Male
 183 French       Muslim      Male
 184 French       Christian      Male
 185 END DATA.
 186
 187
 188 FREQUENCIES /VARIABLES=religion nationality /BARCHART /PIECHART.
 189 ])
 190
 191
 192 AT_CHECK([pspp  -O format=csv xxx.sps], [0], [ignore])
 193
 194 AT_CLEANUP