data sm (type=CORR); input _type_ $ _name_ $ O1 O2 O3 O4; cards; n . 300 . . . corr O1 1.00 . . . corr O2 0.70 1.00 . . corr O3 0.65 0.66 1.00 . corr O4 0.62 0.63 0.60 1.00 ; proc factor data=sm method=ml nfactors=1 scree; run;