Skip to content

Instantly share code, notes, and snippets.

@AkselA
Last active May 16, 2018 20:04
Show Gist options
  • Save AkselA/942097c99bfa22ddc2e3d68d8a198ab8 to your computer and use it in GitHub Desktop.
Save AkselA/942097c99bfa22ddc2e3d68d8a198ab8 to your computer and use it in GitHub Desktop.
gdp.log.ger <-
structure(c(12.8840503491576, 12.8869726344706, 12.9204968561163,
12.9438274460798, 12.9508226975537, 12.9598326831315, 12.9699252303554,
12.9712706838341, 12.9832208431563, 12.9934043726069, 12.9994338713584,
13.0182776044722, 13.0243844396313, 13.035927107736, 13.0540973845342,
13.053452645401, 13.0710890302057, 13.0786225438817, 13.0798900201348,
13.0688845385587, 13.0832129017843, 13.0910336880674, 13.0984128394085,
13.0926667656675, 13.1055915127038, 13.1105701093852, 13.119314735013,
13.1262159467198, 13.1287012505881, 13.1327829050981, 13.1345626626113,
13.1421052185393, 13.1455993198096, 13.1555795609356, 13.1649649076113,
13.173060293994, 13.1804681211107, 13.1817750285751, 13.1809209231138,
13.2039931327435, 13.2072154247188, 13.2100738433077, 13.2176681026483,
13.2173316805937, 13.2177517359708, 13.2291277072538, 13.2297404584268,
13.2215062032288, 13.2221345014757, 13.2340192357447, 13.2355509813313,
13.2409585276508, 13.2484725433257, 13.2479082122106, 13.2471370327532,
13.2498925426482, 13.257285802095, 13.2671647742844, 13.2697897856204,
13.2792525897404, 13.2981972680627, 13.3086022514823, 13.3222104610641,
13.3374408854799, 13.3480716370407, 13.359023171372, 13.3637051323603,
13.3742094421193, 13.3745032426961, 13.3710561499247, 13.3543334600286,
13.3168292261946, 13.3213404576914, 13.3323989938769, 13.3441283789553,
13.3505454142055, 13.3703322154341, 13.3834067699044, 13.3949886632219,
13.4133150987237, 13.4177695421018, 13.4269276403545, 13.430715348023,
13.4371055017517, 13.4411021588013, 13.4493897130691, 13.449440186328,
13.4527356182524, 13.4658424373757, 13.4760845632917, 13.4841231715523,
13.4975575764497, 13.5007587163897, 13.5076829194195, 13.5202706636591,
13.5285828675615, 13.5387235844532, 13.5446488926295, 13.5534338521478,
13.5633204606829, 13.570039594766, 13.5752742543238, 13.5834486056741,
13.5936649140038, 13.6081837597166, 13.6218918277317, 13.6285783886126
), .Tsp = c(1991, 2017.5, 4), class = "ts")
inflation.seasadj.ger <-
structure(c(72.2, 72.1, 72.2, 72.3, 72.6, 72.6, 72.9, 72.8, 73,
73.1, 73.3, 73.7, 73.8, 74, 74.3, 74.8, 74.9, 74.7, 75, 74.8,
75.1, 75.1, 75.5, 75.9, 75.9, 76.6, 77.3, 77.7, 77.6, 77.6, 77.5,
77.3, 77.3, 77.6, 77.8, 78.3, 78.4, 78.3, 78.3, 78.4, 78.4, 78.1,
78.1, 77.7, 77.9, 78, 78, 78.2, 78.4, 78.8, 79.1, 79.2, 79.3,
78.8, 79.1, 79.1, 79.4, 79.2, 79.6, 79.9, 79.9, 80.1, 80.5, 80.7,
80.8, 80.6, 80.7, 80.6, 80.8, 80.9, 81, 81.3, 81.4, 81.9, 82.3,
82.5, 82.9, 83, 83.1, 83, 83.2, 83.6, 83.9, 84.9, 85.5, 86, 86.3,
86.6, 86.8, 87.2, 87.3, 87.4, 88.3, 88.7, 89.3, 90, 90, 90.8,
91.7, 91.7, 91.9, 92.7, 93.1, 93.1, 93.6, 93.8, 93.8, 95, 94.7,
95.2, 95.9, 96.1, 96.3, 96.5, 96.9, 96.6, 96.9, 97, 97.1, 98.1,
98, 98.5, 99.1, 99.6, 99.9, 100, 100, 99.9, 100.4, 100.3, 100.4,
100.3, 100.4, 100.5, 100.9, 100.9, 101, 100.4, 100.5, 100.5,
100.9, 100.9, 100.9, 100.8, 100.8, 101.5, 102.5, 102.5, 102.6,
102.4, 102.6, 102.5, 102.9, 103, 102.8, 102.8, 102.8, 103.1,
103.3, 103.4, 103.5, 103.2, 103.4, 103.2, 103.5, 103.5, 103.7,
103.5, 103.6, 103.9, 104.1, 104, 104.1, 103.8, 103.9, 103.7,
104, 104, 104, 103.9, 104, 104, 104.1, 104, 104.1, 103.8, 104,
103.8, 104.1, 104, 104, 103.8, 103.8, 104, 104.4, 104.5, 104.7,
104.4, 104.6, 104.6, 105.1, 105.3, 105.3, 105.2, 105.6, 105.7,
106.1, 106, 106.1, 106.1, 106.5, 106.6, 106.3, 106.8, 106.7,
107.2, 107.1, 107.1, 106.9, 107.1, 107.4, 108, 108.2, 108, 107.4,
107.5, 107.4, 107.5, 107.5, 107.6, 107.6, 107.6, 108.6, 108.7,
108.5, 107.9, 107.9, 108.1, 108.7, 108.5, 108.4, 108.5, 108.6,
109.1, 109.3, 109.1, 109.1, 108.2, 108.5, 108.6, 109.2, 109.1,
109.1, 108.7, 108.7, 109, 109.9, 110.1, 110.3, 109.2, 109.6,
109.6, 110.6, 110.7, 110.5, 110, 110.3, 110.5, 111.4, 111.3,
111.1, 110.5, 110.6, 111.1, 112.1, 111.8, 111.6, 111.4, 111.8,
111.7, 112.6, 112.8, 112.8, 112, 112.2, 112, 112.4, 112.3, 112.3,
111.6, 111.8, 111.9, 113.1, 113.4, 113.5, 112.8, 112.7, 112.8,
113.8, 114.3, 114.6, 114.3, 114.4, 114.8, 115.7, 116.6, 116.8,
116.3, 116, 116.1, 116.7, 116, 115.4, 114.4, 114.7, 114.3, 115.3,
115.5, 115.7, 114.9, 115.1, 115.1, 115.8, 116, 115.7, 115.6,
115.8, 115.9, 116.9, 116.8, 116.3, 115.4, 115.4, 115.4, 116,
116.3, 116.3, 115.9, 116.3, 117.1, 117.2, 117.2, 116.9, 116,
115.6, 115.9, 115.9, 115.7, 115.5, 115, 115.3, 116, 116.1, 116,
115.7, 115.1, 115.1, 115.5, 115.6, 115.2, 115, 114.7, 115, 115.3,
115.3, 115.4, 115.6, 115.1, 115.1, 115.4, 115.3, 115.3), start = structure(10270000002196, class = "ti"), class = "tis")
inflation.exp.ger <-
structure(c(72.2, 72.3, 72.425, 72.6, 72.725, 72.825, 72.95,
73.05, 73.275, 73.475, 73.7, 73.95, 74.225, 74.5, 74.675, 74.85,
74.85, 74.9, 75, 75.125, 75.4, 75.6, 75.975, 76.425, 76.875,
77.3, 77.55, 77.6, 77.5, 77.425, 77.425, 77.5, 77.75, 78.025,
78.2, 78.325, 78.35, 78.35, 78.3, 78.25, 78.075, 77.95, 77.925,
77.9, 78.025, 78.15, 78.35, 78.625, 78.875, 79.1, 79.1, 79.1,
79.075, 79.1, 79.2, 79.325, 79.525, 79.65, 79.875, 80.1, 80.3,
80.525, 80.65, 80.7, 80.675, 80.675, 80.75, 80.825, 81, 81.15,
81.4, 81.725, 82.025, 82.4, 82.675, 82.875, 83, 83.075, 83.225,
83.425, 83.9, 84.475, 85.075, 85.675, 86.1, 86.425, 86.725, 86.975,
87.175, 87.55, 87.925, 88.425, 89.075, 89.5, 90.025, 90.625,
91.05, 91.525, 92, 92.35, 92.7, 93.125, 93.4, 93.575, 94.05,
94.325, 94.675, 95.2, 95.475, 95.875, 96.2, 96.45, 96.575, 96.725,
96.85, 96.9, 97.275, 97.55, 97.925, 98.425, 98.8, 99.275, 99.65,
99.875, 99.95, 100.075, 100.15, 100.25, 100.35, 100.35, 100.4,
100.525, 100.675, 100.825, 100.8, 100.7, 100.6, 100.575, 100.7,
100.8, 100.875, 100.85, 101, 101.4, 101.825, 102.275, 102.5,
102.525, 102.525, 102.6, 102.75, 102.8, 102.875, 102.85, 102.875,
103, 103.15, 103.325, 103.35, 103.375, 103.325, 103.325, 103.4,
103.475, 103.55, 103.575, 103.675, 103.775, 103.9, 104.025, 104,
103.95, 103.875, 103.85, 103.9, 103.925, 103.975, 103.975, 103.975,
104, 104.025, 104.05, 104, 103.975, 103.925, 103.925, 103.975,
103.975, 103.975, 103.9, 103.9, 104, 104.175, 104.4, 104.5, 104.55,
104.575, 104.675, 104.9, 105.075, 105.225, 105.35, 105.45, 105.65,
105.85, 105.975, 106.075, 106.175, 106.325, 106.375, 106.55,
106.6, 106.75, 106.95, 107.025, 107.075, 107.05, 107.125, 107.35,
107.675, 107.9, 107.9, 107.775, 107.575, 107.45, 107.475, 107.5,
107.55, 107.575, 107.85, 108.125, 108.35, 108.425, 108.25, 108.1,
108.15, 108.3, 108.425, 108.525, 108.5, 108.65, 108.875, 109.025,
109.15, 108.925, 108.725, 108.6, 108.625, 108.85, 109, 109.025,
108.9, 108.875, 109.075, 109.425, 109.825, 109.875, 109.8, 109.675,
109.75, 110.125, 110.35, 110.45, 110.375, 110.325, 110.55, 110.875,
111.075, 111.075, 110.875, 110.825, 111.075, 111.4, 111.65, 111.725,
111.65, 111.625, 111.875, 112.225, 112.475, 112.55, 112.45, 112.25,
112.15, 112.225, 112.25, 112.15, 112, 111.9, 112.1, 112.55, 112.975,
113.2, 113.1, 112.95, 113.025, 113.4, 113.875, 114.25, 114.4,
114.525, 114.8, 115.375, 115.975, 116.35, 116.425, 116.3, 116.275,
116.2, 116.05, 115.625, 115.125, 114.7, 114.675, 114.95, 115.2,
115.35, 115.3, 115.2, 115.225, 115.5, 115.65, 115.775, 115.775,
115.75, 116.05, 116.35, 116.475, 116.35, 115.975, 115.625, 115.55,
115.775, 116, 116.125, 116.2, 116.4, 116.625, 116.95, 117.1,
116.825, 116.425, 116.1, 115.85, 115.775, 115.75, 115.525, 115.375,
115.45, 115.6, 115.85, 115.95, 115.725, 115.475, 115.35, 115.325,
115.35, 115.325, 115.125, 114.975, 115, 115.075, 115.25, 115.4,
115.35, 115.3, 115.3, 115.225, 115.275), start = structure(10270000002199, class = "ti"), class = "tis")
interest.ger <-
structure(c(5.35557238134039, 5.65423925618318, 5.13622072240136,
4.55413642305029, 3.71787392697849, 3.26037157258996, 3.28095420515844,
3.29783174035887, 3.47781738532444, 3.49437293612889, 3.72163754549162,
3.84408249017092, 4.06690790851614, 4.1446596728808, 4.27721536907248,
4.14623030125552, 4.09449240844335, 4.18560930660039, 4.63981100054776,
4.7121323361927, 5.12883105832718, 5.54727355900921, 5.92290660730055,
6.22341845137662, 7.11106593622199, 7.3253747617984, 7.13042433548532,
5.97172051411505, 4.56712297046551, 3.8558656869252, 3.51957985417817,
3.8610891554008, 4.02174474418486, 3.82346231316841, 4.23658606616291,
4.22829946772347, 5.18790684145203, 6.78957755021998, 8.0955777116722,
10.1656568645963, 10.7750764991825, 9.73853260939899, 9.02759451458681,
8.20283904090853, 7.32272118152342, 7.44606149789939, 6.77781156936892,
5.80712176217568, 5.71513816400124, 4.50891159990188, 7.57743921458531,
9.18435535875248, 14.0419316383852, 14.9575290056527, 14.1178056651345,
12.6410371718056, 11.0504236028251, 9.89626938705202, 8.89973682896865,
7.07766429233585, 5.69857669197553, 4.28836812363278, 3.84307224425418,
4.13538427492242, 4.25898808637195, 4.68901648273106, 4.76488566527071,
4.94389544062135, 4.7179504834868, 4.32996714101299, 4.06006402761478,
3.79609544096395, 3.66188016268261, 3.81380424085245, 3.91010496344097,
4.61063115980445, 6.07337353840198, 7.75557867353165, 9.78085290211559,
10.0538566420945, 10.4046444586366, 10.0000032100844, 10.5649304483193,
12.2918218267592, 13.6457804054952, 13.5428226016878, 12.3832078638194,
11.2687387423951, 9.70571375727047, 9.01305530789178, 7.50517458580322,
6.21597437782109, 5.74004242964374, 5.81014232275079, 6.4184163977542,
6.4693089315514, 6.37037832492013, 6.34245883381412, 6.14855766051217,
6.3273429016393, 6.04967934221401, 5.2631860335149, 4.9875706048764,
4.78108266201254, 4.79409311085417, 4.80993832963175, 4.70492528569579,
4.39327964091005, 4.09384666154318, 4.16225556135519, 4.01819811978343,
3.68691767272542, 3.91435897298329, 5.51392769408741, 5.1424233310261,
6.39039983797878, 7.24499841261201, 7.77689836874453, 8.46503046729321,
8.67166062565128, 8.84963109457471, 9.06134228709401, 9.33974999724725,
9.56778657130586, 9.70751735717581, 9.90866420403565, 10.0801258989762,
10.3581635863144, 10.3971603688386, 10.3385810419606, 9.52714136869548,
8.74932392442107, 8.11714459129194, 7.20165036633724, 6.58574899339055,
6.05056584696069, 5.58018097698514, 5.29852094897063, 5.38465196968898,
5.21812695674604, 4.84675059954163, 4.5913900970064, 4.07203560184872,
3.70982915819822, 3.50266598028381, 3.38000354417156, 3.18282229178484,
3.27314292367979, 3.32976414802579, 3.38343875901737, 3.6586987321636,
3.64454089094062, 3.7948146158798, 3.68283501586431, 3.43669424239905,
3.16555075952931, 2.80262109165974, 2.85641961411505, 3.38452040878434,
3.86173549235485, 4.44541261612672, 4.89885908282544, 5.15567643489052,
4.97271225405667, 4.72034580967617, 4.33381215892223, 3.60685785482138,
3.53385476016745, 3.51249208281221, 3.37259127771301, 3.19363958387131,
2.76224105709386, 2.44481466831683, 2.19806971073306, 2.17309505810128,
2.26277062819573, 2.15259936154468, 2.19269951680376, 2.18983785824214,
2.14000501378124, 2.18834248328099, 2.20010383661118, 2.36143676501575,
2.68129278503981, 2.98602962054242, 3.27090641492713, 3.63242231301262,
4.02644503599252, 4.24942586755106, 4.52690793717871, 4.77567632144318,
5.10003373506962, 5.1346239656193, 4.94365644459258, 4.09328685040382,
2.32600760779229, 1.4863967759591, 0.788184698576733, 0.543001511592922,
0.774219432020606, 0.741022729446694, 0.839516748976732, 0.970660699277159,
1.15589131520193, 1.46897151616208, 1.56401297889317, 1.45956484816641,
1.23445225641425, 0.729965804965516, 0.375122725188359, 0.196131285796364,
0.158516042744461, 0.191601356699955, 0.238406567316929, 0.257749238213556,
0.257739981275096, 0.27688962968031, 0.171097229780903, 0.0991262798613279,
-0.00149597762337805, -0.0084472129191715, -0.025177017668776,
-0.08365922680722, -0.0554751024051447, -0.249168240480735, -0.294869794233332,
-0.324704745459981, -0.368654905707033, -0.33007257566352, -0.356317518522098,
-0.356269651191377, -0.344226028709149), start = structure(10320000000642, class = "ti"), class = "tis")
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment