Create the data set STATES. STATES contains the FIPS codes for each state and the total number of hazardous waste sites installed in each state.
data sites;
   length stcode $ 2;
   input region stcode $ sites;
   state=stfips(stcode);
   datalines;
1   AK  12
4   AL  7
4   AR  12
2   AZ  10
1   CA  90
1   CO  15
5   CT  15
5   DE  18
4   FL  52
4   GA  15
1   HI  4
3   IA  16
1   ID  8
3   IL  38
3   IN  30
3   KS  10
4   KY  16
4   LA  15
5   MA  30
4   MD  13
5   ME  12
3   MI  72
3   MN  30
3   MO  22
4   MS  1
1   MT  8
4   NC  22
3   ND  0
3   NE  10
5   NH  18
5   NJ  105
2   NM  9
1   NV  1
5   NY  78
3   OH  34
2   OK  10
1   OR  10
5   PA  100
5   RI  12
4   SC  26
3   SD  2
4   TN  14
2   TX  26
1   UT  12
4   VA  25
5   VT  8
1   WA  49
3   WI  40
5   WV  6
1   WY  3
;