Source: Applied Linear Regression, 2nd Ed., by Weisberg.
"Hwy" <-
structure(list(Rate = c(4.58, 2.86, 3.02, 2.29, 1.61, 6.87, 3.85,
6.12, 3.29, 5.88, 4.2, 4.61, 4.8, 3.85, 2.69, 1.99, 2.01, 4.22,
2.76, 2.55, 1.89, 2.34, 2.83, 1.81, 9.23, 8.6, 8.21, 2.93, 7.48,
2.57, 5.77, 2.9, 2.97, 1.84, 3.78, 2.76, 4.27, 3.05, 4.12), Length = c(4.99,
16.11, 9.75, 10.65, 20.01, 5.97, 8.57, 5.24, 15.79, 8.26, 7.03,
13.28, 5.4, 2.96, 11.75, 8.86, 9.78, 5.49, 8.63, 20.31, 40.09,
11.81, 11.39, 22, 3.58, 3.23, 7.73, 14.41, 11.54, 11.1, 22.09,
9.39, 19.49, 21.01, 27.16, 14.03, 20.63, 20.06, 12.91), ADT = c(69,
73, 49, 61, 28, 30, 46, 25, 43, 23, 23, 20, 18, 21, 27, 22, 19,
9, 12, 12, 15, 8, 5, 5, 23, 13, 7, 10, 12, 9, 4, 5, 4, 5, 2,
3, 1, 3, 1), TV = c(8, 8, 10, 13, 12, 6, 8, 9, 12, 7, 6, 9, 14,
8, 7, 9, 9, 11, 8, 7, 13, 8, 9, 15, 6, 6, 8, 10, 7, 8, 8, 10,
13, 12, 10, 8, 11, 11, 10), LIM = c(55, 60, 60, 65, 70, 55, 55,
55, 50, 50, 60, 50, 50, 60, 55, 60, 60, 50, 55, 60, 55, 60, 50,
60, 40, 45, 55, 55, 45, 60, 45, 55, 55, 55, 55, 50, 55, 60, 55
), LW = c(12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12,
12, 12, 12, 12, 12, 13, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12,
12, 11, 13, 12, 10, 12, 12, 11, 12, 12), SW = c(10, 10, 10, 10,
10, 10, 8, 10, 4, 5, 10, 2, 8, 10, 10, 10, 10, 6, 6, 10, 8, 10,
8, 7, 2, 2, 8, 6, 3, 7, 3, 1, 4, 8, 3, 4, 4, 8, 3), Int = c(1.2,
1.43, 1.54, 0.94, 0.65, 0.34, 0.47, 0.38, 0.95, 0.12, 0.29, 0.15,
0, 0.34, 0.26, 0.68, 0.2, 0.18, 0.14, 0.05, 0.05, 0, 0, 0, 0.56,
0.31, 0.13, 0, 0.09, 0, 0, 0, 0, 0, 0.04, 0.07, 0, 0, 0), SIG = c(0,
0, 0, 0, 0, 1.84, 0.7, 0.38, 1.39, 1.21, 1.85, 1.21, 0.56, 0,
0.6, 0, 0.1, 0.18, 0, 0.99, 0.12, 0, 0.09, 0, 2.51, 0.93, 0.52,
0.07, 0.09, 0, 0.14, 0, 0, 0.1, 0.04, 0, 0, 0, 0), APT = c(4.6,
4.4, 4.7, 3.8, 2.2, 24.8, 11, 18.5, 7.5, 8.2, 5.4, 11.2, 15.2,
5.4, 7.9, 3.2, 11, 8.9, 12.4, 7.8, 9.6, 4.3, 11.1, 6.8, 53, 17.3,
27.3, 18, 30.2, 10.3, 18.2, 12.3, 7.1, 14, 11.3, 16.3, 9.6, 9,
10.4), Lanes = c(8, 4, 4, 6, 4, 4, 4, 4, 4, 4, 4, 4, 2, 4, 4,
4, 4, 2, 2, 4, 4, 2, 2, 2, 4, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2), FedIS = c(1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0), Hwy = c(0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0), MHwy = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 0, 0)), .Names = c("Rate", "Length", "ADT", "TV", "LIM",
"LW", "SW", "Int", "SIG", "APT", "Lanes", "FedIS", "Hwy", "MHwy"
), class = "data.frame", row.names = c("1", "2", "3", "4", "5",
"6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16",
"17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27",
"28", "29", "30", "31", "32", "33", "34", "35", "36", "37", "38",
"39"))