/*  Example 13.3.3  */
FILENAME SEISHU 'T7-1_SEISHU.dat';
DATA WINE;
  INFILE SEISHU;
  INPUT Y1 Y2 X1 X2 X3 X4 X5 X6 X7 X8;

PROC FACTOR METHOD=PRINIT PRIORS=SMC HEYWOOD MAXITER=100;
run;