Introduction to Factor Analysis

Printed overhead transparencies

Input and output from Mathematica:

In[1]:=
Eigenvalues[{{1,.74,.24,.24},{.74,1,.24,.24},
{.24,.24,1,.74},{.24,.24,.74,1}}]

Out[1]=
{2.22, 1.26, 0.26, 0.26}

In[2]:=
Eigenvectors[{{1,.74,.24,.24},{.74,1,.24,.24},
{.24,.24,1,.74},{.24,.24,.74,1}}]

Out[2]=
{{-0.5, -0.5, -0.5, -0.5}, {0.5, 0.5, -0.5, -0.5}, 
 
                                   -17             -17
  {-0.707107, 0.707107, -1.28765 10   , -1.28765 10   }, 
 
                 -17
  {0., -6.8185 10   , -0.707107, 0.707107}}