GET FILE='C:\Documents and Settings\thiessen\My Documents\joerg\Sage\ESS2006.sav'.

* Feeling data.
count help=fltdpr flteeff slprl wrhpp fltlnl enjlf fltsd cldgng enrglot fltanx 
    flttrd absddng fltpcfl fltbrd fltrstm (1,2,3,4).

temporary.
select if  (help=15 and  cntry NE 'HU').
FRE fltdpr flteeff slprl wrhpp fltlnl enjlf fltsd cldgng enrglot fltanx 
    flttrd absddng fltpcfl fltbrd fltrstm.

* country-wise computation of MCA and CatPCA.

TEMPORARY . 
select if (help=15 and cntry='FI').
MULTIPLE CORRES VARIABLES=fltdpr flteeff slprl wrhpp fltlnl enjlf fltsd cldgng enrglot fltanx 
    flttrd absddng fltpcfl fltbrd fltrstm
  /ANALYSIS=fltdpr(WEIGHT=1) flteeff(WEIGHT=1) slprl(WEIGHT=1) wrhpp(WEIGHT=1) fltlnl(WEIGHT=1) 
    enjlf(WEIGHT=1) fltsd(WEIGHT=1) cldgng(WEIGHT=1) enrglot(WEIGHT=1) fltanx(WEIGHT=1) 
    flttrd(WEIGHT=1) absddng(WEIGHT=1) fltpcfl(WEIGHT=1) fltbrd(WEIGHT=1) fltrstm(WEIGHT=1) 
  /MISSING=fltdpr(LISTWISE) flteeff(LISTWISE) slprl(LISTWISE) wrhpp(LISTWISE) fltlnl(LISTWISE) 
    enjlf(LISTWISE) fltsd(LISTWISE) cldgng(LISTWISE) enrglot(LISTWISE) fltanx(LISTWISE) 
    flttrd(LISTWISE) absddng(LISTWISE) fltpcfl(LISTWISE) fltbrd(LISTWISE) fltrstm(LISTWISE) 
  /DIMENSION=2
  /NORMALIZATION=VPRINCIPAL
  /MAXITER=100
  /CRITITER=.00001
  /PRINT=DISCRIM QUANT(fltdpr flteeff slprl wrhpp fltlnl enjlf fltsd cldgng enrglot fltanx flttrd 
    absddng fltpcfl fltbrd fltrstm) 
  /PLOT=DISCRIM(20)
   /SAVE=OBJECT.

TEMPORARY . 
select if (help=15 and cntry='FI').

CATPCA VARIABLES=fltdpr flteeff slprl wrhpp fltlnl enjlf fltsd cldgng enrglot fltanx flttrd absddng 
    fltpcfl fltbrd fltrstm
  /ANALYSIS=fltdpr(WEIGHT=1,LEVEL=SPORD,DEGREE=2,INKNOT=2) 
    flteeff(WEIGHT=1,LEVEL=SPORD,DEGREE=2,INKNOT=2) slprl(WEIGHT=1,LEVEL=SPORD,DEGREE=2,INKNOT=2) 
    wrhpp(WEIGHT=1,LEVEL=SPORD,DEGREE=2,INKNOT=2) fltlnl(WEIGHT=1,LEVEL=SPORD,DEGREE=2,INKNOT=2) 
    enjlf(WEIGHT=1,LEVEL=SPORD,DEGREE=2,INKNOT=2) fltsd(WEIGHT=1,LEVEL=SPORD,DEGREE=2,INKNOT=2) 
    cldgng(WEIGHT=1,LEVEL=SPORD,DEGREE=2,INKNOT=2) enrglot(WEIGHT=1,LEVEL=SPORD,DEGREE=2,INKNOT=2) 
    fltanx(WEIGHT=1,LEVEL=SPORD,DEGREE=2,INKNOT=2) flttrd(WEIGHT=1,LEVEL=SPORD,DEGREE=2,INKNOT=2) 
    absddng(WEIGHT=1,LEVEL=SPORD,DEGREE=2,INKNOT=2) fltpcfl(WEIGHT=1,LEVEL=SPORD,DEGREE=2,INKNOT=2) 
    fltbrd(WEIGHT=1,LEVEL=SPORD,DEGREE=2,INKNOT=2) fltrstm(WEIGHT=1,LEVEL=SPORD,DEGREE=2,INKNOT=2) 
  /MISSING=fltdpr(LISTWISE) flteeff(LISTWISE) slprl(LISTWISE) wrhpp(LISTWISE) fltlnl(LISTWISE) 
    enjlf(LISTWISE) fltsd(LISTWISE) cldgng(LISTWISE) enrglot(LISTWISE) fltanx(LISTWISE) 
    flttrd(LISTWISE) absddng(LISTWISE) fltpcfl(LISTWISE) fltbrd(LISTWISE) fltrstm(LISTWISE)
  /DIMENSION=2
  /NORMALIZATION=VPRINCIPAL
  /MAXITER=100
  /CRITITER=.00001
  /PRINT=LOADING QUANT(fltdpr flteeff slprl wrhpp fltlnl enjlf fltsd cldgng enrglot fltanx flttrd 
    absddng fltpcfl fltbrd fltrstm)
  /PLOT=LOADING.
 

