The R Project SVN R

Rev

Rev 27529 | Only display areas with differences | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 27529 Rev 27716
1 
 
 1 
 
2 
freeny.x <-
 2 
freeny.x <-
3 
  structure(.Data = c(8.79636, 8.79236, 8.79137,
 3 
  structure(.Data = c(8.79636, 8.79236, 8.79137,
4 
		8.81486, 8.81301, 8.90751,
 4 
		8.81486, 8.81301, 8.90751,
5 
		8.93673, 8.96161, 8.96044, 9.00868,
 5 
		8.93673, 8.96161, 8.96044, 9.00868,
6 
		9.03049, 9.06906, 9.05871,
 6 
		9.03049, 9.06906, 9.05871,
7 
		9.10698, 9.12685, 9.17096,
 7 
		9.10698, 9.12685, 9.17096,
8 
		9.18665, 9.23823, 9.26487,
 8 
		9.18665, 9.23823, 9.26487,
9 
		9.28436, 9.31378, 9.35025,
 9 
		9.28436, 9.31378, 9.35025,
10 
		9.35835, 9.39767, 9.4215, 9.44223,
 10 
		9.35835, 9.39767, 9.4215, 9.44223,
11 
		9.48721, 9.52374, 9.5398,
 11 
		9.48721, 9.52374, 9.5398,
12 
		9.58123, 9.60048, 9.64496,
 12 
		9.58123, 9.60048, 9.64496,
13 
		9.6439, 9.69405, 9.69958,
 13 
		9.6439, 9.69405, 9.69958,
14 
		9.68683, 9.71774, 9.74924,
 14 
		9.68683, 9.71774, 9.74924,
15 
		9.77536, 4.70997, 4.70217,
 15 
		9.77536, 4.70997, 4.70217,
16 
		4.68944, 4.68558, 4.64019,
 16 
		4.68944, 4.68558, 4.64019,
17 
		4.62553, 4.61991, 4.61654, 4.61407,
 17 
		4.62553, 4.61991, 4.61654, 4.61407,
18 
		4.60766, 4.60227, 4.5896, 4.57592,
 18 
		4.60766, 4.60227, 4.5896, 4.57592,
19 
		4.58661, 4.57997, 4.57176,
 19 
		4.58661, 4.57997, 4.57176,
20 
		4.56104, 4.54906, 4.53957,
 20 
		4.56104, 4.54906, 4.53957,
21 
		4.51018, 4.50352, 4.4936, 4.46505,
 21 
		4.51018, 4.50352, 4.4936, 4.46505,
22 
		4.44924, 4.43966, 4.42025,
 22 
		4.44924, 4.43966, 4.42025,
23 
		4.4106, 4.41151, 4.3981,
 23 
		4.4106, 4.41151, 4.3981,
24 
		4.38513, 4.3732, 4.3277,
 24 
		4.38513, 4.3732, 4.3277,
25 
		4.32023, 4.30909, 4.30909,
 25 
		4.32023, 4.30909, 4.30909,
26 
		4.30552, 4.29627, 4.27839,
 26 
		4.30552, 4.29627, 4.27839,
27 
		4.27789, 5.8211, 5.82558,
 27 
		4.27789, 5.8211, 5.82558,
28 
		5.83112, 5.84046, 5.85036,
 28 
		5.83112, 5.84046, 5.85036,
29 
		5.86464, 5.87769, 5.89763,
 29 
		5.86464, 5.87769, 5.89763,
30 
		5.92574, 5.94232, 5.95365,
 30 
		5.92574, 5.94232, 5.95365,
31 
		5.9612, 5.97805, 6.00377,
 31 
		5.9612, 5.97805, 6.00377,
32 
		6.02829, 6.03475, 6.03906,
 32 
		6.02829, 6.03475, 6.03906,
33 
		6.05046, 6.05563, 6.06093,
 33 
		6.05046, 6.05563, 6.06093,
34 
		6.07103, 6.08018, 6.08858,
 34 
		6.07103, 6.08018, 6.08858,
35 
		6.10199, 6.11207, 6.11596,
 35 
		6.10199, 6.11207, 6.11596,
36 
		6.12129, 6.122, 6.13119,
 36 
		6.12129, 6.122, 6.13119,
37 
		6.14705, 6.15336, 6.15627,
 37 
		6.14705, 6.15336, 6.15627,
38 
		6.16274, 6.17369, 6.16135,
 38 
		6.16274, 6.17369, 6.16135,
39 
		6.18231, 6.18768, 6.19377,
 39 
		6.18231, 6.18768, 6.19377,
40 
		6.2003, 12.9699, 12.9733, 12.9774,
 40 
		6.2003, 12.9699, 12.9733, 12.9774,
41 
		12.9806, 12.9831, 12.9854, 12.99, 12.9943,
 41 
		12.9806, 12.9831, 12.9854, 12.99, 12.9943,
42 
		12.9992, 13.0033, 13.0099, 13.0159, 13.0212, 13.0265,
 42 
		12.9992, 13.0033, 13.0099, 13.0159, 13.0212, 13.0265,
43 
		13.0351, 13.0429, 13.0497, 13.0551, 13.0634,
 43 
		13.0351, 13.0429, 13.0497, 13.0551, 13.0634,
44 
		13.0693, 13.0737, 13.077, 13.0849,
 44 
		13.0693, 13.0737, 13.077, 13.0849,
45 
		13.0918, 13.095, 13.0984, 13.1089,
 45 
		13.0918, 13.095, 13.0984, 13.1089,
46 
		13.1169, 13.1222, 13.1266, 13.1356,
 46 
		13.1169, 13.1222, 13.1266, 13.1356,
47 
		13.1415, 13.1444, 13.1459,
 47 
		13.1415, 13.1444, 13.1459,
48 
		13.152, 13.1593, 13.1579, 13.1625, 13.1664),
 48 
		13.152, 13.1593, 13.1579, 13.1625, 13.1664),
49 
	    .Dim = c(39, 4),
 49 
	    .Dim = c(39, 4),
50 
	    .Dimnames = list(character(0),
 50 
	    .Dimnames = list(character(0),
51 
		c("lag quarterly revenue", "price index",
 51 
		c("lag quarterly revenue", "price index",
52 
		  "income level", "market potential"))
 52 
		  "income level", "market potential"))
53 
	    )
 53 
	    )
