* Creating random data using a file with 100,000 cases.

SET
  SEED=RANDOM.
SET
  RNG=MT
  MTINDEX=RANDOM.

SET
  RNG=MT
  MTINDEX=RANDOM.
compute a1=rv.uniform(1,1060).
compute a2=rv.uniform(1,1060).
compute a3=rv.uniform(1,1060).
compute a4=rv.uniform(1,1060).
compute a5=rv.uniform(1,1060).
compute a6=rv.uniform(1,1060).
compute a7=rv.uniform(1,1060).
compute a8=rv.uniform(1,1060).
compute a9=rv.uniform(1,1060).
execute.
do repeat i=a1 to a9.
compute i=trunc(i).
end repeat.
execute.

*Recoding a political and efficacy data set with 1060 according to the marginals.

recode a1 (1 thru 230=1) (231 thru 674=2) (675 thru 891=3) (892 thru 1044=4) (1045 thru 1060=5).
recode a2 (1 thru 200=1) (201 thru 470=2) (471 thru 791=3) (792 thru 1000=4) (1001 thru 1060=5).
recode a3 (1 thru 130=1) (131 thru 474=2) (475 thru 691=3) (692 thru 944=4) (945 thru 1060=5).
recode a4 (1 thru 212=1) (213 thru 504=2) (505 thru 821=3) (822 thru 984=4) (985 thru 1060=5).
recode a5 (1 thru 160=1) (161 thru 234=2) (235 thru 777=3) (778 thru 900=4) (901 thru 1060=5).
recode a6 (1 thru 111=1) (112 thru 444=2) (445 thru 666=3) (667 thru 888=4) (889 thru 1060=5).
recode a7 (1 thru 177=1) (178 thru 333=2) (334 thru 600=3) (601 thru 866=4) (867 thru 1060=5).
recode a8 (1 thru 132=1) (133 thru 456=2) (457 thru 678=3) (679 thru 876=4) (877 thru 1060=5).
recode a9 (1 thru 212=1) (213 thru 400=2) (401 thru 555=3) (556 thru 789=4) (790 thru 1060=5).
execute.

*running CatPCA on randdom data.

CATPCA
  VARIABLES=a1 a2 a3 a4 a5 a6 a7 a8 a9
  /ANALYSIS=a1(WEIGHT=1,LEVEL=SPORD,DEGREE=2,INKNOT=2) a2(WEIGHT=1
 ,LEVEL=SPORD,DEGREE=2,INKNOT=2) a3(WEIGHT=1,LEVEL=SPORD,DEGREE=2,INKNOT=2)
  a4(WEIGHT=1,LEVEL=SPORD,DEGREE=2,INKNOT=2) a5(WEIGHT=1,LEVEL=SPORD,DEGREE=2
 ,INKNOT=2) a6(WEIGHT=1,LEVEL=SPORD,DEGREE=2,INKNOT=2) a7(WEIGHT=1,LEVEL=SPORD
 ,DEGREE=2,INKNOT=2) a8(WEIGHT=1,LEVEL=SPORD,DEGREE=2,INKNOT=2) a9(WEIGHT=1
 ,LEVEL=SPORD,DEGREE=2,INKNOT=2)
  /MISSING=a1(PASSIVE,MODEIMPU) a2(PASSIVE,MODEIMPU) a3(PASSIVE,MODEIMPU)
  a4(PASSIVE,MODEIMPU) a5(PASSIVE,MODEIMPU) a6(PASSIVE,MODEIMPU) a7(PASSIVE
 ,MODEIMPU) a8(PASSIVE,MODEIMPU) a9(PASSIVE,MODEIMPU)
  /DIMENSION=2
  /NORMALIZATION=VPRINCIPAL
  /MAXITER=100
  /CRITITER=.00001
  /PRINT=CORR LOADING OCORR QUANT( a1 a2 a3 a4 a5 a6 a7 a8 a9 )
  /PLOT=LOADING (20) .