* Example for CatPCA, one dimension, disorder.

CATPCA VARIABLES=ff21a ff21b ff21c ff21d ff21e ff21f ff21g ff21h ff21i ff21j ff21k
  /ANALYSIS=ff21a(WEIGHT=1,LEVEL=SPORD,DEGREE=2,INKNOT=2) 
    ff21b(WEIGHT=1,LEVEL=SPORD,DEGREE=2,INKNOT=2) ff21c(WEIGHT=1,LEVEL=SPORD,DEGREE=2,INKNOT=2) 
    ff21d(WEIGHT=1,LEVEL=SPORD,DEGREE=2,INKNOT=2) ff21e(WEIGHT=1,LEVEL=SPORD,DEGREE=2,INKNOT=2) 
    ff21f(WEIGHT=1,LEVEL=SPORD,DEGREE=2,INKNOT=2) ff21g(WEIGHT=1,LEVEL=SPORD,DEGREE=2,INKNOT=2) 
    ff21h(WEIGHT=1,LEVEL=SPORD,DEGREE=2,INKNOT=2) ff21i(WEIGHT=1,LEVEL=SPORD,DEGREE=2,INKNOT=2) 
    ff21j(WEIGHT=1,LEVEL=SPORD,DEGREE=2,INKNOT=2) ff21k(WEIGHT=1,LEVEL=SPORD,DEGREE=2,INKNOT=2) 
  /MISSING=ff21a(PASSIVE,MODEIMPU) ff21b(PASSIVE,MODEIMPU) ff21c(PASSIVE,MODEIMPU) 
    ff21d(PASSIVE,MODEIMPU) ff21e(PASSIVE,MODEIMPU) ff21f(PASSIVE,MODEIMPU) ff21g(PASSIVE,MODEIMPU) 
    ff21h(PASSIVE,MODEIMPU) ff21i(PASSIVE,MODEIMPU) ff21j(PASSIVE,MODEIMPU) ff21k(PASSIVE,MODEIMPU) 
  /DIMENSION=1
  /NORMALIZATION=VPRINCIPAL
  /MAXITER=100
  /CRITITER=.00001
  /PRINT=CORR LOADING
  /PLOT=OBJECT(20) 
  /SAVE=OBJECT.

*Recoding variables for Table 4-6.

recode  disorder,devianz,dev_beo,kinder,leute,gewtol (lowest thru -1.960 = 1) (-1.956 thru -1.640 = 2)  (-1.639 thru -1.0 = 3)  (-0.999 thru 0.0 = 4) 
   (0.001 thru 0.999 = 5) (1.0 thru 1.639 = 6) (1.64 thru 1.959 = 7) (1.96 thru hi = 8) into 
  disordr1,devianr1,devbeor1,kinderr1,leuter1,gewtolr1.
fre var= disordr1 to leuter1.
recode disordr1,devianr1,devbeor1,kinderr1,leuter1,gewtolr1 (1,2=2) (3=3) (4=4) (5=5) (6=6) (7,8=7) 
  into disordr2,devianr2,devbeor2,kinderr2,leuter2,gewtolr2.
fre var=disordr2 to gewtolr2.

recode intgr (1 thru 12, 16,17 = 1) (13,21,22 =2) into intfal.
VARIABLE LABELS intfal 'fakers'.
VALUE LABELS intfal 1 'no' 2 'yes'.
fre var=intfal.


CROSSTABS tables=disordr2 to gewtolr2 by intfal
  /STATISTICS=CHISQ PHI
 /CELLS=count, column, row.
 
* data for figure 4-3.
save outfile='d:\sagefinal\syntax\chapter4-disorder.sav'
   /keep=disorder1,disorder2,intfal.

* fakers study, Cologne data collected by Blasius and Friedrichs.
save outfile='d:\sagefinal\syntax\chapter4-fakerdata.sav'
   /keep=ff21a to ff21k, disordr2 to gewtolr2,intgr.