pintos-os.org Git - pspp/blob - tests/language/data-io/matrix-data.at

   1 dnl PSPP - a program for statistical analysis.
   2 dnl Copyright (C) 2017, 2020 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
  17 AT_BANNER([MATRIX DATA])
  18
  19 dnl Keep this test in sync with Example 1 in doc/matrices.texi.
  20 AT_SETUP([MATRIX DATA - LOWER DIAGONAL with ROWTYPE_])
  21 AT_DATA([matrix-data.sps], [dnl
  22 MATRIX DATA
  23     VARIABLES=ROWTYPE_ var01 TO var08
  24     /FILE='matrix-data.txt'.
  25 FORMATS var01 TO var08(F5.2).
  26 LIST.
  27 ])
  28 AT_DATA([matrix-data.txt], [dnl
  29 MEAN  24.3   5.4  69.7  20.1  13.4   2.7  27.9   3.7
  30 SD     5.7   1.5  23.5   5.8   2.8   4.5   5.4   1.5
  31 N       92    92    92    92    92    92    92    92
  32 'CORR'  1.00
  33 CORR   .18  1.00
  34 CORR  -.22  -.17  1.00
  35 "CORR"   .36   .31  -.14  1.00
  36 COR   .27   .16  -.12   .22  1.00
  37 CORR   .33   .15  -.17   .24   .21  1.00
  38 CORR   .50   .29  -.20   .32   .12   .38  1.00
  39 CORR   .17   .29  -.05   .20   .27   .20   .04  1.00
  40 ])
  41
  42 AT_CHECK([pspp -O format=csv matrix-data.sps], [0], [dnl
  43 Table: Data List
  44 ROWTYPE_,VARNAME_,var01,var02,var03,var04,var05,var06,var07,var08
  45 MEAN,,24.30,5.40,69.70,20.10,13.40,2.70,27.90,3.70
  46 STDDEV,,5.70,1.50,23.50,5.80,2.80,4.50,5.40,1.50
  47 N,,92.00,92.00,92.00,92.00,92.00,92.00,92.00,92.00
  48 CORR,var01,1.00,.18,-.22,.36,.27,.33,.50,.17
  49 CORR,var02,.18,1.00,-.17,.31,.16,.15,.29,.29
  50 CORR,var03,-.22,-.17,1.00,-.14,-.12,-.17,-.20,-.05
  51 CORR,var04,.36,.31,-.14,1.00,.22,.24,.32,.20
  52 CORR,var05,.27,.16,-.12,.22,1.00,.21,.12,.27
  53 CORR,var06,.33,.15,-.17,.24,.21,1.00,.38,.20
  54 CORR,var07,.50,.29,-.20,.32,.12,.38,1.00,.04
  55 CORR,var08,.17,.29,-.05,.20,.27,.20,.04,1.00
  56 ])
  57 AT_CLEANUP
  58
  59 AT_SETUP([MATRIX DATA - UPPER DIAGONAL with ROWTYPE_])
  60 AT_DATA([matrix-data.sps], [dnl
  61 matrix data
  62     variables = rowtype_  var01 var02 var03 var04
  63     /format = upper diagonal.
  64
  65 begin data
  66 mean        34 35 36 37
  67 sd          22 11 55 66
  68 n_ve    100 101 102 103
  69 corr        1 9 8 7
  70 corr        1 6 5
  71 corr        1 4
  72 corr        1
  73 end data.
  74
  75 list.
  76 ])
  77
  78 AT_CHECK([pspp -O format=csv matrix-data.sps], [0], [dnl
  79 Table: Data List
  80 ROWTYPE_,VARNAME_,var01,var02,var03,var04
  81 MEAN,,34.0000,35.0000,36.0000,37.0000
  82 STDDEV,,22.0000,11.0000,55.0000,66.0000
  83 N,,100.0000,101.0000,102.0000,103.0000
  84 CORR,var01,1.0000,9.0000,8.0000,7.0000
  85 CORR,var02,9.0000,1.0000,6.0000,5.0000
  86 CORR,var03,8.0000,6.0000,1.0000,4.0000
  87 CORR,var04,7.0000,5.0000,4.0000,1.0000
  88 ])
  89 AT_CLEANUP
  90
  91 AT_SETUP([MATRIX DATA - FULL with ROWTYPE_])
  92 dnl Just for fun, this one is in a different case.
  93 AT_DATA([matrix-data.sps], [dnl
  94 matrix data
  95     variables = ROWTYPE_  var01 var02 var03 var04
  96     /format = full diagonal.
  97
  98 begin data
  99 MEAN 34 35 36 37
 100 SD   22 11 55 66
 101 N    100 101 102 103
 102 CORR 1 9 8 7
 103 CORR 9 1 6 5
 104 CORR 8 6 1 4
 105 CORR 7 5 4 1
 106 end data.
 107
 108 list.
 109 ])
 110
 111 AT_CHECK([pspp -O format=csv matrix-data.sps], [0], [dnl
 112 Table: Data List
 113 ROWTYPE_,VARNAME_,var01,var02,var03,var04
 114 MEAN,,34.0000,35.0000,36.0000,37.0000
 115 STDDEV,,22.0000,11.0000,55.0000,66.0000
 116 N,,100.0000,101.0000,102.0000,103.0000
 117 CORR,var01,1.0000,9.0000,8.0000,7.0000
 118 CORR,var02,9.0000,1.0000,6.0000,5.0000
 119 CORR,var03,8.0000,6.0000,1.0000,4.0000
 120 CORR,var04,7.0000,5.0000,4.0000,1.0000
 121 ])
 122 AT_CLEANUP
 123
 124
 125 AT_SETUP([MATRIX DATA - UPPER NODIAGONAL with ROWTYPE_])
 126 AT_DATA([matrix-data.sps], [dnl
 127 matrix data
 128     variables = rowtype_  var01 var02 var03 var04
 129     /format = upper nodiagonal.
 130
 131 begin data
 132 mean 34 35 36 37
 133 sd   22 11 55 66
 134 n    100 101 102 103
 135 corr  9 8 7
 136 corr  6 5
 137 corr  4
 138 end data.
 139
 140 list.
 141 ])
 142
 143 AT_CHECK([pspp -O format=csv matrix-data.sps], [0], [dnl
 144 Table: Data List
 145 ROWTYPE_,VARNAME_,var01,var02,var03,var04
 146 MEAN,,34.0000,35.0000,36.0000,37.0000
 147 STDDEV,,22.0000,11.0000,55.0000,66.0000
 148 N,,100.0000,101.0000,102.0000,103.0000
 149 CORR,var01,1.0000,9.0000,8.0000,7.0000
 150 CORR,var02,9.0000,1.0000,6.0000,5.0000
 151 CORR,var03,8.0000,6.0000,1.0000,4.0000
 152 CORR,var04,7.0000,5.0000,4.0000,1.0000
 153 ])
 154 AT_CLEANUP
 155
 156 dnl Keep this test in sync with Example 2 in doc/matrices.texi.
 157 AT_SETUP([MATRIX DATA - UPPER NODIAGONAL with ROWTYPE_ - 2])
 158 AT_DATA([matrix-data.sps], [dnl
 159 MATRIX DATA
 160     VARIABLES=ROWTYPE_ var01 TO var08
 161     /FORMAT=UPPER NODIAGONAL.
 162 BEGIN DATA.
 163 MEAN  24.3   5.4  69.7  20.1  13.4   2.7  27.9   3.7
 164 SD     5.7   1.5  23.5   5.8   2.8   4.5   5.4   1.5
 165 N       92    92    92    92    92    92    92    92
 166 CORR         .17   .50  -.33   .27   .36  -.22   .18
 167 CORR               .29   .29  -.20   .32   .12   .38
 168 CORR                     .05   .20  -.15   .16   .21
 169 CORR                           .20   .32  -.17   .12
 170 CORR                                 .27   .12  -.24
 171 CORR                                      -.20  -.38
 172 CORR                                             .04
 173 END DATA.
 174 FORMATS var01 TO var08(F6.2).
 175 LIST.
 176 ])
 177 AT_CHECK([pspp -O format=csv matrix-data.sps], [0], [dnl
 178 Table: Data List
 179 ROWTYPE_,VARNAME_,var01,var02,var03,var04,var05,var06,var07,var08
 180 MEAN,,24.30,5.40,69.70,20.10,13.40,2.70,27.90,3.70
 181 STDDEV,,5.70,1.50,23.50,5.80,2.80,4.50,5.40,1.50
 182 N,,92.00,92.00,92.00,92.00,92.00,92.00,92.00,92.00
 183 CORR,var01,1.00,.17,.50,-.33,.27,.36,-.22,.18
 184 CORR,var02,.17,1.00,.29,.29,-.20,.32,.12,.38
 185 CORR,var03,.50,.29,1.00,.05,.20,-.15,.16,.21
 186 CORR,var04,-.33,.29,.05,1.00,.20,.32,-.17,.12
 187 CORR,var05,.27,-.20,.20,.20,1.00,.27,.12,-.24
 188 CORR,var06,.36,.32,-.15,.32,.27,1.00,-.20,-.38
 189 CORR,var07,-.22,.12,.16,-.17,.12,-.20,1.00,.04
 190 CORR,var08,.18,.38,.21,.12,-.24,-.38,.04,1.00
 191 ])
 192 AT_CLEANUP
 193
 194 AT_SETUP([MATRIX DATA - LOWER NODIAGONAL with ROWTYPE_])
 195 AT_DATA([matrix-data.sps], [dnl
 196 matrix data
 197     variables = rowtype_  var01 var02 var03 var04
 198     /format = lower nodiagonal
 199     /cells = 2.
 200
 201 begin data
 202 mean 34 35 36 37
 203 sd   22 11 55 66
 204 n    100 101 102 103
 205 corr  9
 206 corr  8 6
 207 corr  7 5 4
 208 end data.
 209
 210 list.
 211 ])
 212
 213 AT_CHECK([pspp -O format=csv matrix-data.sps], [0], [dnl
 214 matrix-data.sps:4: warning: MATRIX DATA: CELLS is ignored when VARIABLES includes ROWTYPE_
 215
 216 Table: Data List
 217 ROWTYPE_,VARNAME_,var01,var02,var03,var04
 218 MEAN,,34.0000,35.0000,36.0000,37.0000
 219 STDDEV,,22.0000,11.0000,55.0000,66.0000
 220 N,,100.0000,101.0000,102.0000,103.0000
 221 CORR,var01,1.0000,9.0000,8.0000,7.0000
 222 CORR,var02,9.0000,1.0000,6.0000,5.0000
 223 CORR,var03,8.0000,6.0000,1.0000,4.0000
 224 CORR,var04,7.0000,5.0000,4.0000,1.0000
 225 ])
 226 AT_CLEANUP
 227
 228 AT_SETUP([MATRIX DATA - split data])
 229 AT_DATA([matrix-data.sps], [dnl
 230 matrix data
 231     variables = s1 s2 rowtype_  var01 var02 var03
 232     /split=s1 s2.
 233
 234 begin data
 235 8 0   mean     21.4  5.0  72.9
 236 8 0   sd       6.5   1.6  22.8
 237 8 0   n        106   106  106
 238 8 0   corr     1
 239 8 0   corr    .41  1
 240 8 0   corr    -.16  -.22  1
 241 8 1   mean     11.4  1.0  52.9
 242 8 1   sd       9.5   8.6  12.8
 243 8 1   n        10   11  12
 244 8 1   corr     1
 245 8 1   corr    .51  1
 246 8 1   corr    .36  -.41  1
 247 end data.
 248
 249 display dictionary.
 250
 251 list.
 252 ])
 253
 254 AT_CHECK([pspp -O format=csv matrix-data.sps], [0], [dnl
 255 Table: Variables
 256 Name,Position,Measurement Level,Role,Width,Alignment,Print Format,Write Format
 257 s1,1,Nominal,Input,8,Right,F4.0,F4.0
 258 s2,2,Nominal,Input,8,Right,F4.0,F4.0
 259 ROWTYPE_,3,Nominal,Input,8,Left,A8,A8
 260 VARNAME_,4,Nominal,Input,8,Left,A8,A8
 261 var01,5,Scale,Input,8,Right,F10.4,F10.4
 262 var02,6,Scale,Input,8,Right,F10.4,F10.4
 263 var03,7,Scale,Input,8,Right,F10.4,F10.4
 264
 265 Table: Split Values
 266 Variable,Value
 267 s1,8
 268 s2,0
 269
 270 Table: Data List
 271 s1,s2,ROWTYPE_,VARNAME_,var01,var02,var03
 272 8,0,MEAN,,21.4000,5.0000,72.9000
 273 8,0,STDDEV,,6.5000,1.6000,22.8000
 274 8,0,N,,106.0000,106.0000,106.0000
 275 8,0,CORR,var01,1.0000,.4100,-.1600
 276 8,0,CORR,var02,.4100,1.0000,-.2200
 277 8,0,CORR,var03,-.1600,-.2200,1.0000
 278
 279 Table: Split Values
 280 Variable,Value
 281 s1,8
 282 s2,1
 283
 284 Table: Data List
 285 s1,s2,ROWTYPE_,VARNAME_,var01,var02,var03
 286 8,1,MEAN,,11.4000,1.0000,52.9000
 287 8,1,STDDEV,,9.5000,8.6000,12.8000
 288 8,1,N,,10.0000,11.0000,12.0000
 289 8,1,CORR,var01,1.0000,.5100,.3600
 290 8,1,CORR,var02,.5100,1.0000,-.4100
 291 8,1,CORR,var03,.3600,-.4100,1.0000
 292 ])
 293
 294 AT_CLEANUP
 295
 296 dnl Keep this test in sync with Example 4 in doc/matrices.texi.
 297 AT_SETUP([MATRIX DATA - split data - 2])
 298 AT_DATA([matrix-data.sps], [dnl
 299 MATRIX DATA
 300     VARIABLES=s1 ROWTYPE_  var01 TO var04
 301     /SPLIT=s1
 302     /FORMAT=FULL.
 303 BEGIN DATA.
 304 0 MEAN 34 35 36 37
 305 0 SD   22 11 55 66
 306 0 N    99 98 99 92
 307 0 CORR  1 .9 .8 .7
 308 0 CORR .9  1 .6 .5
 309 0 CORR .8 .6  1 .4
 310 0 CORR .7 .5 .4  1
 311 1 MEAN 44 45 34 39
 312 1 SD   23 15 51 46
 313 1 N    98 34 87 23
 314 1 CORR  1 .2 .3 .4
 315 1 CORR .2  1 .5 .6
 316 1 CORR .3 .5  1 .7
 317 1 CORR .4 .6 .7  1
 318 END DATA.
 319 FORMATS var01 TO var04(F5.1).
 320 LIST.
 321 ])
 322
 323 AT_CHECK([pspp -O format=csv matrix-data.sps], [0], [dnl
 324 Table: Split Values
 325 Variable,Value
 326 s1,0
 327
 328 Table: Data List
 329 s1,ROWTYPE_,VARNAME_,var01,var02,var03,var04
 330 0,MEAN,,34.0,35.0,36.0,37.0
 331 0,STDDEV,,22.0,11.0,55.0,66.0
 332 0,N,,99.0,98.0,99.0,92.0
 333 0,CORR,var01,1.0,.9,.8,.7
 334 0,CORR,var02,.9,1.0,.6,.5
 335 0,CORR,var03,.8,.6,1.0,.4
 336 0,CORR,var04,.7,.5,.4,1.0
 337
 338 Table: Split Values
 339 Variable,Value
 340 s1,1
 341
 342 Table: Data List
 343 s1,ROWTYPE_,VARNAME_,var01,var02,var03,var04
 344 1,MEAN,,44.0,45.0,34.0,39.0
 345 1,STDDEV,,23.0,15.0,51.0,46.0
 346 1,N,,98.0,34.0,87.0,23.0
 347 1,CORR,var01,1.0,.2,.3,.4
 348 1,CORR,var02,.2,1.0,.5,.6
 349 1,CORR,var03,.3,.5,1.0,.7
 350 1,CORR,var04,.4,.6,.7,1.0
 351 ])
 352 AT_CLEANUP
 353
 354 dnl Keep this test in sync with Example 5 in doc/matrices.texi.
 355 AT_SETUP([MATRIX DATA - factor variables])
 356 AT_DATA([matrix-data.sps], [dnl
 357 MATRIX DATA
 358     VARIABLES=ROWTYPE_ f1 var01 TO var04
 359     /FACTOR=f1.
 360 BEGIN DATA.
 361 MEAN 0 34 35 36 37
 362 SD   0 22 11 55 66
 363 N    0 99 98 99 92
 364 MEAN 1 44 45 34 39
 365 SD   1 23 15 51 46
 366 N    1 98 34 87 23
 367 CORR .  1
 368 CORR . .9  1
 369 CORR . .8 .6  1
 370 CORR . .7 .5 .4  1
 371 END DATA.
 372 FORMATS var01 TO var04(F5.1).
 373 LIST.
 374 ])
 375
 376 AT_CHECK([pspp -O format=csv matrix-data.sps], [0], [dnl
 377 Table: Data List
 378 ROWTYPE_,f1,VARNAME_,var01,var02,var03,var04
 379 MEAN,0,,34.0,35.0,36.0,37.0
 380 STDDEV,0,,22.0,11.0,55.0,66.0
 381 N,0,,99.0,98.0,99.0,92.0
 382 MEAN,1,,44.0,45.0,34.0,39.0
 383 STDDEV,1,,23.0,15.0,51.0,46.0
 384 N,1,,98.0,34.0,87.0,23.0
 385 CORR,.,var01,1.0,.9,.8,.7
 386 CORR,.,var02,.9,1.0,.6,.5
 387 CORR,.,var03,.8,.6,1.0,.4
 388 CORR,.,var04,.7,.5,.4,1.0
 389 ])
 390 AT_CLEANUP
 391
 392 AT_SETUP([MATRIX DATA - factors and splits])
 393 AT_DATA([matrix-data.sps], [dnl
 394 matrix data
 395     variables = s f rowtype_  var01 var02 var03
 396     /split=s
 397     /factor=f.
 398
 399 begin data
 400 8 0   mean     21.4  5.0  72.9
 401 8 0   sd       6.5   1.6  22.8
 402 8 0   n        106   106  106
 403 8 .   corr     1
 404 8 .   corr    .41  1
 405 8 .   corr    -.16  -.22  1
 406 9 1   mean     11.4  1.0  52.9
 407 9 1   sd       9.5   8.6  12.8
 408 9 1   n        10   11  12
 409 9 .   corr     1
 410 9 .   corr    .51  1
 411 9 .   corr    .36  -.41  1
 412 end data.
 413
 414 display dictionary.
 415
 416 list.
 417 ])
 418 AT_CHECK([pspp matrix-data.sps -O format=csv], [0], [dnl
 419 Table: Variables
 420 Name,Position,Measurement Level,Role,Width,Alignment,Print Format,Write Format
 421 s,1,Nominal,Input,8,Right,F4.0,F4.0
 422 ROWTYPE_,2,Nominal,Input,8,Left,A8,A8
 423 f,3,Nominal,Input,8,Right,F4.0,F4.0
 424 VARNAME_,4,Nominal,Input,8,Left,A8,A8
 425 var01,5,Scale,Input,8,Right,F10.4,F10.4
 426 var02,6,Scale,Input,8,Right,F10.4,F10.4
 427 var03,7,Scale,Input,8,Right,F10.4,F10.4
 428
 429 Table: Split Values
 430 Variable,Value
 431 s,8
 432
 433 Table: Data List
 434 s,ROWTYPE_,f,VARNAME_,var01,var02,var03
 435 8,MEAN,0,,21.4000,5.0000,72.9000
 436 8,STDDEV,0,,6.5000,1.6000,22.8000
 437 8,N,0,,106.0000,106.0000,106.0000
 438 8,CORR,.,var01,1.0000,.4100,-.1600
 439 8,CORR,.,var02,.4100,1.0000,-.2200
 440 8,CORR,.,var03,-.1600,-.2200,1.0000
 441
 442 Table: Split Values
 443 Variable,Value
 444 s,9
 445
 446 Table: Data List
 447 s,ROWTYPE_,f,VARNAME_,var01,var02,var03
 448 9,MEAN,1,,11.4000,1.0000,52.9000
 449 9,STDDEV,1,,9.5000,8.6000,12.8000
 450 9,N,1,,10.0000,11.0000,12.0000
 451 9,CORR,.,var01,1.0000,.5100,.3600
 452 9,CORR,.,var02,.5100,1.0000,-.4100
 453 9,CORR,.,var03,.3600,-.4100,1.0000
 454 ])
 455 AT_CLEANUP
 456
 457 AT_SETUP([MATRIX DATA - bad ROWTYPE_])
 458 AT_DATA([matrix-data.sps], [dnl
 459 matrix data
 460     variables = rowtype_  var01 var02 var03 var04
 461     /format = upper diagonal.
 462
 463 begin data
 464 cork        1 9 8 7
 465 corr        1 6 5
 466 corr        1 4
 467 corr        1
 468 end data.
 469
 470 list.
 471 ])
 472
 473 AT_CHECK([pspp -O format=csv matrix-data.sps], [1], [dnl
 474 "matrix-data.sps:6.1-6.4: error: Unknown row type ""cork""."
 475 ])
 476 AT_CLEANUP
 477
 478 AT_SETUP([MATRIX DATA - unexpected ROWTYPE_])
 479 AT_DATA([matrix-data.sps], [dnl
 480 matrix data
 481     variables = rowtype_ f1 var01 var02 var03 var04
 482     /content = corr (sd)
 483     /factor = f1
 484     /format = upper diagonal.
 485
 486 begin data
 487 corr . 1 9 8 7
 488 corr . 1 6 5
 489 corr . 1 4
 490 corr . 1
 491 sd   . 1 2 3 4
 492
 493 corr 0 1 9 8 7
 494 corr 0 1 6 5
 495 corr 0 1 4
 496 corr 0 1
 497 sd   0 1 2 3 4
 498 end data.
 499
 500 list.
 501 ])
 502
 503 AT_CHECK([pspp -O format=csv matrix-data.sps], [0], [dnl
 504 matrix-data.sps:12: warning: Data contains pooled row type STDDEV not included in CONTENTS.
 505
 506 matrix-data.sps:14: warning: Data contains with-factors row type CORR not included in CONTENTS.
 507
 508 Table: Data List
 509 ROWTYPE_,f1,VARNAME_,var01,var02,var03,var04
 510 CORR,.,var01,1.0000,9.0000,8.0000,7.0000
 511 CORR,.,var02,9.0000,1.0000,6.0000,5.0000
 512 CORR,.,var03,8.0000,6.0000,1.0000,4.0000
 513 CORR,.,var04,7.0000,5.0000,4.0000,1.0000
 514 STDDEV,.,,1.0000,2.0000,3.0000,4.0000
 515 CORR,0,var01,1.0000,9.0000,8.0000,7.0000
 516 CORR,0,var02,9.0000,1.0000,6.0000,5.0000
 517 CORR,0,var03,8.0000,6.0000,1.0000,4.0000
 518 CORR,0,var04,7.0000,5.0000,4.0000,1.0000
 519 STDDEV,0,,1.0000,2.0000,3.0000,4.0000
 520 ])
 521 AT_CLEANUP
 522
 523 AT_SETUP([MATRIX DATA - bad number])
 524 AT_DATA([matrix-data.sps], [dnl
 525 matrix data
 526     variables = rowtype_  var01 var02 var03 var04
 527     /format = upper diagonal.
 528
 529 begin data
 530 corr        1 9 8 7
 531 corr        1 x 5
 532 corr        1 4
 533 corr        1
 534 end data.
 535
 536 list.
 537 ])
 538
 539 AT_CHECK([pspp -O format=csv matrix-data.sps], [1], [dnl
 540 matrix-data.sps:7.15: error: Field contents are not numeric.
 541
 542 Table: Data List
 543 ROWTYPE_,VARNAME_,var01,var02,var03,var04
 544 CORR,var01,1.0000,9.0000,8.0000,7.0000
 545 CORR,var02,9.0000,1.0000,.    ,5.0000
 546 CORR,var03,8.0000,.    ,1.0000,4.0000
 547 CORR,var04,7.0000,5.0000,4.0000,1.0000
 548 ])
 549 AT_CLEANUP
 550
 551 AT_SETUP([MATRIX DATA - long variable names])
 552 AT_DATA([matrix-data.sps], [dnl
 553 matrix data
 554     variables = rowtype_  var01 var_two variable_number_three variableFour
 555     /format = upper diagonal.
 556
 557 begin data
 558 mean         34  35  36  37
 559 sd           22  11  55  66
 560 n_vector    100 101 102 103
 561 corr          1   9   8   7
 562 corr              1   6   5
 563 corr                  1   4
 564 corr                      1
 565 end data.
 566
 567 list.
 568 ])
 569
 570 AT_CHECK([pspp -O format=csv matrix-data.sps], [0], [dnl
 571 Table: Data List
 572 ROWTYPE_,VARNAME_,var01,var_two,variable_number_three,variableFour
 573 MEAN,,34.0000,35.0000,36.0000,37.0000
 574 STDDEV,,22.0000,11.0000,55.0000,66.0000
 575 N,,100.0000,101.0000,102.0000,103.0000
 576 CORR,var01,1.0000,9.0000,8.0000,7.0000
 577 CORR,var_two,9.0000,1.0000,6.0000,5.0000
 578 CORR,variable_number_three,8.0000,6.0000,1.0000,4.0000
 579 CORR,variableFour,7.0000,5.0000,4.0000,1.0000
 580 ])
 581 AT_CLEANUP
 582
 583 AT_SETUP([MATRIX DATA - read integrity])
 584 dnl Check that matrices presented are read correctly.
 585 dnl The example below is an unlikely one since all
 586 dnl covariance/correlation matrices must be symmetrical
 587 dnl but it serves a purpose for this test.
 588 AT_DATA([matrix-reader.sps], [dnl
 589 matrix data
 590     variables = rowtype_  var01 to var9
 591     /format = full.
 592
 593 begin data
 594 n    1  2  3  4  5  6  7  8  9
 595 sd   100 200 300 400 500 600 700 800 900
 596 corr 11 12 13 14 15 16 17 18 19
 597 corr 21 22 23 24 25 26 27 28 29
 598 corr 31 32 33 34 35 36 37 38 39
 599 corr 41 42 43 44 45 46 47 48 49
 600 corr 51 52 53 54 55 56 57 58 59
 601 corr 61 62 63 64 65 66 67 68 69
 602 corr 71 72 73 74 75 76 77 78 79
 603 corr 81 82 83 84 85 86 87 88 89
 604 corr 91 92 93 94 95 96 97 98 99
 605 end data.
 606 DEBUG MATRIX READ.
 607 FORMATS var01 to var09(F3.0).
 608 list.
 609 factor  /matrix = in (corr = *)
 610         /analysis var02 var04 var06
 611         /method = correlation
 612         /rotation = norotate
 613         /print correlation.
 614 ])
 615
 616 AT_CHECK([pspp --testing-mode -O format=csv matrix-reader.sps], [0], [dnl
 617 Table: Debug Matrix Reader
 618 ,,,var01,var02,var03,var04,var05,var06,var07,var08,var09
 619 1,Correlation,var01,11.000,12.000,13.000,14.000,15.000,16.000,17.000,18.000,19.000
 620 ,,var02,21.000,22.000,23.000,24.000,25.000,26.000,27.000,28.000,29.000
 621 ,,var03,31.000,32.000,33.000,34.000,35.000,36.000,37.000,38.000,39.000
 622 ,,var04,41.000,42.000,43.000,44.000,45.000,46.000,47.000,48.000,49.000
 623 ,,var05,51.000,52.000,53.000,54.000,55.000,56.000,57.000,58.000,59.000
 624 ,,var06,61.000,62.000,63.000,64.000,65.000,66.000,67.000,68.000,69.000
 625 ,,var07,71.000,72.000,73.000,74.000,75.000,76.000,77.000,78.000,79.000
 626 ,,var08,81.000,82.000,83.000,84.000,85.000,86.000,87.000,88.000,89.000
 627 ,,var09,91.000,92.000,93.000,94.000,95.000,96.000,97.000,98.000,99.000
 628 ,N,Value,1.000,2.000,3.000,4.000,5.000,6.000,7.000,8.000,9.000
 629 ,Standard Deviation,Value,100.000,200.000,300.000,400.000,500.000,600.000,700.000,800.000,900.000
 630
 631 Table: Data List
 632 ROWTYPE_,VARNAME_,var01,var02,var03,var04,var05,var06,var07,var08,var09
 633 N,,1,2,3,4,5,6,7,8,9
 634 STDDEV,,100,200,300,400,500,600,700,800,900
 635 CORR,var01,11,12,13,14,15,16,17,18,19
 636 CORR,var02,21,22,23,24,25,26,27,28,29
 637 CORR,var03,31,32,33,34,35,36,37,38,39
 638 CORR,var04,41,42,43,44,45,46,47,48,49
 639 CORR,var05,51,52,53,54,55,56,57,58,59
 640 CORR,var06,61,62,63,64,65,66,67,68,69
 641 CORR,var07,71,72,73,74,75,76,77,78,79
 642 CORR,var08,81,82,83,84,85,86,87,88,89
 643 CORR,var09,91,92,93,94,95,96,97,98,99
 644
 645 Table: Correlation Matrix
 646 ,,var02,var04,var06
 647 Correlation,var02,22.000,24.000,26.000
 648 ,var04,42.000,44.000,46.000
 649 ,var06,62.000,64.000,66.000
 650
 651 Table: Component Matrix
 652 ,Component,
 653 ,1,2
 654 var02,6.73,-2.23
 655 var04,6.95,2.15
 656 var06,9.22,.01
 657 ])
 658 AT_CLEANUP
 659
 660 AT_SETUP([MATRIX DATA - too many rows])
 661 dnl Test for a crash which occurred when the matrix had more rows declared
 662 dnl than variables to hold them.
 663 AT_DATA([matrix-data.sps], [dnl
 664 matrix data
 665     variables = rowtype_
 666     var01 var02 var03 var04
 667     / format = upper diagonal .
 668 begin data
 669     mean     21.4  5.0  72.9  17.4
 670     sd       6.5  1.6  22.8  5.7
 671     n       106  106  106  106
 672     corr    1.00  .32  .48  .28
 673     corr    1.00  .72  .54  .44
 674     corr    1.00  .50  .59  .64
 675     corr    1.00  .62  .49  -.30
 676     corr    1.00  .56  -.38  .52
 677     corr    1.00  -.73  .91  .80
 678     corr    1.00  -.65  -.60
 679     corr    1.00  .70
 680     corr    1.00
 681 end data .
 682 FORMATS var01 TO var04 (F6.2).
 683 LIST.
 684 ])
 685
 686 AT_CHECK([pspp -O format=csv matrix-data.sps], [1], [dnl
 687 matrix-data.sps:10.29-10.31: error: Extraneous data expecting end of line.
 688
 689 matrix-data.sps:11.24-11.31: error: Extraneous data expecting end of line.
 690
 691 matrix-data.sps:12.19-12.32: error: Extraneous data expecting end of line.
 692
 693 matrix-data.sps:18: error: Matrix CORR had 9 rows but 4 rows were expected.
 694
 695 Table: Data List
 696 ROWTYPE_,VARNAME_,var01,var02,var03,var04
 697 MEAN,,21.40,5.00,72.90,17.40
 698 STDDEV,,6.50,1.60,22.80,5.70
 699 N,,106.00,106.00,106.00,106.00
 700 CORR,var01,1.00,.32,.48,.28
 701 CORR,var02,.32,1.00,.72,.54
 702 CORR,var03,.48,.72,1.00,.50
 703 CORR,var04,.28,.54,.50,1.00
 704 ])
 705 AT_CLEANUP
 706
 707 AT_SETUP([MATRIX DATA - too few rows])
 708 AT_DATA([matrix-data.sps], [dnl
 709 matrix data
 710     variables = rowtype_ s1 var01 var02 var03 var04
 711     /split s1
 712     /format = upper diagonal
 713     /file='matrix-data.txt'.
 714 FORMATS var01 TO var04 (F6.2).
 715 LIST.
 716 ])
 717 AT_DATA([matrix-data.txt], [dnl
 718 mean 1    21.4  5.0  72.9  17.4
 719 sd   1    6.5  1.6  22.8  5.7
 720 n    1   106  106  106  106
 721 corr 1   1.00  .32  .48  .28
 722 corr 2   1.00  .32  .48  .28
 723 corr 2        2.00  .72  .54
 724 ])
 725
 726 AT_CHECK([pspp -O format=csv matrix-data.sps], [1], [dnl
 727 matrix-data.txt:5: error: Matrix CORR had 1 rows but 4 rows were expected.
 728
 729 matrix-data.txt:6: error: Matrix CORR had 2 rows but 4 rows were expected.
 730
 731 Table: Split Values
 732 Variable,Value
 733 s1,1
 734
 735 Table: Data List
 736 s1,ROWTYPE_,VARNAME_,var01,var02,var03,var04
 737 1,MEAN,,21.40,5.00,72.90,17.40
 738 1,STDDEV,,6.50,1.60,22.80,5.70
 739 1,N,,106.00,106.00,106.00,106.00
 740 1,CORR,var01,1.00,.32,.48,.28
 741 1,CORR,var02,.32,1.00,.  ,.  @&t@
 742 1,CORR,var03,.48,.  ,1.00,.  @&t@
 743 1,CORR,var04,.28,.  ,.  ,1.00
 744
 745 Table: Split Values
 746 Variable,Value
 747 s1,2
 748
 749 Table: Data List
 750 s1,ROWTYPE_,VARNAME_,var01,var02,var03,var04
 751 2,CORR,var01,1.00,.32,.48,.28
 752 2,CORR,var02,.32,2.00,.72,.54
 753 2,CORR,var03,.48,.72,1.00,.  @&t@
 754 2,CORR,var04,.28,.54,.  ,1.00
 755 ])
 756 AT_CLEANUP
 757
 758 AT_SETUP([MATRIX DATA - badly formed])
 759 AT_DATA([data.sps], [dnl
 760 data list list NOTABLE /ROWTYPE_ (a8) VARNAME_(a4) v1 v2 v3 v4xxxxxxxxxxxxxxxxxxxxxzzzzzzzzzzzzzxxxxxxxxx.
 761 begin data
 762 mean ""                          1 2 3 4
 763 sd   ""                          5 6 7 8
 764 n    ""                          2 3 4 5
 765 corr v1                          11 22 33 44
 766 corr v2                          55 66 77 88
 767 corr v3                          111 222 333 444
 768 corr v4                           4 3 21 1
 769 end data.
 770
 771 DEBUG MATRIX READ.
 772 ])
 773
 774 AT_CHECK([pspp --testing-mode -O format=csv data.sps], [0], [dnl
 775 data.sps:12: warning: DEBUG MATRIX READ: CORR matrix has 4 columns but 3 rows named variables to be analyzed (and 1 rows named unknown variables).
 776
 777 Table: Debug Matrix Reader
 778 ,,,v1,v2,v3,v4xxxxxxxxxxxxxxxxxxxxxzzzzzzzzzzzzzxxxxxxxxx
 779 1,Correlation,v1,11.000,22.000,33.000,44.000
 780 ,,v2,55.000,66.000,77.000,88.000
 781 ,,v3,111.000,222.000,333.000,444.000
 782 ,,v4xxxxxxxxxxxxxxxxxxxxxzzzzzzzzzzzzzxxxxxxxxx,.   ,.   ,.   ,.   @&t@
 783 ,N,Value,2.000,3.000,4.000,5.000
 784 ,Mean,Value,1.000,2.000,3.000,4.000
 785 ])
 786 AT_CLEANUP
 787
 788 AT_SETUP([MATRIX DATA - N subcommand])
 789 AT_DATA([matrix-data.sps], [dnl
 790 matrix data
 791     variables = rowtype_  var01 var02 var03 var04
 792     /n = 99
 793     /format = upper nodiagonal.
 794 begin data
 795 mean 34 35 36 37
 796 sd   22 11 55 66
 797 n_vector 1 2 3 4
 798 corr  9 8 7
 799 corr  6 5
 800 corr  4
 801 end data.
 802
 803 list.
 804 ])
 805
 806 AT_CHECK([pspp -O format=csv matrix-data.sps], [1], [dnl
 807 matrix-data.sps:8: error: N record is not allowed with N subcommand.  Ignoring N record.
 808
 809 Table: Data List
 810 ROWTYPE_,VARNAME_,var01,var02,var03,var04
 811 N,,99.0000,99.0000,99.0000,99.0000
 812 MEAN,,34.0000,35.0000,36.0000,37.0000
 813 STDDEV,,22.0000,11.0000,55.0000,66.0000
 814 CORR,var01,1.0000,9.0000,8.0000,7.0000
 815 CORR,var02,9.0000,1.0000,6.0000,5.0000
 816 CORR,var03,8.0000,6.0000,1.0000,4.0000
 817 CORR,var04,7.0000,5.0000,4.0000,1.0000
 818 ])
 819 AT_CLEANUP
 820
 821 dnl Keep this test in sync with Example 3 in doc/matrices.texi.
 822 AT_SETUP([MATRIX DATA - N subcommand - 2])
 823 AT_DATA([matrix-data.sps], [dnl
 824 MATRIX DATA
 825     VARIABLES=ROWTYPE_ var01 TO var08
 826     /FORMAT=UPPER NODIAGONAL
 827     /N 92.
 828 BEGIN DATA.
 829 MEAN  24.3   5.4  69.7  20.1  13.4   2.7  27.9   3.7
 830 SD     5.7   1.5  23.5   5.8   2.8   4.5   5.4   1.5
 831 CORR         .17   .50  -.33   .27   .36  -.22   .18
 832 CORR               .29   .29  -.20   .32   .12   .38
 833 CORR                     .05   .20  -.15   .16   .21
 834 CORR                           .20   .32  -.17   .12
 835 CORR                                 .27   .12  -.24
 836 CORR                                      -.20  -.38
 837 CORR                                             .04
 838 END DATA.
 839 FORMATS var01 TO var08(F6.2).
 840 LIST.
 841 ])
 842
 843 AT_CHECK([pspp -O format=csv matrix-data.sps], [0], [dnl
 844 Table: Data List
 845 ROWTYPE_,VARNAME_,var01,var02,var03,var04,var05,var06,var07,var08
 846 N,,92.00,92.00,92.00,92.00,92.00,92.00,92.00,92.00
 847 MEAN,,24.30,5.40,69.70,20.10,13.40,2.70,27.90,3.70
 848 STDDEV,,5.70,1.50,23.50,5.80,2.80,4.50,5.40,1.50
 849 CORR,var01,1.00,.17,.50,-.33,.27,.36,-.22,.18
 850 CORR,var02,.17,1.00,.29,.29,-.20,.32,.12,.38
 851 CORR,var03,.50,.29,1.00,.05,.20,-.15,.16,.21
 852 CORR,var04,-.33,.29,.05,1.00,.20,.32,-.17,.12
 853 CORR,var05,.27,-.20,.20,.20,1.00,.27,.12,-.24
 854 CORR,var06,.36,.32,-.15,.32,.27,1.00,-.20,-.38
 855 CORR,var07,-.22,.12,.16,-.17,.12,-.20,1.00,.04
 856 CORR,var08,.18,.38,.21,.12,-.24,-.38,.04,1.00
 857 ])
 858 AT_CLEANUP
 859
 860 dnl A "no-crash" test.  This was observed to cause problems.
 861 dnl See bug #58596
 862 AT_SETUP([MATRIX DATA - crash])
 863
 864 AT_DATA([matrix-data.sps], [dnl
 865 begin data
 866 corr 31
 867
 868 matrix data
 869     var1
 870 begin data
 871     corr    1.00
 872 end data .
 873
 874 matrix data
 875     variables = roxtype_  var01
 876    /format = upper nodiagonal.
 877 begin data
 878 ])
 879
 880 AT_CHECK([pspp -O format=csv matrix-data.sps], [1], [ignore])
 881 AT_CLEANUP
 882 \f
 883 dnl Keep this test in sync with Example 6 in doc/matrices.texi.
 884 AT_SETUP([MATRIX DATA - LOWER DIAGONAL without ROWTYPE_])
 885 AT_DATA([matrix-data.sps], [dnl
 886 MATRIX DATA
 887     VARIABLES=var01 TO var08
 888    /CONTENTS=MEAN SD N CORR.
 889 BEGIN DATA.
 890 24.3   5.4  69.7  20.1  13.4   2.7  27.9   3.7
 891  5.7   1.5  23.5   5.8   2.8   4.5   5.4   1.5
 892   92    92    92    92    92    92    92    92
 893 1.00
 894  .18  1.00
 895 -.22  -.17  1.00
 896  .36   .31  -.14  1.00
 897  .27   .16  -.12   .22  1.00
 898  .33   .15  -.17   .24   .21  1.00
 899  .50   .29  -.20   .32   .12   .38  1.00
 900  .17   .29  -.05   .20   .27   .20   .04  1.00
 901 END DATA.
 902 FORMATS var01 TO var08(F5.2).
 903 LIST.
 904 ])
 905 AT_CHECK([pspp matrix-data.sps -O format=csv], [0], [dnl
 906 Table: Data List
 907 ROWTYPE_,VARNAME_,var01,var02,var03,var04,var05,var06,var07,var08
 908 MEAN,,24.30,5.40,69.70,20.10,13.40,2.70,27.90,3.70
 909 STDDEV,,5.70,1.50,23.50,5.80,2.80,4.50,5.40,1.50
 910 N,,92.00,92.00,92.00,92.00,92.00,92.00,92.00,92.00
 911 CORR,var01,1.00,.18,-.22,.36,.27,.33,.50,.17
 912 CORR,var02,.18,1.00,-.17,.31,.16,.15,.29,.29
 913 CORR,var03,-.22,-.17,1.00,-.14,-.12,-.17,-.20,-.05
 914 CORR,var04,.36,.31,-.14,1.00,.22,.24,.32,.20
 915 CORR,var05,.27,.16,-.12,.22,1.00,.21,.12,.27
 916 CORR,var06,.33,.15,-.17,.24,.21,1.00,.38,.20
 917 CORR,var07,.50,.29,-.20,.32,.12,.38,1.00,.04
 918 CORR,var08,.17,.29,-.05,.20,.27,.20,.04,1.00
 919 ])
 920 AT_CLEANUP
 921
 922 AT_SETUP([MATRIX DATA - extraneous data without ROWTYPE_])
 923 AT_DATA([matrix-data.sps], [dnl
 924 MATRIX DATA
 925     VARIABLES=var01 TO var08
 926    /CONTENTS=MEAN SD N CORR.
 927 BEGIN DATA.
 928 24.3   5.4  69.7  20.1  13.4   2.7  27.9   3.7
 929  5.7   1.5  23.5   5.8   2.8   4.5   5.4   1.5
 930   92    92    92    92    92    92    92    92
 931 1.00   .18
 932  .18  1.00
 933 -.22  -.17  1.00
 934  .36   .31  -.14  1.00
 935  .27   .16  -.12   .22  1.00
 936  .33   .15  -.17   .24   .21  1.00
 937  .50   .29  -.20   .32   .12   .38  1.00
 938  .17   .29  -.05   .20   .27   .20   .04  1.00
 939 END DATA.
 940 FORMATS var01 TO var08(F5.2).
 941 LIST.
 942 ])
 943 AT_CHECK([pspp matrix-data.sps -O format=csv], [1], [dnl
 944 matrix-data.sps:8.8-8.10: error: Extraneous data expecting end of line.
 945
 946 Table: Data List
 947 ROWTYPE_,VARNAME_,var01,var02,var03,var04,var05,var06,var07,var08
 948 MEAN,,24.30,5.40,69.70,20.10,13.40,2.70,27.90,3.70
 949 STDDEV,,5.70,1.50,23.50,5.80,2.80,4.50,5.40,1.50
 950 N,,92.00,92.00,92.00,92.00,92.00,92.00,92.00,92.00
 951 CORR,var01,1.00,.18,-.22,.36,.27,.33,.50,.17
 952 CORR,var02,.18,1.00,-.17,.31,.16,.15,.29,.29
 953 CORR,var03,-.22,-.17,1.00,-.14,-.12,-.17,-.20,-.05
 954 CORR,var04,.36,.31,-.14,1.00,.22,.24,.32,.20
 955 CORR,var05,.27,.16,-.12,.22,1.00,.21,.12,.27
 956 CORR,var06,.33,.15,-.17,.24,.21,1.00,.38,.20
 957 CORR,var07,.50,.29,-.20,.32,.12,.38,1.00,.04
 958 CORR,var08,.17,.29,-.05,.20,.27,.20,.04,1.00
 959 ])
 960 AT_CLEANUP
 961
 962 dnl Keep this test in sync with Example 7 in doc/matrices.texi.
 963 AT_SETUP([MATRIX DATA - Split variables with explicit values without ROWTYPE_])
 964 AT_DATA([matrix-data.sps], [dnl
 965 MATRIX DATA
 966     VARIABLES=s1 var01 TO var04
 967     /SPLIT=s1
 968     /FORMAT=FULL
 969     /CONTENTS=MEAN SD N CORR.
 970 BEGIN DATA.
 971 0 34 35 36 37
 972 0 22 11 55 66
 973 0 99 98 99 92
 974 0  1 .9 .8 .7
 975 0 .9  1 .6 .5
 976 0 .8 .6  1 .4
 977 0 .7 .5 .4  1
 978 1 44 45 34 39
 979 1 23 15 51 46
 980 1 98 34 87 23
 981 1  1 .2 .3 .4
 982 1 .2  1 .5 .6
 983 1 .3 .5  1 .7
 984 1 .4 .6 .7  1
 985 END DATA.
 986 FORMATS var01 TO var04(F5.2).
 987 LIST.
 988 ])
 989 AT_CHECK([pspp matrix-data.sps -O format=csv], [0], [dnl
 990 Table: Split Values
 991 Variable,Value
 992 s1,0
 993
 994 Table: Data List
 995 s1,ROWTYPE_,VARNAME_,var01,var02,var03,var04
 996 0,MEAN,,34.00,35.00,36.00,37.00
 997 0,STDDEV,,22.00,11.00,55.00,66.00
 998 0,N,,99.00,98.00,99.00,92.00
 999 0,CORR,var01,1.00,.90,.80,.70
1000 0,CORR,var02,.90,1.00,.60,.50
1001 0,CORR,var03,.80,.60,1.00,.40
1002 0,CORR,var04,.70,.50,.40,1.00
1003
1004 Table: Split Values
1005 Variable,Value
1006 s1,1
1007
1008 Table: Data List
1009 s1,ROWTYPE_,VARNAME_,var01,var02,var03,var04
1010 1,MEAN,,44.00,45.00,34.00,39.00
1011 1,STDDEV,,23.00,15.00,51.00,46.00
1012 1,N,,98.00,34.00,87.00,23.00
1013 1,CORR,var01,1.00,.20,.30,.40
1014 1,CORR,var02,.20,1.00,.50,.60
1015 1,CORR,var03,.30,.50,1.00,.70
1016 1,CORR,var04,.40,.60,.70,1.00
1017 ])
1018 AT_CLEANUP
1019
1020 dnl Keep this test in sync with Example 8 in doc/matrices.texi.
1021 AT_SETUP([MATRIX DATA - Split variable with sequential values without ROWTYPE_])
1022 AT_DATA([matrix-data.sps], [dnl
1023 MATRIX DATA
1024     VARIABLES=var01 TO var04
1025     /SPLIT=s1
1026     /FORMAT=FULL
1027     /CONTENTS=MEAN SD N CORR.
1028 BEGIN DATA.
1029 34 35 36 37
1030 22 11 55 66
1031 99 98 99 92
1032  1 .9 .8 .7
1033 .9  1 .6 .5
1034 .8 .6  1 .4
1035 .7 .5 .4  1
1036 44 45 34 39
1037 23 15 51 46
1038 98 34 87 23
1039  1 .2 .3 .4
1040 .2  1 .5 .6
1041 .3 .5  1 .7
1042 .4 .6 .7  1
1043 END DATA.
1044 FORMATS var01 TO var04(F5.2).
1045 LIST.
1046 ])
1047 AT_CHECK([pspp matrix-data.sps -O format=csv], [0], [dnl
1048 Table: Split Values
1049 Variable,Value
1050 s1,1
1051
1052 Table: Data List
1053 s1,ROWTYPE_,VARNAME_,var01,var02,var03,var04
1054 1,MEAN,,34.00,35.00,36.00,37.00
1055 1,STDDEV,,22.00,11.00,55.00,66.00
1056 1,N,,99.00,98.00,99.00,92.00
1057 1,CORR,var01,1.00,.90,.80,.70
1058 1,CORR,var02,.90,1.00,.60,.50
1059 1,CORR,var03,.80,.60,1.00,.40
1060 1,CORR,var04,.70,.50,.40,1.00
1061
1062 Table: Split Values
1063 Variable,Value
1064 s1,2
1065
1066 Table: Data List
1067 s1,ROWTYPE_,VARNAME_,var01,var02,var03,var04
1068 2,MEAN,,44.00,45.00,34.00,39.00
1069 2,STDDEV,,23.00,15.00,51.00,46.00
1070 2,N,,98.00,34.00,87.00,23.00
1071 2,CORR,var01,1.00,.20,.30,.40
1072 2,CORR,var02,.20,1.00,.50,.60
1073 2,CORR,var03,.30,.50,1.00,.70
1074 2,CORR,var04,.40,.60,.70,1.00
1075 ])
1076 AT_CLEANUP
1077
1078 dnl Keep this test in sync with Example 9 in doc/matrices.texi.
1079 AT_SETUP([MATRIX DATA - Factor variables grouping within-cell records by factor without ROWTYPE_])
1080 AT_DATA([matrix-data.sps], [dnl
1081 MATRIX DATA
1082     VARIABLES=f1 var01 TO var04
1083     /FACTOR=f1
1084     /CELLS=2
1085     /CONTENTS=(MEAN SD N) CORR.
1086 BEGIN DATA.
1087 0 34 35 36 37
1088 0 22 11 55 66
1089 0 99 98 99 92
1090 1 44 45 34 39
1091 1 23 15 51 46
1092 1 98 34 87 23
1093    1
1094   .9  1
1095   .8 .6  1
1096   .7 .5 .4  1
1097 END DATA.
1098 FORMATS var01 TO var04(F5.1).
1099 LIST.
1100 ])
1101 AT_CHECK([pspp matrix-data.sps -O format=csv], [0], [dnl
1102 Table: Data List
1103 ROWTYPE_,f1,VARNAME_,var01,var02,var03,var04
1104 MEAN,0,,34.0,35.0,36.0,37.0
1105 STDDEV,0,,22.0,11.0,55.0,66.0
1106 N,0,,99.0,98.0,99.0,92.0
1107 MEAN,1,,44.0,45.0,34.0,39.0
1108 STDDEV,1,,23.0,15.0,51.0,46.0
1109 N,1,,98.0,34.0,87.0,23.0
1110 CORR,.,var01,1.0,.9,.8,.7
1111 CORR,.,var02,.9,1.0,.6,.5
1112 CORR,.,var03,.8,.6,1.0,.4
1113 CORR,.,var04,.7,.5,.4,1.0
1114 ])
1115 AT_CLEANUP
1116
1117 dnl Keep this test in sync with Example 10 in doc/matrices.texi.
1118 AT_SETUP([MATRIX DATA - Factor variables grouping within-cell records by row type without ROWTYPE_])
1119 AT_DATA([matrix-data.sps], [dnl
1120 MATRIX DATA
1121     VARIABLES=f1 var01 TO var04
1122     /FACTOR=f1
1123     /CELLS=2
1124     /CONTENTS=(MEAN) (SD) (N) CORR.
1125 BEGIN DATA.
1126 0 34 35 36 37
1127 1 44 45 34 39
1128 0 22 11 55 66
1129 1 23 15 51 46
1130 0 99 98 99 92
1131 1 98 34 87 23
1132    1
1133   .9  1
1134   .8 .6  1
1135   .7 .5 .4  1
1136 END DATA.
1137 FORMATS var01 TO var04(F5.1).
1138 LIST.
1139 ])
1140 AT_CHECK([pspp matrix-data.sps -O format=csv], [0], [dnl
1141 Table: Data List
1142 ROWTYPE_,f1,VARNAME_,var01,var02,var03,var04
1143 MEAN,0,,34.0,35.0,36.0,37.0
1144 MEAN,1,,44.0,45.0,34.0,39.0
1145 STDDEV,0,,22.0,11.0,55.0,66.0
1146 STDDEV,1,,23.0,15.0,51.0,46.0
1147 N,0,,99.0,98.0,99.0,92.0
1148 N,1,,98.0,34.0,87.0,23.0
1149 CORR,.,var01,1.0,.9,.8,.7
1150 CORR,.,var02,.9,1.0,.6,.5
1151 CORR,.,var03,.8,.6,1.0,.4
1152 CORR,.,var04,.7,.5,.4,1.0
1153 ])
1154 AT_CLEANUP
1155
1156 AT_SETUP([MATRIX DATA - syntax errors])
1157 AT_DATA([matrix-data.sps], [dnl
1158 MATRIX DATA VARIABLES=var01 varname_.
1159 MATRIX DATA VARIABLES=v v v.
1160 MATRIX DATA VARIABLES=rowtype_ v1 v2 v3/SPLIT=rowtype_.
1161 MATRIX DATA VARIABLES=rowtype_ v1 v2 v3/FACTORS=rowtype_.
1162 MATRIX DATA VARIABLES=rowtype_ s1 v1 v2 v3/SPLIT=v1/FACTORS=v1.
1163
1164 MATRIX DATA VARIABLES=v1 v2 v3/FORMAT=FULL NODIAGONAL.
1165 MATRIX DATA VARIABLES=v1 v2 v3/FACTORS=v1.
1166 MATRIX DATA VARIABLES=v1 v2 v3.
1167 BEGIN DATA.
1168 END DATA.
1169 MATRIX DATA VARIABLES=v1/FACTORS=v1.
1170 MATRIX DATA VARIABLES=v1 v2 v3 ROWTYPE_.
1171 MATRIX DATA VARIABLES=v1 v2 v3/CONTENTS=N/N=5.
1172 MATRIX DATA VARIABLES=v1/CONTENTS=XYZZY.
1173 MATRIX DATA VARIABLES=v1/CONTENTS=(.
1174 MATRIX DATA VARIABLES=v1/CONTENTS=(CORR.
1175 MATRIX DATA VARIABLES=v1/CONTENTS=).
1176 MATRIX DATA.
1177 MATRIX DATA VARIABLES=v*.
1178 MATRIX DATA VARIABLES=v/N=-1.
1179 MATRIX DATA VARIABLES=v/FORMAT=XYZZY.
1180 MATRIX DATA VARIABLES=v/FILE=123.
1181 MATRIX DATA VARIABLES=v/SPLIT=123.
1182 MATRIX DATA VARIABLES=v/CELLS=-1.
1183 MATRIX DATA VARIABLES=v/XYZZY.
1184 ])
1185 AT_CHECK([pspp matrix-data.sps -O format=csv], [1], [dnl
1186 matrix-data.sps:1: error: MATRIX DATA: VARIABLES may not include VARNAME_.
1187
1188 matrix-data.sps:2: error: MATRIX DATA: Variable v appears twice in variable list.
1189
1190 matrix-data.sps:3: error: MATRIX DATA: ROWTYPE_ is not allowed on SPLIT or FACTORS.
1191
1192 matrix-data.sps:4: error: MATRIX DATA: ROWTYPE_ is not allowed on SPLIT or FACTORS.
1193
1194 matrix-data.sps:5: error: MATRIX DATA: v1 may not appear on both SPLIT and FACTORS.
1195
1196 matrix-data.sps:7: error: MATRIX DATA: FORMAT=FULL and FORMAT=NODIAGONAL are mutually exclusive.
1197
1198 matrix-data.sps:8: error: MATRIX DATA: CELLS is required when factor variables are specified and VARIABLES does not include ROWTYPE_.
1199
1200 matrix-data.sps:9: warning: MATRIX DATA: CONTENTS was not specified and VARIABLES does not include ROWTYPE_.  Assuming CONTENTS=CORR.
1201
1202 matrix-data.sps:12: error: MATRIX DATA: CELLS is required when factor variables are specified and VARIABLES does not include ROWTYPE_.
1203
1204 matrix-data.sps:13: error: MATRIX DATA: VARIABLES includes ROWTYPE_ but the continuous variables are not the last ones on VARIABLES.
1205
1206 matrix-data.sps:14: error: MATRIX DATA: Cannot specify N on CONTENTS along with the N subcommand.
1207
1208 matrix-data.sps:15.35-15.39: error: MATRIX DATA: Syntax error at `XYZZY': Row type keyword expected.
1209
1210 matrix-data.sps:16.36: error: MATRIX DATA: Syntax error at end of command: Row type keyword expected.
1211
1212 matrix-data.sps:17.40: error: MATRIX DATA: Syntax error at end of command: Row type keyword expected.
1213
1214 matrix-data.sps:18.35: error: MATRIX DATA: Syntax error at `)': Row type keyword expected.
1215
1216 matrix-data.sps:19.12: error: MATRIX DATA: Syntax error at end of command: expecting VARIABLES.
1217
1218 matrix-data.sps:20.24: error: MATRIX DATA: Syntax error at `*': expecting `/'.
1219
1220 matrix-data.sps:21.27-21.28: error: MATRIX DATA: Syntax error at `-1': Expected non-negative integer for N.
1221
1222 matrix-data.sps:22.32-22.36: error: MATRIX DATA: Syntax error at `XYZZY'.
1223
1224 matrix-data.sps:23.30-23.32: error: MATRIX DATA: Syntax error at `123': expecting a file name or handle name.
1225
1226 matrix-data.sps:24.31-24.33: error: MATRIX DATA: Syntax error at `123': expecting variable name.
1227
1228 matrix-data.sps:25.31-25.32: error: MATRIX DATA: Syntax error at `-1': Expected non-negative integer for CELLS.
1229
1230 matrix-data.sps:26.25-26.29: error: MATRIX DATA: Syntax error at `XYZZY'.
1231 ])
1232 AT_CLEANUP
1233
1234 dnl I don't know what lunatic thought this was OK, but we strive to be
1235 dnl compatible.
1236 AT_SETUP([MATRIX DATA - plus and minus as delimiters])
1237 AT_DATA([matrix-data.sps], [dnl
1238 MATRIX DATA
1239     VARIABLES=ROWTYPE_ var01 TO var08.
1240 BEGIN DATA.
1241 MEAN+24.3+5.4+69.7+20.1+13.4+2.7+27.9+3.7
1242 SD +5.7+1.5+23.5+5.8+2.8+4.5+5.4+1.5
1243 N+92+92+92+92+92+92+92+92
1244 CORR+1.00
1245 CORR+.18+1.00
1246 CORR-.22e+0-.17+1.00
1247 CORR+.36d-0+.31-.14+1.00
1248 CORR+.27+.16-.12+.22+1.00
1249 CORR+.33+.15-.17+.24+.21+1.00
1250 CORR+.50+.29-.20+.32+.12+.38+1.00
1251 CORR+.17+.29-.05+.20+.27+.20+.04+1.00
1252 END DATA.
1253 FORMATS var01 TO var08(F5.2).
1254 LIST.
1255 ])
1256
1257 AT_CHECK([pspp -O format=csv matrix-data.sps], [0], [dnl
1258 Table: Data List
1259 ROWTYPE_,VARNAME_,var01,var02,var03,var04,var05,var06,var07,var08
1260 MEAN,,24.30,5.40,69.70,20.10,13.40,2.70,27.90,3.70
1261 STDDEV,,5.70,1.50,23.50,5.80,2.80,4.50,5.40,1.50
1262 N,,92.00,92.00,92.00,92.00,92.00,92.00,92.00,92.00
1263 CORR,var01,1.00,.18,-.22,.36,.27,.33,.50,.17
1264 CORR,var02,.18,1.00,-.17,.31,.16,.15,.29,.29
1265 CORR,var03,-.22,-.17,1.00,-.14,-.12,-.17,-.20,-.05
1266 CORR,var04,.36,.31,-.14,1.00,.22,.24,.32,.20
1267 CORR,var05,.27,.16,-.12,.22,1.00,.21,.12,.27
1268 CORR,var06,.33,.15,-.17,.24,.21,1.00,.38,.20
1269 CORR,var07,.50,.29,-.20,.32,.12,.38,1.00,.04
1270 CORR,var08,.17,.29,-.05,.20,.27,.20,.04,1.00
1271 ])
1272 AT_CLEANUP