1. FUNCION AUTOCORRELACION.

\[ Y_t= 5+e_t- \frac{1}{2}e_{t-1}+{\frac{1}{4}}e_{t-2}\\ \epsilon(Y_t)=0\\ var(Y_t)= var(5+e_t- \frac{1}{2}e_{t-1}+{\frac{1}{4}}e_{t-2})\\ var(Y_t)= \sigma^2+\frac{1}{4}\sigma^2+\frac{1}{16}\sigma^2\\ Var(Y_t)= \frac{21}{16}\sigma^2\\ Cov(Y_t,Y_{t-1})= Cov(e_t-\frac{1}2e_{t-1}+\frac{1}4e_{t-2},e_{t-1}-\frac{1}2e_{t-2}+\frac{1}4e_{t-3})\\ Cov(Y_t,Y_{t-1})=Cov(-\frac{1}2e_{t-1},e_{t-1})-Cov(\frac{1}{4}e_{t-2},\frac{1}{2}e_{t-2})\\ Cov(Y_t,Y_{t-1})=-\frac{1}{2}Var(e_{t-1})- \frac{1}{8}Var(e_{t-2})\\ Cov(Y_t,Y_{t-1})=-\frac{1}{2}\sigma^2-\frac{1}{8}\sigma^2\\ Cov(Y_t,Y_{t-1})=-\frac{5}{8}\sigma^2\\ Corr(Y_t,Y_{t-1})=-\frac{\frac{5}{8}{\sigma^2}}{\frac{21}{16}\sigma^2}\\ Corr(Y_t,Y_{t-1})=-\frac{10}{21}\sigma^2 \]

2. Grafica funcion de autocorrelacion MA(2)

\[ \theta 1= -1.2 \\ \theta 2= 0.7 \]

\[ \theta 1= 1 \\ \theta 2= 0.6 \]

3. Demostar si cambia la funcion de correlacion.

\[ \frac{-1}{\theta}/1+(1\theta) = \frac{-\theta}{1+\theta^2} \]

4. Calcular y graficar las funciones de autocorrelacion.

\[ a) \Phi= 0.6 \]

ARMAacf(ar=0.6, lag.max = 12)
          0           1           2           3           4           5           6           7           8 
1.000000000 0.600000000 0.360000000 0.216000000 0.129600000 0.077760000 0.046656000 0.027993600 0.016796160 
          9          10          11          12 
0.010077696 0.006046618 0.003627971 0.002176782 

\[ b) \Phi= 0.6 \]

\[ c) \Phi= 0.95 \]

\[ d) \Phi= 0.3 \]

5. Caracteristicas generales de la funcion de autocorrelacion.

  1. MA(1) Es correlación no nula solo en el retraso 1. Debe estar entre -0.5 y +0.5, puede ser positivo o negativo.

  2. MA(2) En los retrasos 1 y 2 tiene correlacion distinta de cero.

  3. AR(1) Son autocorrelaciones en descomposición exponencial a partir del retraso 0. Si > 0, entonces todas las autocorrelaciones son positivas.

6. Ecuacion Yule- Walke.

\[ \Phi1= 0.6 \\ \Phi2=0.3 \]

rho 
 [1] 0.8571429 0.8142857 0.7457143 0.6917143 0.6387429 0.5907600 0.5460789 0.5048753 0.4667488 0.4315119 0.3989318
[12] 0.3688126 0.3409671 0.3152241 0.2914246 0.2694220 0.2490806 0.2302749 0.2128891 0.1968159

\[ \Phi1= -0.4 \\ \Phi2=0.5 \]

rho 
 [1] -0.8000000  0.8200000 -0.7280000  0.7012000 -0.6444800  0.6083920 -0.5655968  0.5304347 -0.4949723  0.4632063
[11] -0.4327687  0.4047106 -0.3782686  0.3536627 -0.3305994  0.3090711 -0.2889281  0.2701068 -0.2525068  0.2360561

\[ \Phi1= 1.2 \\ \Phi2= -0.7 \]

