options ls=72;
data boxer2;
input gender $ shorts $ count;
label gender = Gender of Respondent
      shorts = Preference of Respondent;
cards;
female boxers 130
female briefs  47
  male boxers  88
  male briefs 100


proc freq data = boxer2;
weight count;
tables gender*shorts / chisq;

run;