The R Project SVN R

state.abb <-

c("AL", "AK", "AZ", "AR", "CA",

  "CO", "CT", "DE", "FL", "GA",

  "HI", "ID", "IL", "IN", "IA",

  "KS", "KY", "LA", "ME", "MD",

  "MA", "MI", "MN", "MS", "MO",

  "MT", "NE", "NV", "NH", "NJ",

  "NM", "NY", "NC", "ND", "OH",

  "OK", "OR", "PA", "RI", "SC",

  "SD", "TN", "TX", "UT", "VT",

  "VA", "WA", "WV", "WI", "WY")

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.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.center" <-

list(x = c(-86.7509, -127.25, -111.625, -92.2992, -119.773, -105.513,

           -72.3573, -74.9841, -81.685, -83.3736, -126.25, -113.93,

           -89.3776, -86.0808, -93.3714, -98.1156, -84.7674, -92.2724,

           -68.9801, -76.6459, -71.58, -84.687, -94.6043, -89.8065,

           -92.5137, -109.32, -99.5898, -116.851, -71.3924, -74.2336,

           -105.942, -75.1449, -78.4686, -100.099, -82.5963, -97.1239,

           -120.068, -77.45, -71.1244, -80.5056, -99.7238, -86.456,

           -98.7857, -111.33, -72.545, -78.2005, -119.746, -80.6665,

           -89.9941, -107.256),

     y = c(32.5901, 49.25, 34.2192, 34.7336, 36.5341, 38.6777, 41.5928,

           38.6777, 27.8744, 32.3329, 31.75, 43.5648, 40.0495, 40.0495,

           41.9358, 38.4204, 37.3915, 30.6181, 45.6226, 39.2778,

           42.3645, 43.1361, 46.3943, 32.6758, 38.3347, 46.823, 41.3356,

           39.1063, 43.3934, 39.9637, 34.4764, 43.1361, 35.4195,

           47.2517, 40.221, 35.5053, 43.9078, 40.9069, 41.5928, 33.619,

           44.3365, 35.6767, 31.3897, 39.1063, 44.2508, 37.563, 47.4231,

           38.4204, 44.5937, 43.0504))

"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.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"))

"state.x77" <-

structure(c(3615, 365, 2212, 2110, 21198, 2541, 3100, 579, 8277, 4931,

            868, 813, 11197, 5313, 2861, 2280, 3387, 3806, 1058, 4122,

            5814, 9111, 3921, 2341, 4767, 746, 1544, 590, 812, 7333,

            1144, 18076, 5441, 637, 10735, 2715, 2284, 11860, 931, 2816,

            681, 4173, 12237, 1203, 472, 4981, 3559, 1799, 4589, 376,

            3624, 6315, 4530, 3378, 5114, 4884, 5348, 4809, 4815, 4091,

            4963, 4119, 5107, 4458, 4628, 4669, 3712, 3545, 3694, 5299,

            4755, 4751, 4675, 3098, 4254, 4347, 4508, 5149, 4281, 5237,

            3601, 4903, 3875, 5087, 4561, 3983, 4660, 4449, 4558, 3635,

            4167, 3821, 4188, 4022, 3907, 4701, 4864, 3617, 4468, 4566,

            2.1, 1.5, 1.8, 1.9, 1.1, 0.7, 1.1, 0.9, 1.3, 2, 1.9, 0.6,

            0.9, 0.7, 0.5, 0.6, 1.6, 2.8, 0.7, 0.9, 1.1, 0.9, 0.6, 2.4,

            0.8, 0.6, 0.6, 0.5, 0.7, 1.1, 2.2, 1.4, 1.8, 0.8, 0.8, 1.1,

            0.6, 1, 1.3, 2.3, 0.5, 1.7, 2.2, 0.6, 0.6, 1.4, 0.6, 1.4,

            0.7, 0.6, 69.05, 69.31, 70.55, 70.66, 71.71, 72.06, 72.48,

            70.06, 70.66, 68.54, 73.6, 71.87, 70.14, 70.88, 72.56,

            72.58, 70.1, 68.76, 70.39, 70.22, 71.83, 70.63, 72.96,

            68.09, 70.69, 70.56, 72.6, 69.03, 71.23, 70.93, 70.32,

            70.55, 69.21, 72.78, 70.82, 71.42, 72.13, 70.43, 71.9,

            67.96, 72.08, 70.11, 70.9, 72.9, 71.64, 70.08, 71.72, 69.48,

            72.48, 70.29, 15.1, 11.3, 7.8, 10.1, 10.3, 6.8, 3.1, 6.2,

            10.7, 13.9, 6.2, 5.3, 10.3, 7.1, 2.3, 4.5, 10.6, 13.2, 2.7,

            8.5, 3.3, 11.1, 2.3, 12.5, 9.3, 5, 2.9, 11.5, 3.3, 5.2, 9.7,

            10.9, 11.1, 1.4, 7.4, 6.4, 4.2, 6.1, 2.4, 11.6, 1.7, 11,

            12.2, 4.5, 5.5, 9.5, 4.3, 6.7, 3, 6.9, 41.3, 66.7, 58.1,

            39.9, 62.6, 63.9, 56, 54.6, 52.6, 40.6, 61.9, 59.5, 52.6,

            52.9, 59, 59.9, 38.5, 42.2, 54.7, 52.3, 58.5, 52.8, 57.6,

            41, 48.8, 59.2, 59.3, 65.2, 57.6, 52.5, 55.2, 52.7, 38.5,

            50.3, 53.2, 51.6, 60, 50.2, 46.4, 37.8, 53.3, 41.8, 47.4,

            67.3, 57.1, 47.8, 63.5, 41.6, 54.5, 62.9, 20, 152, 15, 65,

            20, 166, 139, 103, 11, 60, 0, 126, 127, 122, 140, 114, 95,

            12, 161, 101, 103, 125, 160, 50, 108, 155, 139, 188, 174,

            115, 120, 82, 80, 186, 124, 82, 44, 126, 127, 65, 172, 70,

            35, 137, 168, 85, 32, 100, 149, 173, 50708, 566432, 113417,

            51945, 156361, 103766, 4862, 1982, 54090, 58073, 6425,

            82677, 55748, 36097, 55941, 81787, 39650, 44930, 30920,

            9891, 7826, 56817, 79289, 47296, 68995, 145587, 76483,

            109889, 9027, 7521, 121412, 47831, 48798, 69273, 40975,

            68782, 96184, 44966, 1049, 30225, 75955, 41328, 262134,

            82096, 9267, 39780, 66570, 24070, 54464, 97203),

          .Dim = c(50, 8),

          .Dimnames = list(state.name,

          c("Population", "Income", "Illiteracy", "Life Exp", "Murder",

            "HS Grad", "Frost", "Area")))