PROC FORMAT;
VALUE BIRDFMT 1='Ruby-crowned Kinglet'
              2='Yellow-rumped Warbler'
              3='House Finch';
DATA BIRD;
INPUT SITE $ SPECIES COUNT;
FORMAT SPECIES BIRDFMT.;
CARDS;
Columbia 1 78
Columbia 2 74 
Columbia 3 64 
Congaree 1 123 
Congaree 2 145
Congaree 3 161
Santee 1 351 
Santee 2 520
Santee 3 170
DATA BIRDA; SET BIRD;
X11=2; Y11=2; X21=2; Y21=2; X12=2; Y12=2; X22=2; Y22=2; OUTPUT;
DATA BIRDB; SET BIRDA;
IF SITE='Columbia' & SPECIES=1 THEN DO;
X11=1; Y11=1; X21=1; Y21=1; X12=1; Y12=1; X22=1; Y22=1; END;
ELSE IF SITE='Columbia' & SPECIES=2 THEN DO;
X11=1; X21=1; X12=1; Y12=1; X22=1; Y22=1; END;
ELSE IF SITE='Congaree' & SPECIES=1 THEN DO;
Y11=1; X21=1; Y21=1; Y12=1; X22=1; Y22=1; END;
ELSE IF SITE='Congaree' & SPECIES=2 THEN DO;
X21=1; Y12=1; X22=1; Y22=1; END;
ELSE IF SITE='Columbia' & SPECIES=3 THEN DO;
X11=.; Y11=.; X21=.; Y21=.; X12=1; X22=1; END;
ELSE IF SITE='Congaree' & SPECIES=3 THEN DO;
X11=.; Y11=.; X21=.; Y21=.; X22=1; END;
ELSE IF SITE='Santee' & SPECIES=1 THEN DO;
X11=.; Y11=.; Y21=1; X12=.; Y12=.; Y22=1; END;
ELSE IF SITE='Santee' & SPECIES=2 THEN DO;
X11=.; Y11=.; X12=.; Y12=.; Y22=1; END;
ELSE DO;
X11=.; Y11=.; X21=.; Y21=.; X12=.; Y12=.; END;
PROC FREQ DATA=BIRDB; WEIGHT COUNT;
TABLES SITE*SPECIES X11*Y11 X12*Y12 X21*Y21 X22*Y22/CHISQ;
RUN;