* One-dimensional CatPCA solution.

TEMPORARY . 
select if (help=15 and cntry='FI').

CATPCA VARIABLES=fltdpr flteeff slprl wrhpp fltlnl enjlf fltsd cldgng enrglot fltanx flttrd absddng 
    fltpcfl fltbrd fltrstm
  /ANALYSIS=fltdpr(WEIGHT=1,LEVEL=SPORD,DEGREE=2,INKNOT=2) 
    flteeff(WEIGHT=1,LEVEL=SPORD,DEGREE=2,INKNOT=2) slprl(WEIGHT=1,LEVEL=SPORD,DEGREE=2,INKNOT=2) 
    wrhpp(WEIGHT=1,LEVEL=SPORD,DEGREE=2,INKNOT=2) fltlnl(WEIGHT=1,LEVEL=SPORD,DEGREE=2,INKNOT=2) 
    enjlf(WEIGHT=1,LEVEL=SPORD,DEGREE=2,INKNOT=2) fltsd(WEIGHT=1,LEVEL=SPORD,DEGREE=2,INKNOT=2) 
    cldgng(WEIGHT=1,LEVEL=SPORD,DEGREE=2,INKNOT=2) enrglot(WEIGHT=1,LEVEL=SPORD,DEGREE=2,INKNOT=2) 
    fltanx(WEIGHT=1,LEVEL=SPORD,DEGREE=2,INKNOT=2) flttrd(WEIGHT=1,LEVEL=SPORD,DEGREE=2,INKNOT=2) 
    absddng(WEIGHT=1,LEVEL=SPORD,DEGREE=2,INKNOT=2) fltpcfl(WEIGHT=1,LEVEL=SPORD,DEGREE=2,INKNOT=2) 
    fltbrd(WEIGHT=1,LEVEL=SPORD,DEGREE=2,INKNOT=2) fltrstm(WEIGHT=1,LEVEL=SPORD,DEGREE=2,INKNOT=2) 
  /MISSING=fltdpr(LISTWISE) flteeff(LISTWISE) slprl(LISTWISE) wrhpp(LISTWISE) fltlnl(LISTWISE) 
    enjlf(LISTWISE) fltsd(LISTWISE) cldgng(LISTWISE) enrglot(LISTWISE) fltanx(LISTWISE) 
    flttrd(LISTWISE) absddng(LISTWISE) fltpcfl(LISTWISE) fltbrd(LISTWISE) fltrstm(LISTWISE)
  /DIMENSION=1
  /NORMALIZATION=VPRINCIPAL
  /MAXITER=100
  /CRITITER=.00001
  /PRINT=LOADING QUANT(fltdpr flteeff slprl wrhpp fltlnl enjlf fltsd cldgng enrglot fltanx flttrd 
    absddng fltpcfl fltbrd fltrstm)
  /PLOT=LOADING.



sort cases by cntry.
split file by cntry.
FACTOR
  /VARIABLES fltdpr flteeff slprl wrhpp fltlnl enjlf fltsd cldgng enrglot fltanx flttrd absddng 
    fltpcfl fltbrd fltrstm
  /MISSING LISTWISE 
  /ANALYSIS fltdpr flteeff slprl wrhpp fltlnl enjlf fltsd cldgng enrglot fltanx flttrd absddng 
    fltpcfl fltbrd fltrstm
 /PRINT INITIAL EXTRACTION ROTATION
  /CRITERIA FACTORS(2) ITERATE(25)
  /EXTRACTION PC
  /CRITERIA ITERATE(25)
  /ROTATION VARIMAX
  /METHOD=CORRELATION.

split file OFF.