/* MARK 9650 Project 1: Factor Analysis on Track data				 */
/* WITH SELECTED OUTPUT												 */

OPTIONS PS=52;
OPTIONS LS=78;
OPTIONS NODATE;
OPTIONS PAGENO=1;

DATA RECORDS;
   INFILE 'A:/TRACK.PRN';
   INPUT ONE_HUN TWO_HUN FOUR_HUN EIGHT_HUN FIFTEEN_HUN FIVE_THOU
													TEN_THOU MARATHON;
RUN;

PROC PRINT DATA=RECORDS;
   TITLE 'Track Records Data';
RUN;
 
PROC CORR;
   TITLE 'Correlations of all eight variables';
   VAR ONE_HUN TWO_HUN FOUR_HUN EIGHT_HUN FIFTEEN_HUN FIVE_THOU
													TEN_THOU MARATHON;
RUN;

PROC FACTOR CORR MSA SCREE MINEIGEN = .8 ROTATE = VARIMAX;
   TITLE 'Factor Analysis on all eight variables';
   VAR ONE_HUN TWO_HUN FOUR_HUN EIGHT_HUN FIFTEEN_HUN FIVE_THOU
													TEN_THOU MARATHON;
RUN;

PROC FACTOR CORR MSA SCREE MINEIGEN = .8 ROTATE = PROMAX;
   TITLE 'Factor Analysis on all eight variables with Oblique Rotation';
   VAR ONE_HUN TWO_HUN FOUR_HUN EIGHT_HUN FIFTEEN_HUN FIVE_THOU
													TEN_THOU MARATHON;
RUN;