GET FILE='D:\Data\CNES84.SAV'.

freq var029 to var045 var346 to var354.
miss val var038 to var045 (8) var346 to var354(0).

* computing moderator variable.

Temporary.
recode var029 to var045 (1=1) (2=2) (3=4) (4=5) (7=3).
select if (var028=2 and help=9).

CATPCA
  VARIABLES=VAR038 VAR039 VAR040 VAR041 VAR042 VAR043 VAR044 VAR045
  /ANALYSIS=VAR038(WEIGHT=1,LEVEL=SPORD,DEGREE=2,INKNOT=2) VAR039(WEIGHT=1
 ,LEVEL=SPORD,DEGREE=2,INKNOT=2) VAR040(WEIGHT=1,LEVEL=SPORD,DEGREE=2
 ,INKNOT=2) VAR041(WEIGHT=1,LEVEL=SPORD,DEGREE=2,INKNOT=2) VAR042(WEIGHT=1
 ,LEVEL=SPORD,DEGREE=2,INKNOT=2) VAR043(WEIGHT=1,LEVEL=SPORD,DEGREE=2
 ,INKNOT=2) VAR044(WEIGHT=1,LEVEL=SPORD,DEGREE=2,INKNOT=2) VAR045(WEIGHT=1
 ,LEVEL=SPORD,DEGREE=2,INKNOT=2)
  /MISSING=VAR038(PASSIVE,MODEIMPU) VAR039(PASSIVE,MODEIMPU) VAR040(PASSIVE
 ,MODEIMPU) VAR041(PASSIVE,MODEIMPU) VAR042(PASSIVE,MODEIMPU) VAR043(PASSIVE
 ,MODEIMPU) VAR044(PASSIVE,MODEIMPU) VAR045(PASSIVE,MODEIMPU)
  /DIMENSION=1
  /NORMALIZATION=VPRINCIPAL
  /MAXITER=100
  /CRITITER=.00001
  /PRINT=LOADING QUANT( VAR038 VAR039 VAR040 VAR041 VAR042 VAR043 VAR044
  VAR045 )
  /PLOT=LOADING (20)
  /SAVE=OBJECT .

rename var (OBSCO1_1=polint).
var lab
  polint "Latent political interest scale constructed from CatPCA".
desc polint.


compute polint=(polint+.0003)/1.00084.
recode polint (lo thru 0=1)(0 thru hi=0) into polint2.
*recode polint (lo thru -.5=2)(-.5 thru 0=1)(0 thru hi=0) into polint3.
means polint by var038 to var040 
   /sta=anova.

fre polint2.


* various CatPCA for computing the dirty data index.
 
count help=var029 to var037 (1,2,3,4,7).
Temporary.
recode var029 to var037 (1=1) (2=2) (3=4) (4=5) (7=3).
select if (help=9).

CATPCA
  VARIABLES=var029 var030 var031 var032 var033 var034 var035 var036 var037
  /ANALYSIS=var029(WEIGHT=1,LEVEL=SPORD,DEGREE=2,INKNOT=2) var030(WEIGHT=1
 ,LEVEL=SPORD,DEGREE=2,INKNOT=2) var031(WEIGHT=1,LEVEL=SPORD,DEGREE=2
 ,INKNOT=2) var032(WEIGHT=1,LEVEL=SPORD,DEGREE=2,INKNOT=2) var033(WEIGHT=1
 ,LEVEL=SPORD,DEGREE=2,INKNOT=2) var034(WEIGHT=1,LEVEL=SPORD,DEGREE=2
 ,INKNOT=2) var035(WEIGHT=1,LEVEL=SPORD,DEGREE=2,INKNOT=2) var036(WEIGHT=1
 ,LEVEL=SPORD,DEGREE=2,INKNOT=2) var037(WEIGHT=1,LEVEL=SPORD,DEGREE=2
 ,INKNOT=2)
  /MISSING=var029(LISTWISE) var030(LISTWISE) var031(LISTWISE)
  var032(LISTWISE) var033(LISTWISE) var034(LISTWISE) var035(LISTWISE)
  var036(LISTWISE) var037(LISTWISE)
  /DIMENSION=2
  /NORMALIZATION=VPRINCIPAL
  /MAXITER=100
  /CRITITER=.00001
  /PRINT=CORR LOADING QUANT( var029 var030 var031 var032 var033 var034 var035
  var036 var037 )
  /PLOT=LOADING (20) .

