The R Project SVN R

Rev

Rev 30412 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 30412 Rev 37798
Line 1... Line 1...
1
.year <- 1947:1962
1
.year <- 1947:1962
2
longley <-
2
longley <- data.frame(
3
structure(.Data = list(
-
 
4
GNP.deflator = c(83, 88.5, 88.2, 89.5, 96.2, 98.1, 99, 100, 101.2, 104.6, 
3
GNP.deflator = c(83, 88.5, 88.2, 89.5, 96.2, 98.1, 99, 100, 101.2, 104.6,
5
	108.4, 110.8, 112.6, 114.2, 115.7, 116.9), 
4
	108.4, 110.8, 112.6, 114.2, 115.7, 116.9),
6
GNP = c(234.289, 259.426, 258.054, 284.599, 328.975, 346.999,
5
GNP = c(234.289, 259.426, 258.054, 284.599, 328.975, 346.999,
7
	365.385, 363.112, 397.469, 419.18, 442.769,
6
	365.385, 363.112, 397.469, 419.18, 442.769,
8
	444.546, 482.704, 502.601, 518.173, 554.894),
7
	444.546, 482.704, 502.601, 518.173, 554.894),
9
Unemployed = c(235.6, 232.5, 368.2, 335.1, 209.9, 193.2, 187, 357.8,
8
Unemployed = c(235.6, 232.5, 368.2, 335.1, 209.9, 193.2, 187, 357.8,
10
	290.4, 282.2, 293.6, 468.1, 381.3, 393.1, 480.6, 400.7),
9
	290.4, 282.2, 293.6, 468.1, 381.3, 393.1, 480.6, 400.7),
Line 12... Line 11...
12
    	304.8, 285.7, 279.8, 263.7, 255.2, 251.4, 257.2, 282.7),
11
    	304.8, 285.7, 279.8, 263.7, 255.2, 251.4, 257.2, 282.7),
13
Population = c(107.608, 108.632, 109.773, 110.929, 112.075, 113.27,
12
Population = c(107.608, 108.632, 109.773, 110.929, 112.075, 113.27,
14
	115.094, 116.219, 117.388, 118.734, 120.445,
13
	115.094, 116.219, 117.388, 118.734, 120.445,
15
	121.95, 123.366, 125.368, 127.852, 130.081),
14
	121.95, 123.366, 125.368, 127.852, 130.081),
16
Year = .year,
15
Year = .year,
17
Employed = c(60.323, 61.122, 60.171, 61.187, 63.221, 63.639, 64.989, 63.761, 
16
Employed = c(60.323, 61.122, 60.171, 61.187, 63.221, 63.639, 64.989, 63.761,
18
	66.019, 67.857, 68.169, 66.513, 68.655, 69.564, 69.331, 70.551)),
17
	66.019, 67.857, 68.169, 66.513, 68.655, 69.564, 69.331, 70.551),
19
row.names = paste(.year),
18
row.names = .year)
20
class = "data.frame")
-
 
21
 
19
 
22
rm(.year)
20
rm(.year)
23
 
21
 
24
## In S : longley <- data.frame(longley.x, Employed = longley.y)
22
## In S : longley <- data.frame(longley.x, Employed = longley.y)