#s 9-1
> pc.result <- principal(five.data, nfactors=2, rotate="none")
> print(pc.result$loadings, digits=3, cutoff=0)

Loadings:
     PC1    PC2   
  0.710  0.441
Љ  0.601  0.364
p  0.574  0.412
w  0.729 -0.534
  0.744 -0.509

                 PC1   PC2
SS loadings    2.279 1.041
Proportion Var 0.456 0.208
Cumulative Var 0.456 0.664