54 
 
 54 
 
55 
freeny.y <-
 55 
freeny.y <-
56 
  structure(.Data = c(8.79236, 8.79137, 8.81486,
 56 
  structure(.Data = c(8.79236, 8.79137, 8.81486,
57 
		8.81301, 8.90751, 8.93673,
 57 
		8.81301, 8.90751, 8.93673,
58 
		8.96161, 8.96044, 9.00868, 9.03049,
 58 
		8.96161, 8.96044, 9.00868, 9.03049,
59 
		9.06906, 9.05871, 9.10698,
 59 
		9.06906, 9.05871, 9.10698,
60 
		9.12685, 9.17096, 9.18665,
 60 
		9.12685, 9.17096, 9.18665,
61 
		9.23823, 9.26487, 9.28436,
 61 
		9.23823, 9.26487, 9.28436,
62 
		9.31378, 9.35025, 9.35835,
 62 
		9.31378, 9.35025, 9.35835,
63 
		9.39767, 9.4215, 9.44223, 9.48721,
 63 
		9.39767, 9.4215, 9.44223, 9.48721,
64 
		9.52374, 9.5398, 9.58123,
 64 
		9.52374, 9.5398, 9.58123,
65 
		9.60048, 9.64496, 9.6439,
 65 
		9.60048, 9.64496, 9.6439,
66 
		9.69405, 9.69958, 9.68683,
 66 
		9.69405, 9.69958, 9.68683,
67 
		9.71774, 9.74924, 9.77536,
 67 
		9.71774, 9.74924, 9.77536,
68 
		9.79424), .Tsp = c(1962.25, 1971.75, 4))
 68 
		9.79424), .Tsp = c(1962.25, 1971.75, 4))
69 
 
 69 
 
70 
##-- This gives a data.frame which sometimes [str(..)] behaves horribly :
 70 
##-- This gives a data.frame which sometimes [str(..)] behaves horribly :
71 
freeny <- data.frame(y = freeny.y, freeny.x, row.names = time(freeny.y))
 71 
freeny <- data.frame(y = freeny.y, freeny.x, row.names = stats::time(freeny.y))