wagner.q
In robust: Port of the S+ "Robust Library"

wagnerGrowth <-
data.frame(Region = factor(rep(1:21, 3), labels = as.character(1:21)),
	   Period = factor(rep(1:3,each=21),labels= c("79-82","83-88","89-92")),
	   PA = c(46.84, 35.54, 28.42, 32.54,
28.92, 36.61, 34.71, 24.32, 35.15, 34.06, 37.94, 35.88, 31.28,
33.61, 33.86, 43.24, 42.65, 37.19, 49.7, 41.96, 28.86, 44.24,
34.12, 26.94, 28.03, 28.04, 35.22, 32.49, 19.21, 34.99, 30.2,
33.33, 33.71, 29.38, 35.63, 34.61, 38.83, 40.37, 34.44, 44.84,
37.37, 26.75, 48.04, 30.79, 25.23, 27.14, 26.57, 32.35, 30.6,
19.57, 30.04, 27.18, 33.39, 29.04, 26.64, 35.12, 29.25, 32,
36.43, 35.81, 37.14, 31.5, 24.92),
	   GPA = c(-2.6, -1.42, -1.48,
-4.51, -0.88, -1.39, -2.22, -5.11, -0.16, -3.86, -4.61, -2.17,
-1.9, 2.02, 0.75, -4.41, -2.28, -2.75, -4.86, -4.59, -2.11, 3.8,
-3.33, -1.71, -0.89, -1.47, -2.87, -1.89, 0.36, -4.95, -3.02,
0.06, -4.67, -2.74, -0.51, -5.36, -6.83, -3.94, 1.37, -7.7, -5.87,
-1.83, -4.03, -3.1, -4.29, -2.45, 1.31, -1.25, -3.21, 2.48, -0.79,
-1.14, -0.42, 1.4, 1.04, -0.81, -2.56, 1.68, 1, -2.29, 1.59, 0.7, -0.14),
	   HS = c(1.68, 1.67, 1.71, 1.37, 2.14, 3, 2.94, 3.57,
3.27, 2.74, 2.07, 1.57, 2.74, 1.92, 0.86, 1.82, 1.52, 2.39, 1.16,
2, 5.17, 1.88, 2.3, 1.83, 1.69, 2.06, 3.45, 3.21, 3.02, 3.3,
2.93, 2.45, 1.46, 2.17, 2.24, 1.32, 2.34, 1.35, 2.79, 1.25, 1.88,
5.63, 2.01, 3.34, 3.11, 2.04, 1.25, 4.04, 5.09, 6, 3.98, 3.41,
2.69, 4.05, 2.24, 2.86, 1.93, 3.05, 1.8, 4.06, 2.05, 2.68, 6.98),
	   GHS = c(0.2, 0.63, 0.12, 0.32, -0.08, 0.45, 0.27, -0.55, 0.03,
0.19, 0.38, -0.11, -0.57, 0.32, 0.46, 0.52, -0.17, 0.4, 0.09,
-0.12, 0.46, 0.13, 1.04, 1.28, 0.35, -0.81, 0.59, 1.88, 2.98,
0.68, 0.48, 0.24, 2.59, 0.07, 0.62, 0.61, 0.71, 0.45, 1.27, 0.8,
0.8, 1.35, 0.4, 0.25, 0.88, 1.95, 0.67, 0.23, -0.17, 2.27, 0.55,
0.28, -0.18, -0.05, 0.12, 0.25, 0.3, 0.78, 0.37, 0.18, 0.82,
-0.17, 0.59),
	   y = c(0.97, 2.14, 6.13, 7.36, 3.63, -4.3, 2.06,
-18.64, 5.15, 6.88, -1.24, -1.31, 1.73, 0.44, -15.53, -10.99,
0.6, 3.71, -2.38, -1.35, -1.08, 8.47, 2.76, 24.08, 13.97, 0.63,
-1.99, 13.1, 15.42, 19.65, 8.45, 9.04, 9.47, 24.18, 9.09, -1.89,
14.62, -0.44, 17.84, 10.95, -1.55, -1.66, 3.72, 9.29, 25.59,
27.41, 18.32, 11.2, 21.95, 33.03, 22.02, 13.68, 11.24, 15.06,
10.73, 1.53, 11.37, -0.07, 14.17, 8.05, 15.96, 9.91, 6.94))