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
40
41
42
43
44
45
46
47
|
swissEconomy <- ts(matrix(c(
50.74, 50.74, 56.69, 3.97, 3.15, 0.01, 5.79,
53.58, 53.58, 55.19, 3.95, 3.33, 0.01, 5.86,
56.21, 56.21, 56.09, 4.16, 4.84, 0.01, 5.92,
57.42, 57.42, 56.44, 4.61, 3.85, 0.01, 5.99,
62.98, 62.98, 59.78, 4.37, 2.47, 0.01, 6.07,
70.50, 70.50, 67.84, 4.90, 2.41, 0.01, 6.14,
75.18, 75.18, 79.13, 5.82, 3.76, 0.00, 6.19,
74.36, 74.36, 78.10, 5.27, 6.58, 0.00, 6.23,
75.50, 75.50, 77.77, 4.97, 6.60, 0.00, 6.39,
78.52, 78.52, 81.40, 5.60, 8.78, 0.00, 6.43,
83.90, 83.90, 88.99, 7.15, 9.72, 0.01, 6.44,
75.17, 75.17, 68.39, 6.44, 6.69, 0.33, 6.41,
79.19, 79.19, 71.46, 4.99, 1.72, 0.68, 6.35,
88.53, 88.53, 82.37, 4.05, 1.23, 0.39, 6.33,
85.11, 85.11, 79.25, 3.33, 1.07, 0.34, 6.34,
87.87, 87.87, 89.22, 3.45, 3.77, 0.33, 6.36,
89.97, 89.97, 98.61, 4.77, 3.92, 0.20, 6.32,
93.95, 93.95, 96.42, 5.57, 6.56, 0.18, 6.35,
88.55, 88.55, 87.41, 4.83, 5.64, 0.4 , 6.39,
88.97, 88.97, 89.09, 4.51, 2.98, 0.8 , 6.42,
96.50, 96.50, 97.23, 4.70, 2.89, 1.1 , 6.44,
104.19, 104.19, 103.08, 4.78, 3.40, 1.0 , 6.47,
101.16, 101.16, 98.05, 4.29, 0.79, 0.8 , 6.5 ,
100.08, 100.08, 97.75, 4.12, 1.46, 0.8 , 6.55,
105.34, 105.34, 104.05, 4.15, 1.88, 0.7 , 6.59,
115.24, 115.24, 115.84, 5.20, 3.15, 0.6 , 6.65,
115.05, 115.05, 113.42, 6.68, 5.37, 0.5 , 6.71,
110.11, 110.11, 105.78, 6.35, 5.80, 1.1 , 6.8 ,
112.21, 112.21, 101.21, 5.48, 4.06, 2.5 , 6.88,
112.07, 112.07, 96.64, 4.05, 3.36, 4.5 , 6.94,
111.72, 111.72, 97.66, 5.23, 0.79, 4.7 , 6.99,
110.99, 110.99, 98.30, 3.73, 1.83, 4.2 , 7.04,
113.96, 113.96, 100.76, 3.63, 0.86, 4.7 , 7.07,
128.35, 128.35, 114.06, 3.08, 0.42, 5.2 , 7.09,
131.57, 131.57, 119.09, 2.39, 0.02, 3.9 , 7.11,
139.15, 139.15, 123.79, 3.51, 0.89, 2.7 , 7.13),
byrow = TRUE,
ncol = 7,
dimnames = list(as.character(1964:1999),
c("GDPR","EXPO","IMPO","INTR","INFL","UNEM","POPU"))),
start = 1964)
|
