"crime" <-
structure(list(y1983 = c(416, 613.7999878, 494.2000122, 297.7000122, 
772.5999756, 476.3999939, 375, 453.1000061, 1985.400024, 826.7000122, 
456.7000122, 252.1000061, 238.6999969, 553, 283.7999878, 181.1000061, 
326.6000061, 322.2000122, 640.9000244, 159.6000061, 807.0999756, 
576.7999878, 716.7000122, 190.8999939, 280.3999939, 477.2000122, 
212.6000061, 217.6999969, 655.2000122, 125.0999985, 553.0999756, 
686.7999878, 914.0999756, 409.6000061, 53.70000076, 397.8999939, 
423.3999939, 487.7999878, 342.7999878, 355.2000122, 616.7999878, 
120, 402, 512.2000122, 256, 132.6000061, 292.5, 371.7999878, 
171.8000031, 190.8999939, 237.1999969), y1993 = c(871.7000122, 
660.5, 670.7999878, 576.5, 1119.699951, 578.7999878, 495.2999878, 
621.2000122, 2832.800049, 1207.199951, 733.2000122, 258.3999939, 
281.3999939, 977.2999878, 508.2999878, 278, 510.7999878, 535.5, 
984.5999756, 130.8999939, 1000.099976, 779, 770.0999756, 338, 
411.7000122, 740.4000244, 169.8999939, 348.6000061, 696.7999878, 
125.6999969, 625.7999878, 934.9000244, 1122.099976, 681, 83.30000305, 
525.9000244, 622.7999878, 510.2000122, 427, 394.5, 944.5, 194.5, 
746.2000122, 806.2999878, 290.5, 109.5, 374.8999939, 534.5, 211.5, 
275.7000122, 319.5)), .Names = c("y1983", "y1993"), row.names = c("Alabama", 
"Alaska", "Arizona", "Arkansas", "California", "Colorado", "Connecticut", 
"Delaware", "DC", "Florida", "Georgia", "Hawaii", "Idaho", "Illinois", 
"Indiana", "Iowa", "Kansas", "Kentucky", "Louisiana", "Maine", 
"Maryland", "Massachusetts", "Michigan", "Minnesota", "Mississippi", 
"Missour", "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"), class = "data.frame")