present_data <- c(0.053625901,0.111225635,0.061583986,0.04953843,-0.04425217,0.045432862,0.053131705,0.036051138,0.033156325,0.017370164,0.01693651,-0.033192967,-0.009566498, 0.001906578,-0.01413689,-0.016588913,0.039361074,-0.006524126,-0.009188426,-0.10365119,0.039122759,0.025317808,0.013974744,-0.080585547,-0.028393075,0.053851495, 0.087045362,0.112010257,0.07384725,0.065768262,0.061875404,0.074426325,0.133358247,0.044928776,0.178827668,0.094033684,0.00656697,0.034724415,0.052906734, 0.062421106,0.089007503,0.055362898,0.084993213,0.066701443,0.051751065,0.038409448,0.109096045,0.09364836,0.027576768,0.096911461,0.045885296,0.022359932, -0.025553074,-0.023087134,-0.076149682,0.001111729,0.01839953,-0.017401666,-0.005865119,-0.008915364,0.017465063,0.016250734,0.026223195,0.050460623,0.023558927, 0.010201109,-0.026419563,-0.008337241,0.013626252,-0.005874186,0.070442951,0.042844572,0.021475414,0.096037188,0.040821995,0.025063969,0.047306117,0.047578777, 0.030459207,0.004846892,0.031605339,0.019482678,0.026162046,-0.026881802,0.038337521,0.045736009,0.080235963,0.085390314,0.061548125,0.046127047,0.056089467, 0.0588405,-0.029947076,0.139060434,0.25812327,0.163160847,0.09244636,0.050674291,0.056977435,0.074047642,0.117783036,0.085845676,0.079288275,0.070092377, 0.088224233,0.139471076,0.147506137,0.131206056,0.063513406,0.143100844,0.164575197,0.191757237,0.14268513,0.137201122,0.134850944,0.112049504,0.15082289, 0.16697328,0.156712882,0.176186568,0.132343979,0.054245015,0.044160896,0.022472856,0.008697508,0.009717631,0.004264399,0.024575329,0.026059214,0.030350695, 0.012848142,0.00445435,-0.033839534,0.016093933,0.030172952,0.04940665,0.048426594,0.057522147,0.049809045,0.063550246,0.059514128,0.048426594,0.035156257, 0.050229402,0.057819571,0.065091114,0.068722705,0.05411861,0.055262679,0.039021814,0.033320888,0.031755749,0.040596121,0.044451763,0.066971022,0.055262679, 0.01162284,0.030332031,0.039455378,0.048134641,0.035342529,0.022672676,0.026276284,0.01342302,-0.036502089,0.029066542,0.089583291,0.079180403,0.0707684, 0.054426511,0.038740828,0.051148242,0.066563763,0.120114583,0.068257798,0.085037043,0.15312388,0.17346838,0.120648954,0.12426096,0.108977819,0.064006639, 0.072519409,0.077099459,0.090295452,0.036002559,0.027430712,0.027315811,0.043701281,0.037683434,0.031004374,-0.000195332,-0.098094152,-0.083045085,-0.084702796, -0.101605999,-0.053671417,-0.034270768,-0.026883339,-0.052736296,-0.170019686,-0.12382535,-0.028202593,0.033099948,0.083150368,0.087968773,0.159914385,0.092709398, 0.080262464,0.0609607,0.052773412,0.03736776,0.022599832,-0.037108659,0.0615022,0.10697212,0.084993213,0.061557893,0.022739487,0.038915416,0.015748357,-0.088876006, 0.098347866,0.10146946,0.138469674,0.146523363,0.158609297,0.161598097,0.122217633,0.103378354,0.104360015,0.165514438,0.273836666,0.446675377,0.29951653,0.230112221, 0.226863332,0.209413359,0.222106745,0.171608512,0.187425469,0.155292884,0.170849156,0.140229341,0.106609735,0.145537565) future_data <- c(0.126605624,0.100491539,0.115939717,0.119545151,0.099845335,0.086585605,0.087011377,0.071439764,0.085557888,0.068575248,0.058599233,0.093784148,0.042157896, 0.027707807,0.022599832,0.022717143,0.022599832,0.022642477,0.020735898,0.01661594,0.016965534,0.019802627,0.020735898,0.020735898,0.018582917,0.113124125, 0.056806913,0.027711213,0.133496592,0.103531013,-0.235953678,0.025674288,0.029495563,0.223143551,0.302954997,0.330429013,0.328354802,0.340261477,0.806007129)