1972 Fuel Consumption Data

The dataset below contains data for the 50 states, including 1971 population in thousands (Pop), 1972 gasoline tax in cents per gallon (Tax), thousands of licensed drivers 1971 (Lic), per capita income in dollars (Inc), thousands of miles of federally funded highways, 1971 (Hwy), and total 1972 fuel consumption in millions of gallons (Gas).

Source: Weisberg, Applied Linear Regression, 2nd Edition.


"Fuel" <-
structure(list(Pop = c(1029, 771, 462, 5787, 968, 3082, 18366, 
7367, 11926, 10783, 5291, 11251, 9082, 4520, 3896, 2883, 4753, 
632, 579, 1525, 2258, 565, 4056, 4764, 1781, 5214, 2665, 4720, 
7259, 3299, 4031, 3510, 2263, 1978, 3720, 2634, 11649, 719, 756, 
345, 2357, 1065, 1945, 1126, 527, 3443, 2182, 20468, 303, 801
), Tax = c(9, 9, 9, 7.5, 8, 10, 8, 8, 8, 7, 8, 7.5, 7, 7, 7, 
7, 7, 7, 7, 8.5, 7, 8, 9, 9, 8.5, 9, 8, 7.5, 8, 9, 7, 7, 8, 7.5, 
8, 6.58, 5, 7, 8.5, 7, 7, 7, 7, 7, 6, 9, 7, 7, 8, 5), Lic = c(540, 
441, 268, 3060, 527, 1760, 8278, 4074, 6312, 5948, 2804, 5903, 
5213, 2465, 2368, 1689, 2719, 341, 419, 1033, 1496, 340, 2073, 
2463, 982, 2835, 1460, 2731, 4084, 1626, 2088, 1801, 1309, 1081, 
1813, 1657, 6595, 421, 501, 232, 1475, 600, 1173, 572, 354, 1966, 
1360, 12130, 141, 519), Inc = c(3571, 4092, 3865, 4870, 4399, 
5342, 5319, 5126, 4447, 4512, 4391, 5126, 4817, 4207, 4332, 4318, 
4206, 3718, 4716, 4341, 4593, 4983, 4897, 4258, 4574, 3721, 3448, 
3846, 4188, 3601, 3640, 3333, 3063, 3357, 3528, 3802, 4045, 3897, 
3635, 4345, 4449, 3656, 4300, 3745, 5215, 4476, 4296, 5002, 5162, 
4995), Hwy = c(1976, 1250, 1586, 2351, 431, 1333, 11868, 2138, 
8577, 8507, 5939, 14186, 6930, 6580, 8159, 10340, 8508, 4725, 
5915, 6010, 7834, 602, 2449, 4686, 2619, 4746, 5399, 9061, 5975, 
4650, 6905, 6594, 6524, 4121, 3495, 7834, 17782, 6385, 3274, 
3905, 4639, 3985, 3635, 2611, 2302, 3942, 4083, 9794, 3246, 602
), Gas = c(557, 404, 259, 2396, 397, 1408, 6312, 3439, 5528, 
5375, 3068, 5301, 4768, 2294, 2204, 1830, 2865, 451, 501, 976, 
1466, 305, 1883, 2604, 819, 2953, 1537, 2979, 4169, 1761, 2301, 
1946, 1306, 1242, 1812, 1695, 7451, 506, 490, 334, 1384, 744, 
1230, 666, 412, 1757, 1331, 10730, 172, 276)), 
.Names = c("Pop", "Tax", "Lic", "Inc", "Hwy", "Gas"), 
class = "data.frame", row.names = c("ME", 
"NH", "VT", "MA", "RI", "CT", "NY", "NJ", "PA", "OH", "IN", "IL", 
"MI", "WI", "MN", "IA", "MO", "ND", "SD", "NE", "KS", "DE", "MD", 
"VA", "WV", "NC", "SC", "GA", "FL", "KY", "TN", "AL", "MS", "AR", 
"LA", "OK", "TX", "MT", "ID", "WY", "CO", "NM", "AZ", "UT", "NV", 
"WA", "OR", "CA", "AK", "HI"))