count help2=var346 to var354 (1,2,3,4,7).

Temporary.
recode var346 to var354 (1=1) (2=2) (3=4) (4=5) (7=3).
select if (var345=2 and help2=9).

CATPCA
  VARIABLES=var346 var347 var348 var349 var350 var351 var352 var353 var354
  /ANALYSIS=var346(WEIGHT=1,LEVEL=SPORD,DEGREE=2,INKNOT=2) var347(WEIGHT=1
 ,LEVEL=SPORD,DEGREE=2,INKNOT=2) var348(WEIGHT=1,LEVEL=SPORD,DEGREE=2
 ,INKNOT=2) var349(WEIGHT=1,LEVEL=SPORD,DEGREE=2,INKNOT=2) var350(WEIGHT=1
 ,LEVEL=SPORD,DEGREE=2,INKNOT=2) var351(WEIGHT=1,LEVEL=SPORD,DEGREE=2
 ,INKNOT=2) var352(WEIGHT=1,LEVEL=SPORD,DEGREE=2,INKNOT=2) var353(WEIGHT=1
 ,LEVEL=SPORD,DEGREE=2,INKNOT=2) var354(WEIGHT=1,LEVEL=SPORD,DEGREE=2
 ,INKNOT=2)
  /MISSING=var346(LISTWISE) var347(LISTWISE) var348(LISTWISE)
  var349(LISTWISE) var350(LISTWISE) var351(LISTWISE) var352(LISTWISE)
  var353(LISTWISE) var354(LISTWISE)
  /DIMENSION=2
  /NORMALIZATION=VPRINCIPAL
  /MAXITER=100
  /CRITITER=.00001
  /PRINT=CORR LOADING QUANT( var346 var347 var348 var349 var350 var351 var352
  var353 var354 )
  /PLOT=LOADING (20) .



***********************Item order - polarity sequence effect**********************.


count help1=var029 to var037 (1,2,3,4,7).
count help2=var346 to var354 (1,2,3,4,7).

TEMPORARY. 
select if (help1=9 and var028=1).
MULTIPLE CORRES
  VARIABLES=var029 var030 var031 var032 var033 var034 var035 var036 var037
  /ANALYSIS=var029(WEIGHT=1) var030(WEIGHT=1) var031(WEIGHT=1)
  var032(WEIGHT=1) var033(WEIGHT=1) var034(WEIGHT=1) var035(WEIGHT=1)
  var036(WEIGHT=1) var037(WEIGHT=1)
  /MISSING=var029(PASSIVE,MODEIMPU) var030(PASSIVE,MODEIMPU) var031(PASSIVE
 ,MODEIMPU) var032(PASSIVE,MODEIMPU) var033(PASSIVE,MODEIMPU) var034(PASSIVE
 ,MODEIMPU) var035(PASSIVE,MODEIMPU) var036(PASSIVE,MODEIMPU) var037(PASSIVE
 ,MODEIMPU)
  /DIMENSION=2
  /NORMALIZATION=VPRINCIPAL
  /MAXITER=100
  /CRITITER=.00001
  /PRINT=DISCRIM QUANT( var029 var030 var031 var032 var033 var034 var035
  var036 var037 )
  /PLOT=NONE.


TEMPORARY. 
select if (help1=9 and var028=2).
MULTIPLE CORRES
  VARIABLES=var029 var030 var031 var032 var033 var034 var035 var036 var037
  /ANALYSIS=var029(WEIGHT=1) var030(WEIGHT=1) var031(WEIGHT=1)
  var032(WEIGHT=1) var033(WEIGHT=1) var034(WEIGHT=1) var035(WEIGHT=1)
  var036(WEIGHT=1) var037(WEIGHT=1)
  /MISSING=var029(PASSIVE,MODEIMPU) var030(PASSIVE,MODEIMPU) var031(PASSIVE
 ,MODEIMPU) var032(PASSIVE,MODEIMPU) var033(PASSIVE,MODEIMPU) var034(PASSIVE
 ,MODEIMPU) var035(PASSIVE,MODEIMPU) var036(PASSIVE,MODEIMPU) var037(PASSIVE
 ,MODEIMPU)
  /DIMENSION=2
  /NORMALIZATION=VPRINCIPAL
  /MAXITER=100
  /CRITITER=.00001
  /PRINT=DISCRIM QUANT( var029 var030 var031 var032 var033 var034 var035
  var036 var037 )
  /PLOT=NONE.