rho
 [1]  0.70588235  0.14705882 -0.31764706 -0.48411765 -0.35858824 -0.09142353  0.14130353  0.23356071  0.18136038
[10]  0.05413996 -0.06198431 -0.11227915 -0.09134596 -0.03101975  0.02671848  0.05377599  0.04582826  0.01735071
[19] -0.01125892 -0.02565621

\[ \Phi1= -1 \\ \Phi2= -0.6 \]

rho 
 [1] -0.6250000000  0.0250000000  0.3500000000 -0.3650000000  0.1550000000  0.0640000000 -0.1570000000  0.1186000000
 [9] -0.0244000000 -0.0467600000  0.0614000000 -0.0333440000 -0.0034960000  0.0235024000 -0.0214048000  0.0073033600
[17]  0.0055395200 -0.0099215360  0.0065978240 -0.0006449024

\[ \Phi1= 0.5 \\ \Phi2= -0.9 \]

rho
 [1]  0.26315789 -0.76842105 -0.62105263  0.38105263  0.74947368  0.03178947 -0.65863158 -0.35792632  0.41380526
[10]  0.52903632 -0.10790658 -0.53008597 -0.16792707  0.39311384  0.34769128 -0.17995682 -0.40290056 -0.03948914
[19]  0.34286593  0.20697320

\[ \Phi1= -0.5 \\ \Phi2= -0.6 \]

rho
 [1] -0.3125000000 -0.4437500000  0.4093750000  0.0615625000 -0.2764062500  0.1012656250  0.1152109375 -0.1183648437
 [9] -0.0099441406  0.0759909766 -0.0320290039 -0.0295800840  0.0340074443  0.0007443282 -0.0207766307  0.0099417184
[17]  0.0074951192 -0.0097125907  0.0003592238  0.0056479425

7. Graficas de las funciones de autocorrelacion

\[ a) ARMA(1,1)= \phi=0.7 \\ \theta=-0.4 \]

\[ b)ARMA(1,1)= \phi=0.7 \\ \theta=0.4 \]

8. Considerando los procesos MA(2)

\[ a1) \phi1.1= \phi2=-1/6 \]

\[ \phi=1 \\ \phi2=-6 \]

ARMAacf(ma=c(1,-6))
         0          1          2          3 
 1.0000000 -0.1315789 -0.1578947  0.0000000 
ARMAacf(ma=c(-1/6,-1/6))
         0          1          2          3 
 1.0000000 -0.1315789 -0.1578947  0.0000000 

9 Considere un proceso AR(1) Yt=Yt???1+et. Mostrar que si Phi= 1 el proceso no puede ser estacionario. (Pista: Tomar varianzas de ambos lados).

\[ Var(Y_t)=\phi^2Var(Y_{t-1})+\sigma^2_e \]

10. MA(6) con

ARMAacf(ma=c(-0.5, 0.25, -0.125, 0.0625, -0.0325, 0.015625))
          0           1           2           3           4           5           6           7 
 1.00000000 -0.49995181  0.24987336 -0.12474625  0.06199227 -0.03023441  0.01171876  0.00000000 
ARMAacf(ar= -0.5, lag.max = 7)
         0          1          2          3          4          5          6          7 
 1.0000000 -0.5000000  0.2500000 -0.1250000  0.0625000 -0.0312500  0.0156250 -0.0078125 
