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.
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.
MA(2) En los retrasos 1 y 2 tiene correlacion distinta de cero.
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