/* This study records the greatest number of drinks teenagers  */
/* consumer in one night over the last 30 days, and the freqency */
/* with which they drink   */
PROC FORMAT;
VALUE AMTFMT 1='0 to 1 drinks'
              2='2 to 3 drinks'
              3='4 or more';
VALUE FREQFMT 1='Rarely'
             2='Sometimes'
             3='Frequently';
VALUE RFMT 1='Less than 4'
             2='4 or more';
VALUE CFMT 1='Infrequent'
             2='Frequent';
DATA BINGE;
INPUT AMT FREQ COUNT;
FORMAT FREQ FREQFMT. AMT AMTFMT.;
CARDS;
1 1 150 
1 2 140 
1 3 10 
2 1 40 
2 2 250 
2 3 110
3 1 10 
3 2 210
3 3 80
DATA BINGEA; SET BINGE;
X11=2; Y11=2; X21=2; Y21=2; X12=2; Y12=2; X22=2; Y22=2; OUTPUT;
DATA BINGEB; SET BINGEA;
IF AMT=1 & FREQ=1 THEN DO;
X11=1; Y11=1; X21=1; Y21=1; X12=1; Y12=1; X22=1; Y22=1; END;
ELSE IF AMT=1 & FREQ=2 THEN DO;
X11=1; Y12=1; X12=1; X21=1; X22=1; Y22=1; END;
ELSE IF AMT=2 & FREQ=1 THEN DO;
Y11=1; X21=1; Y21=1; Y12=1; X22=1; Y22=1; END;
ELSE IF AMT=2 & FREQ=2 THEN DO;
X21=1; Y12=1; X22=1; Y22=1; END;
ELSE IF AMT=1 & FREQ=3 THEN DO;
X11=.; Y11=.; X21=.; Y21=.; X12=1; X22=1; END;
ELSE IF AMT=2 & FREQ=3 THEN DO;
X11=.; Y11=.; X21=.; Y21=.; X22=1; END;
ELSE IF AMT=3 & FREQ=1 THEN DO;
X11=.; Y11=.; Y21=1; X12=.; Y12=.; Y22=1; END;
ELSE IF AMT=3 & FREQ=2 THEN DO;
X11=.; Y11=.; X12=.; Y12=.; Y22=1; END;
ELSE DO;
X11=.; Y11=.; X21=.; Y21=.; X12=.; Y12=.; END;
FORMAT X22 X21 RFMT. Y22 Y12 CFMT. X11 X12 AMTFMT. Y11 Y21 FREQFMT.;
PROC FREQ DATA=BINGEB; WEIGHT COUNT;
TABLES AMT*FREQ X11*Y11 X12*Y12 X21*Y21 X22*Y22/CHISQ;
RUN;