LS0tDQp0aXRsZTogVEFSRUEgNQ0KYXV0aG9yOiBESUFOQSBMQVVSQSBHQUxJTkRPIFNBTlRJQUdPDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KDQpgYGB7cn0NCmxpYnJhcnkoZ2dwbG90MikNCmxpYnJhcnkoZ2dmb3J0aWZ5KQ0KbGlicmFyeShmb3JlY2FzdCkNCmxpYnJhcnkoZm9yZWlnbikNCmxpYnJhcnkoVFNBKQ0KYGBgDQoNCiMgMS4gRlVOQ0lPTiBBVVRPQ09SUkVMQUNJT04uDQoNCiQkDQpZX3Q9IDUrZV90LSBcZnJhY3sxfXsyfWVfe3QtMX0re1xmcmFjezF9ezR9fWVfe3QtMn1cXA0KXGVwc2lsb24oWV90KT0wXFwNCnZhcihZX3QpPSB2YXIoNStlX3QtIFxmcmFjezF9ezJ9ZV97dC0xfSt7XGZyYWN7MX17NH19ZV97dC0yfSlcXA0KdmFyKFlfdCk9IFxzaWdtYV4yK1xmcmFjezF9ezR9XHNpZ21hXjIrXGZyYWN7MX17MTZ9XHNpZ21hXjJcXA0KVmFyKFlfdCk9IFxmcmFjezIxfXsxNn1cc2lnbWFeMlxcDQpDb3YoWV90LFlfe3QtMX0pPSBDb3YoZV90LVxmcmFjezF9MmVfe3QtMX0rXGZyYWN7MX00ZV97dC0yfSxlX3t0LTF9LVxmcmFjezF9MmVfe3QtMn0rXGZyYWN7MX00ZV97dC0zfSlcXA0KQ292KFlfdCxZX3t0LTF9KT1Db3YoLVxmcmFjezF9MmVfe3QtMX0sZV97dC0xfSktQ292KFxmcmFjezF9ezR9ZV97dC0yfSxcZnJhY3sxfXsyfWVfe3QtMn0pXFwNCkNvdihZX3QsWV97dC0xfSk9LVxmcmFjezF9ezJ9VmFyKGVfe3QtMX0pLSBcZnJhY3sxfXs4fVZhcihlX3t0LTJ9KVxcDQpDb3YoWV90LFlfe3QtMX0pPS1cZnJhY3sxfXsyfVxzaWdtYV4yLVxmcmFjezF9ezh9XHNpZ21hXjJcXA0KQ292KFlfdCxZX3t0LTF9KT0tXGZyYWN7NX17OH1cc2lnbWFeMlxcDQpDb3JyKFlfdCxZX3t0LTF9KT0tXGZyYWN7XGZyYWN7NX17OH17XHNpZ21hXjJ9fXtcZnJhY3syMX17MTZ9XHNpZ21hXjJ9XFwNCkNvcnIoWV90LFlfe3QtMX0pPS1cZnJhY3sxMH17MjF9XHNpZ21hXjINCiQkDQoNCg0KDQojIDIuIEdyYWZpY2EgZnVuY2lvbiBkZSBhdXRvY29ycmVsYWNpb24gTUEoMikNCg0KDQpgYGB7cn0NCm1hMjwtYXJpbWEuc2ltKG1vZGVsPWxpc3QobWE9YygtMC41LC0wLjQpKSxuPTEwMCkNCnBsb3QobWEyLHR5cGU9J28nLG1haW49J01BKDIpICB0aGV0YTE9LTAuNSwgIHRoZXRhMj0tMC40JykNCmBgYA0KDQokJA0KXHRoZXRhIDE9IC0xLjIgICAgXFwgICBcdGhldGEgMj0gMC43DQokJA0KDQoNCmBgYHtyfQ0KbWEyPC1hcmltYS5zaW0obW9kZWw9bGlzdChtYT1jKC0xLjIsMC43KSksbj0xMDApDQpwbG90KG1hMix0eXBlPSdvJyxtYWluPSdNQSgyKTsgIHRoZXRhMT0tMS4yLCAgdGhldGEyPTAuNycpDQpgYGANCg0KDQokJA0KXHRoZXRhIDE9IDEgICAgXFwgICBcdGhldGEgMj0gMC42DQokJA0KDQoNCmBgYHtyfQ0KbWEyPC1hcmltYS5zaW0obW9kZWw9bGlzdChtYT1jKDEsMC42KSksbj0xMDApDQpwbG90KG1hMix0eXBlPSdvJyxtYWluPSdNQSgyKTsgIHRoZXRhMT0tMC41LCAgdGhldGEyPS0wLjQnKQ0KYGBgDQoNCg0KDQojIDMuIERlbW9zdGFyIHNpIGNhbWJpYSBsYSBmdW5jaW9uIGRlIGNvcnJlbGFjaW9uLg0KDQokJA0KXGZyYWN7LTF9e1x0aGV0YX0vMSsoMVx0aGV0YSkgPSBcZnJhY3stXHRoZXRhfXsxK1x0aGV0YV4yfSANCiQkDQoNCg0KIyA0LiBDYWxjdWxhciB5IGdyYWZpY2FyIGxhcyBmdW5jaW9uZXMgZGUgYXV0b2NvcnJlbGFjaW9uLg0KDQokJA0KYSkgXFBoaT0gMC42DQokJA0KDQoNCmBgYHtyfQ0KQVJNQWFjZihhcj0wLjYsIGxhZy5tYXggPSAxMikNCmBgYA0KDQpgYGB7cn0NCkFDRjE8LUFSTUFhY2YoYXI9MC42LGxhZy5tYXg9MTIpDQpwbG90KHk9QUNGMVstMV0seD0xOjEyLG1haW49J3BoaT0wLjYnLHhsYWI9J0xhZycseWxhYj0nQUNGJyx0eXBlPSdoJyk7YWJsaW5lKGg9MCkNCmBgYA0KDQoNCg0KJCQNCmIpIFxQaGk9IDAuNg0KJCQNCg0KDQpgYGB7cn0NCkFDRjI8LUFSTUFhY2YoYXI9LTAuNixsYWcubWF4PTEyKQ0KcGxvdCh5PSBBQ0YyWy0xXSwgeD0gMToxMiwgbWFpbj0gJ3BoaT0gMC42JywgeGxhYiA9ICdMYWcnLCB5bGFiID0gJ0FDRicsIHR5cGUgPSAnaCcpOyBhYmxpbmUgKGg9MCkNCmBgYA0KDQoNCiQkDQpjKSBcUGhpPSAwLjk1IA0KJCQNCg0KDQpgYGB7cn0NCkFDRjM8LUFSTUFhY2YoYXI9MC45NSxsYWcubWF4PTIwKQ0KcGxvdCh5PUFDRjNbLTFdLHg9MToyMCxtYWluPSdwaGk9MC45NScseGxhYj0nTGFnJyx5bGFiPSdBQ0YnLHR5cGU9J2gnKTthYmxpbmUoaD0wKQ0KYGBgDQoNCg0KJCQNCmQpIFxQaGk9IDAuMw0KJCQNCg0KDQpgYGB7cn0NCkFDRjQ8LUFSTUFhY2YoYXI9LTAuMyxsYWcubWF4PTEyKQ0KcGxvdCh5PUFDRjRbLTFdLHg9MToxMixtYWluPSdwaGk9LTAuMycseGxhYj0nTGFnJyx5bGFiPSdBQ0YnLHR5cGU9J2gnKTthYmxpbmUoaD0wKQ0KYGBgDQoNCg0KDQoNCiMgNS4gQ2FyYWN0ZXJpc3RpY2FzIGdlbmVyYWxlcyBkZSBsYSBmdW5jaW9uIGRlIGF1dG9jb3JyZWxhY2lvbi4gDQoNCmEpIE1BKDEpIEVzIGNvcnJlbGFjafNuIG5vIG51bGEgc29sbyBlbiBlbCByZXRyYXNvIDEuIERlYmUgZXN0YXIgZW50cmUgLTAuNSB5ICswLjUsIHB1ZWRlIHNlciBwb3NpdGl2byBvIG5lZ2F0aXZvLg0KDQpiKSBNQSgyKSBFbiBsb3MgcmV0cmFzb3MgMSB5IDIgdGllbmUgY29ycmVsYWNpb24gZGlzdGludGEgZGUgY2Vyby4NCg0KYykgQVIoMSkgU29uIGF1dG9jb3JyZWxhY2lvbmVzIGVuIGRlc2NvbXBvc2ljafNuIGV4cG9uZW5jaWFsIGEgcGFydGlyIGRlbCByZXRyYXNvIDAuIFNpID4gMCwgZW50b25jZXMgdG9kYXMgbGFzIGF1dG9jb3JyZWxhY2lvbmVzIHNvbiBwb3NpdGl2YXMuIA0KDQoNCg0KIyA2LiBFY3VhY2lvbiBZdWxlLSBXYWxrZS4NCg0KJCQNClxQaGkxPSAwLjYgXFwNClxQaGkyPTAuMw0KJCQNCg0KYGBge3J9DQpyaG89TlVMTDsgcGhpMT0wLjY7IHBoaTI9MC4zOyBtYXgubGFnPTIwDQpyaG8xPXBoaTEvKDEtcGhpMik7IHJobzI9KHBoaTIqKDEtcGhpMikrcGhpMV4yKS8oMS1waGkyKQ0KcmhvWzFdPXJobzE7IHJob1syXT1yaG8yDQpmb3IgKGsgaW4gMzptYXgubGFnKSByaG9ba109cGhpMSpyaG9bay0xXStwaGkyKnJob1trLTJdDQpyaG8gDQpgYGANCg0KJCQNClxQaGkxPSAtMC40IFxcDQpcUGhpMj0wLjUNCiQkDQoNCg0KYGBge3J9DQpyaG89TlVMTDsgcGhpMT0tMC40OyBwaGkyPTAuNTsgbWF4LmxhZz0yMA0KcmhvMT1waGkxLygxLXBoaTIpOyByaG8yPShwaGkyKigxLXBoaTIpK3BoaTFeMikvKDEtcGhpMikNCnJob1sxXT1yaG8xOyByaG9bMl09cmhvMg0KZm9yIChrIGluIDM6bWF4LmxhZykgcmhvW2tdPXBoaTEqcmhvW2stMV0rcGhpMipyaG9bay0yXQ0KcmhvIA0KYGBgDQoNCg0KJCQNClxQaGkxPSAxLjIgXFwNClxQaGkyPSAtMC43DQokJA0KDQoNCg0KYGBge3J9DQpyaG89TlVMTDsgcGhpMT0xLjI7IHBoaTI9LTAuNzsgbWF4LmxhZz0yMA0KcmhvMT1waGkxLygxLXBoaTIpOyByaG8yPShwaGkyKigxLXBoaTIpK3BoaTFeMikvKDEtcGhpMikNCnJob1sxXT1yaG8xOyByaG9bMl09cmhvMg0KZm9yIChrIGluIDM6bWF4LmxhZykgcmhvW2tdPXBoaTEqcmhvW2stMV0rcGhpMipyaG9bay0yXQ0KcmhvDQpgYGANCg0KDQokJA0KXFBoaTE9IC0xIFxcDQpcUGhpMj0gLTAuNg0KJCQNCg0KDQpgYGB7cn0NCnJobz1OVUxMOyBwaGkxPS0xOyBwaGkyPS0wLjY7IG1heC5sYWc9MjANCnJobzE9cGhpMS8oMS1waGkyKTsgcmhvMj0ocGhpMiooMS1waGkyKStwaGkxXjIpLygxLXBoaTIpDQpyaG9bMV09cmhvMTsgcmhvWzJdPXJobzINCmZvciAoayBpbiAzOm1heC5sYWcpIHJob1trXT1waGkxKnJob1trLTFdK3BoaTIqcmhvW2stMl0NCnJobyANCmBgYA0KDQoNCiQkDQpcUGhpMT0gMC41IFxcDQpcUGhpMj0gLTAuOQ0KJCQNCg0KYGBge3J9DQpyaG89TlVMTDsgcGhpMT0wLjU7IHBoaTI9LTAuOTsgbWF4LmxhZz0yMA0KcmhvMT1waGkxLygxLXBoaTIpOyByaG8yPShwaGkyKigxLXBoaTIpK3BoaTFeMikvKDEtcGhpMikNCnJob1sxXT1yaG8xOyByaG9bMl09cmhvMg0KZm9yIChrIGluIDM6bWF4LmxhZykgcmhvW2tdPXBoaTEqcmhvW2stMV0rcGhpMipyaG9bay0yXQ0KcmhvDQpgYGANCg0KDQoNCiQkDQpcUGhpMT0gLTAuNSBcXA0KXFBoaTI9IC0wLjYNCiQkDQoNCg0KYGBge3J9DQpyaG89TlVMTDsgcGhpMT0tMC41OyBwaGkyPS0wLjY7IG1heC5sYWc9MjANCnJobzE9cGhpMS8oMS1waGkyKTsgcmhvMj0ocGhpMiooMS1waGkyKStwaGkxXjIpLygxLXBoaTIpDQpyaG9bMV09cmhvMTsgcmhvWzJdPXJobzINCmZvciAoayBpbiAzOm1heC5sYWcpIHJob1trXT1waGkxKnJob1trLTFdK3BoaTIqcmhvW2stMl0NCnJobw0KYGBgDQoNCg0KIyA3LiBHcmFmaWNhcyBkZSBsYXMgZnVuY2lvbmVzIGRlIGF1dG9jb3JyZWxhY2lvbiANCg0KJCQNCmEpIEFSTUEoMSwxKT0gXHBoaT0wLjcgXFwgXHRoZXRhPS0wLjQNCiQkDQoNCg0KDQpgYGB7cn0NCkFDRj1BUk1BYWNmKGFyPTAuNyxtYT0tMC40LGxhZy5tYXg9MjApDQogcGxvdCh5PUFDRlstMV0seD0xOjIwLHhsYWI9J0xhZycseWxhYj0nQUNGJyx0eXBlPSdoJyk7ICBhYmxpbmUoaD0wKQ0KYGBgDQoNCg0KJCQNCmIpQVJNQSgxLDEpPSBccGhpPTAuNyBcXCBcdGhldGE9MC40DQokJA0KDQoNCmBgYHtyfQ0KQUNGPUFSTUFhY2YoYXI9MC43LG1hPTAuNCxsYWcubWF4PTIwKQ0KIHBsb3QoeT1BQ0ZbLTFdLHg9MToyMCx4bGFiPSdMYWcnLHlsYWI9J0FDRicsdHlwZT0naCcpOyAgYWJsaW5lKGg9MCkNCmBgYA0KDQoNCg0KIyA4LiBDb25zaWRlcmFuZG8gbG9zIHByb2Nlc29zIE1BKDIpDQoNCiQkDQphMSkgXHBoaTEuMT0gXHBoaTI9LTEvNiANCiQkDQoNCg0KJCQNClxwaGk9MSBcXCBccGhpMj0tNiANCiQkDQoNCg0KDQpgYGB7cn0NCkFSTUFhY2YobWE9YygxLC02KSkNCmBgYA0KDQoNCg0KYGBge3J9DQpBUk1BYWNmKG1hPWMoLTEvNiwtMS82KSkNCmBgYA0KDQoNCiMgOSBDb25zaWRlcmUgdW4gcHJvY2VzbyBBUigxKSBZdD1ZdD8/PzErZXQuIE1vc3RyYXIgcXVlIHNpIFBoaT0gMSBlbCBwcm9jZXNvIG5vIHB1ZWRlIHNlciBlc3RhY2lvbmFyaW8uIChQaXN0YTogVG9tYXIgdmFyaWFuemFzIGRlIGFtYm9zIGxhZG9zKS4NCg0KDQokJA0KVmFyKFlfdCk9XHBoaV4yVmFyKFlfe3QtMX0pK1xzaWdtYV4yX2UNCiQkDQoNCg0KDQojIDEwLiBNQSg2KSBjb24NCg0KYGBge3J9DQpBUk1BYWNmKG1hPWMoLTAuNSwgMC4yNSwgLTAuMTI1LCAwLjA2MjUsIC0wLjAzMjUsIDAuMDE1NjI1KSkNCmBgYA0KDQpgYGB7cn0NCkFSTUFhY2YoYXI9IC0wLjUsIGxhZy5tYXggPSA3KQ0KYGBgDQoNCg0KDQoNCg0KDQoNCg0KDQoNCg0KDQoNCg0KDQoNCg0KDQoNCg0KDQoNCg0K