"state.abb" <-
c("AL", "AK", "AZ", "AR", "CA", "CO", "CT", "DE", "FA", "GA", "HA", "ID", 
"IL", "IN", "IO", "KS", "KY", "LA", "ME", "MD", "MA", "MC", "MN", "MS", 
"MO", "MT", "NB", "NV", "NH", "NJ", "NM", "NY", "NC", "ND", "OH", "OK", 
"OR", "PA", "RI", "SC", "SD", "TN", "TX", "UT", "VT", "VA", "WA", "WV", 
"WI", "WY")
"state.area" <-
c(51609, 589757, 113909, 53104, 158693, 104247, 5009, 2057, 58560, 58876, 
6450, 83557, 56400, 36291, 56290, 82264, 40395, 48523, 33215, 10577, 8257, 
58216, 84068, 47716, 69686, 147138, 77227, 110540, 9304, 7836, 121666, 
49576, 52586, 70665, 41222, 69919, 96981, 45333, 1214, 31055, 77047, 42244, 
267339, 84916, 9609, 40815, 68192, 24181, 56154, 97914)
"state.division" <-
structure(factor(c(4, 9, 8, 5, 9, 8, 1, 3, 3, 3, 9, 8, 6, 6, 7, 7, 4, 5, 
1, 3, 1, 6, 7, 4, 7, 8, 7, 8, 1, 2, 8, 2, 3, 7, 6, 5, 9, 2, 1, 3, 7, 4, 
5, 8, 1, 3, 9, 3, 6, 8), levels=1:9), .Label = c("New England",
"Middle Atlantic", "South Atlantic", "East South Central",
"West South Central", "East North Central", "West North Central",
"Mountain", "Pacific"))
"state.name" <-
c("Alabama", "Alaska", "Arizona", "Arkansas", "California", "Colorado", 
"Connecticut", "Delaware", "Florida", "Georgia", "Hawaii", "Idaho", "Illinois", 
"Indiana", "Iowa", "Kansas", "Kentucky", "Louisiana", "Maine", "Maryland", 
"Massachusetts", "Michigan", "Minnesota", "Mississippi", "Missouri", "Montana", 
"Nebraska", "Nevada", "New Hampshire", "New Jersey", "New Mexico", "New York", 
"North Carolina", "North Dakota", "Ohio", "Oklahoma", "Oregon", "Pennsylvania", 
"Rhode Island", "South Carolina", "South Dakota", "Tennessee", "Texas", 
"Utah", "Vermont", "Virginia", "Washington", "West Virginia", "Wisconsin", 
"Wyoming")
"state.region" <-
structure(factor(c(2, 4, 4, 2, 4, 4, 1, 2, 2, 2, 4, 4, 3, 3, 3, 3, 2, 2, 
1, 2, 1, 3, 3, 2, 3, 4, 3, 4, 1, 1, 4, 1, 2, 3, 3, 2, 4, 1, 1, 2, 3, 2, 
2, 4, 1, 2, 4, 2, 3, 4), levels=1:4), .Label = c("Northeast", "South", 
"North Central", "West"))