Page
1
of
3
Environmental
Justice
Analysis
Demographic
Characteristics
Program
(
SAS)

Program
Description:

This
program
undertakes
the
demographic
environmental
justice
analysis
for
the
MP&
M
final
rule.
The
data
set
"
EJ_
counties.
sas7bdat"
contains
socioeconomic
data
for
counties
from
each
state
that
have
a
water
body
reach
located
within
them
to
which
effluent
is
discharged
from
a
'
surveyed'
MP&
M
facility
(
see
"
EJ_
counties.
sas7bdat,"
DCN
37643,
for
data
field
descriptions).
These
raw
data
are
from
the
1990
Population
and
Housing
Census.

The
environmental
justice
analysis
computes
simple
ratios/
percentages
for
these
selected
counties
and
will
compare
these
to
similar
ratios
for
the
entire
state
to
check
for
any
trends
depicting
a
disproportionate
burden/
benefit
to
advantaged
and
minority
sections
of
society.

Code:

libname
MPM
'
H:\
ENVR\
Triton05
MP&
M\
Final\
Benefits\
EJ
Analysis\
EJ
Final';

data
county;
set
MPM.
EJ_
counties;

*/
This
step
aggregates
Census
data
to
create
new
variables
and
drops
several
variables
not
used
in
the
analysis/*

Rural
=
Rural1+
Rural2;
Children
=
U181+
U182+
U183;
Employed
=
MCE+
FCE;
UnEmp
=
MCU+
FCU;
TotalE
=
Employed+
UnEmp;
NotPov
=
np1+
np2+
np3+
np4+
np5+
np6+
np7+
np8+
np9+
np10+
np11+
np12;
Pov
=
p1+
p2+
p3+
p4+
p5+
p6+
p7+
p8+
p9+
p10+
p11+
p12;
TotalP
=
NotPov+
Pov;
TotalI
=
House*
Income;
drop
Urban1
Urban2
Rural1
Rural2
U181
U182
U183
O181
O182
O183
MAF
MCE
MCU
MNLF
FAF
FCE
FCU
FNLF
np1
np2
np3
np4
np5
np6
np7
np8
np9
np10
np11
np12
p1
p2
p3
p4
p5
p6
p7
p8
p9
p10
p11
p12
Employed
NotPov
Income;
run;

*/
This
step
sorts
the
data
set
by
county/*
Page
2
of
3
Proc
sort
data=
county;
By
State;
run;

*/
This
step
calculates
means
for
specified
variables
by
state/*
Proc
Means
data=
county
Sum;
Var
Pop
House
White
Black
AI
Asian
Other
TotalI
Rural
Children
UnEmp
TotalE
Pov
TotalP;
By
State;
Output
Out=
CumState
Sum=
SPop
SHouse
SWhite
SBlack
SAI
SAsian
SOther
STotalI
SRural
SChildre
SUnEmp
STotalE
SPov
STotalP;
run;

data
CumState;
set
CumState;
Counties
=
_
Freq_;
drop
_
Freq_
_
Type_;
run;

*/
This
step
calculates
percentages
for
each
variable
of
interest/*

data
EJresult;
set
CumState;
PWhite
=
SWhite/
SPop;
PBlack
=
SBlack/
SPop;
PAI
=
SAI/
SPop;
PAsian
=
SAsian/
SPop;
POther
=
SOther/
SPop;
MedInc
=
STotalI/
SHouse;
PPov
=
SPov/
STotalP;
PUnEmp
=
SUnEmp/
STotalE;
PChild
=
SChildre/
SPop;
PRural
=
SRural/
SPop;
drop
SPop
SHouse
SWhite
SBlack
SAI
SAsian
SOther
STotalI
SRural
SChildre
SUnEmp
STotalE
SPov
STotalP;
run;

*/
This
step
creates
the
output
data
set/*

data
MPM.
EJ_
result;
Page
3
of
3
set
EJresult;
run;

*/
This
step
outputs
the
data
set/*

PROC
EXPORT
DATA=
MPM.
EJ_
result
OUTFILE=
"
C:\
My
Documents\
SAS\
SAS
Output\
MPM\
EJ_
result.
xls"
DBMS=
EXCEL2000
REPLACE;
RUN;
