.year <- 1947:1962
longley <- data.frame(
GNP.deflator = c(83, 88.5, 88.2, 89.5, 96.2, 98.1, 99, 100, 101.2, 104.6,
	108.4, 110.8, 112.6, 114.2, 115.7, 116.9),
GNP = c(234.289, 259.426, 258.054, 284.599, 328.975, 346.999,
	365.385, 363.112, 397.469, 419.18, 442.769,
	444.546, 482.704, 502.601, 518.173, 554.894),
Unemployed = c(235.6, 232.5, 368.2, 335.1, 209.9, 193.2, 187, 357.8,
	290.4, 282.2, 293.6, 468.1, 381.3, 393.1, 480.6, 400.7),
Armed.Forces = c(159, 145.6, 161.6, 165, 309.9, 359.4, 354.7, 335,
    	304.8, 285.7, 279.8, 263.7, 255.2, 251.4, 257.2, 282.7),
Population = c(107.608, 108.632, 109.773, 110.929, 112.075, 113.27,
	115.094, 116.219, 117.388, 118.734, 120.445,
	121.95, 123.366, 125.368, 127.852, 130.081),
Year = .year,
Employed = c(60.323, 61.122, 60.171, 61.187, 63.221, 63.639, 64.989, 63.761,
	66.019, 67.857, 68.169, 66.513, 68.655, 69.564, 69.331, 70.551),
row.names = .year)

rm(.year)

## In S : longley <- data.frame(longley.x, Employed = longley.y)