title 'simple10 models slide 4-15'.

title '乱数データから変数を作る'.

compute x1=0.6**2.

compute w1=sqrt(x1).
compute w2=sqrt(1-x1).
compute v1=w1*f1+w2*e1.
compute v2=w1*f1+w2*e2.
compute v3=w1*f1+w2*e3.
compute v4=w1*f1+w2*e4.
compute v5=w1*f1+w2*e5.

compute x1=0.5**2.

compute w1=sqrt(x1).
compute w2=sqrt(1-x1).
compute v6=w1*f2+w2*e6.
compute v7=w1*f2+w2*e7.
compute v8=w1*f2+w2*e8.
compute v9=w1*f2+w2*e9.
compute v10=w1*f2+w2*e10.

*因子分析，主成分分析.

title 'slide 5-9 反復主因子法　５＋５変数'.
factor
  /VARIABLES v1 to v10 / ANALYSIS v1 to v10 
  /PRINT correlation INITIAL EXTRACTION ROTATION
  /plot eigen
  /CRITERIA ITERATE(50)
  /EXTRACTION paf
  /CRITERIA ITERATE(50)
  /ROTATION VARIMAX .

title 'slide 10-11 主成分分析　５＋５変数'.
factor
  /VARIABLES v1 to v10 / ANALYSIS v1 to v10 
  /PRINT correlation INITIAL EXTRACTION ROTATION
  /CRITERIA ITERATE(50)
  /EXTRACTION pc
  /CRITERIA ITERATE(50)
  /ROTATION VARIMAX .

title 'slide 13-14 主成分分析　５＋３変数'.
factor
  /VARIABLES v1 to v10 / ANALYSIS v1 to v8 
  /PRINT correlation INITIAL EXTRACTION ROTATION
  /plot eigen
  /CRITERIA ITERATE(50)
  /EXTRACTION pc
  /CRITERIA ITERATE(50)
  /ROTATION VARIMAX .