filename women 'wfactor.dat';
options center linesize=78 pagesize=65 nodate;
data;
infile women;
input HELPFUL 4 RELIANT 5 DEFBEL 6 YIELDING 7 CHEERFUL 8 
      INDPT 9 ATHLET 10 SHY 11 ASSERT 12 STRPERS 13 FORCEFUL 14 
      AFFECT 15 FLATTER 16 LOYAL 17 ANALYT 18 FEMININE 19 SYMPATHY 20 
      MOODY 21 SENSITIV 22 UNDSTAND 23 COMPASS 24 LEADERAB 25 
      SOOTHE 26 RISK 27 DECIDE 28 SELFSUFF 29 CONSCIEN 30 DOMINANT 31
      MASCULIN 32 STAND 33 HAPPY 34 SOFTSPOK 35 WARM 36 TRUTHFUL 37
      TENDER 38 GULLIBLE 39 LEADACT 40 CHILDLIK 41 INDIVID 42 
      FOULLANG 43 LOVECHIL 44 COMPETE 45 AMBITIOU 46 GENTLE 47;
proc factor method=prinit rotate=promax nfactor=4;
run;