DATA d1 (TYPE=CORR);
INPUT _TYPE_ $ _NAME_ $ inf sim ari voc com dig pic cod pia blo obj sym maz;
list ; datalines ;
N 	 -      900 900 900 900 900 900 900 900 900 900 900 900 900
CORR inf	1	.	.	. 	.	.	.	.	.	.	.	.	.
CORR sim	.66  1	.	.	.	.	.	.	.	.	.	.	.
CORR ari	.57	.55 1	.	.	.	.	.	.	.	.	.	.
CORR voc	.70	.69	.54 1	.	.	.	.	.	.	.	.	.
CORR com	.56	.59	.47	.64 1	.	.	.	.	.	.	.	.
CORR dig	.34	.34	.43	.35	.29 1	.	.	.	.	.	.	.
CORR pic	.47	.45	.39	.45	.38	.25 1	.	.	.	.	.	.
CORR cod	.21	.20	.27	.26	.25	.23	.18 1	.	.	.	.	.
CORR pia    .40	.39	.35	.40	.35	.20	.37	.28 1	.	.	.	.
CORR blo	.48	.49	.52	.46	.40	.32	.52	.27	.41 1	.	.	.
CORR obj	.41	.42	.39	.41	.34	.26	.49	.24	.37	.61 1	.	.
CORR sym	.35	.35	.41	.35	.34	.28	.33	.53	.36	.45	.38 1	.
CORR maz	.18	.18	.22	.17	.17	.14	.24	.15	.23	.31	.29	.24	1
;
run ;
PROC FACTOR DATA =D1 METHOD=P PRIORS=SMC RES  SCREE CORR;
RUN ;