* Encoding: UTF-8.
* SPSS Syntax for EFA and PCA Seminar 07/26/2018. 
* You need to download the dataset into your C:\temp folder for this to work in a PC. 

GET
  FILE='C:\temp\SAQ8.sav'.

*Pearson Correlation of the SAQ-8.
CORRELATIONS
  /VARIABLES=q01 q02 q03 q04 q05 q06 q07 q08
  /PRINT=TWOTAIL NOSIG
  /MISSING=PAIRWISE.

*Running a PCA with 8 components in SPSS. 
FACTOR
  /VARIABLES q01 q02 q03 q04 q05 q06 q07 q08
  /MISSING LISTWISE 
  /ANALYSIS q01 q02 q03 q04 q05 q06 q07 q08
  /PRINT INITIAL EXTRACTION
  /PLOT EIGEN
  /CRITERIA FACTORS(8) ITERATE(100)
  /EXTRACTION PC
  /ROTATION NOROTATE
  /METHOD=CORRELATION.

*Running a PCA with 2 components in SPSS. 
FACTOR
  /VARIABLES q01 q02 q03 q04 q05 q06 q07 q08
  /MISSING LISTWISE 
  /ANALYSIS q01 q02 q03 q04 q05 q06 q07 q08
  /PRINT INITIAL EXTRACTION
  /PLOT EIGEN
  /CRITERIA FACTORS(2) ITERATE(100)
  /EXTRACTION PC
  /ROTATION NOROTATE
  /METHOD=CORRELATION.

*Running a Common Factor Analysis with 2 factors in SPSS.
FACTOR
  /VARIABLES q01 q02 q03 q04 q05 q06 q07 q08
  /MISSING LISTWISE 
  /ANALYSIS q01 q02 q03 q04 q05 q06 q07 q08
  /PRINT UNIVARIATE INITIAL CORRELATION SIG DET KMO INV REPR AIC EXTRACTION
  /PLOT ROTATION
  /CRITERIA FACTORS(2) ITERATE(100)
  /EXTRACTION PAF
  /ROTATION NOROTATE
  /METHOD=CORRELATION.

*Squared correlation coefficient. 
REGRESSION
  /MISSING LISTWISE
  /STATISTICS COEFF OUTS R ANOVA
  /CRITERIA=PIN(.05) POUT(.10)
  /NOORIGIN 
  /DEPENDENT q01
  /METHOD=ENTER q02 q03 q04 q05 q06 q07 q08.

*Two factor EFA with maximum likelihood, no rotation.
FACTOR
  /VARIABLES q01 q02 q03 q04 q05 q06 q07 q08
  /MISSING LISTWISE 
  /ANALYSIS q01 q02 q03 q04 q05 q06 q07 q08
  /PRINT INITIAL EXTRACTION
  /PLOT EIGEN
  /CRITERIA FACTORS(8) ITERATE(100)
  /EXTRACTION ML
  /ROTATION NOROTATE.

*Two factor Principal Axis Factoring EFA with Varimax rotation.
FACTOR
  /VARIABLES q01 q02 q03 q04 q05 q06 q07 q08
  /MISSING LISTWISE 
  /ANALYSIS q01 q02 q03 q04 q05 q06 q07 q08
  /PRINT INITIAL EXTRACTION ROTATION
  /PLOT ROTATION
  /CRITERIA FACTORS(2) ITERATE(100)
  /EXTRACTION PAF
  /CRITERIA ITERATE(100)
  /ROTATION VARIMAX
  /METHOD=CORRELATION.

*Two factor Principal Axis Factoring EFA with Varimax rotation.
*Turn off Kaiser normalization.
FACTOR
  /VARIABLES q01 q02 q03 q04 q05 q06 q07 q08
  /MISSING LISTWISE 
  /ANALYSIS q01 q02 q03 q04 q05 q06 q07 q08
  /PRINT INITIAL EXTRACTION ROTATION
  /PLOT ROTATION
  /CRITERIA FACTORS(2) ITERATE(100)
  /EXTRACTION PAF
  /CRITERIA ITERATE(100) NOKAISER
  /ROTATION VARIMAX
  /METHOD=CORRELATION.

*Two factor Principal Axis Factoring EFA with Quartimax rotation.
FACTOR
  /VARIABLES q01 q02 q03 q04 q05 q06 q07 q08
  /MISSING LISTWISE 
  /ANALYSIS q01 q02 q03 q04 q05 q06 q07 q08
  /PRINT INITIAL EXTRACTION ROTATION
  /PLOT ROTATION
  /CRITERIA FACTORS(2) ITERATE(100)
  /EXTRACTION PAF
  /CRITERIA ITERATE(100)
  /ROTATION QUARTIMAX
  /METHOD=CORRELATION.

*Two Factor Principal Axis Factoring EFA with Quartimin, Oblimin rotation (Delta = 0).
FACTOR
  /VARIABLES q01 q02 q03 q04 q05 q06 q07 q08
  /MISSING LISTWISE 
  /ANALYSIS q01 q02 q03 q04 q05 q06 q07 q08
  /PRINT INITIAL EXTRACTION ROTATION
  /PLOT ROTATION
  /CRITERIA FACTORS(2) ITERATE(100)
  /EXTRACTION PAF
  /CRITERIA ITERATE(100) DELTA(-9999)
  /ROTATION OBLIMIN
  /METHOD=CORRELATION.

*Generating factor scores for Quartimin, Oblimin rotation (Delta = 0).
FACTOR
  /VARIABLES q01 q02 q03 q04 q05 q06 q07 q08
  /MISSING LISTWISE 
  /ANALYSIS q01 q02 q03 q04 q05 q06 q07 q08
  /PRINT FSCORE
  /CRITERIA FACTORS(2) ITERATE(100)
  /EXTRACTION PAF
  /CRITERIA ITERATE(100) DELTA(0) 
  /ROTATION OBLIMIN
  /SAVE REG(ALL)
  /METHOD=CORRELATION.

*Get raw covariance of factor scores Quartimin, Oblimin rotation (Delta = 0).
CORRELATIONS
  /VARIABLES=FAC1_1 FAC2_1
  /PRINT=TWOTAIL NOSIG
  /STATISTICS XPROD
  /MISSING=PAIRWISE.