exercicio 04 reposta

Prévia do material em texto

EXERCICIO 04
ECONOMETRIA DE SERIES TEMPORAIS
Econometria de series temporais
Amanda Steffany da silva Araujo
Ciências econômicas
Noite
 EXERCÍCIO 04
 Considere as variáveis e (emprego), prod (produtividade do trabalho), rw (salário real) e U (desemprego), do trabalho de Pfaff (2008), referente à economia do Canadá. Pede-se: 
1. Calcule as estatísticas descritivas e mostre os gráficos dessas variáveis; 
2. Examine a matriz de efeitos contemporâneos de um VAR para as quatro variáveis acima, e proponha uma ordem de entrada para as referidas variáveis baseado na teoria econômica. Comente sua decisão; 
3. Escreva o modelo primitivo do VAR para p=2; 
4. Escreva o modelo reduzido do VAR para P=2; 
5. Proponha uma decomposição triangular (Cholesky) para o VAR. 
library(vars)
> data("Canada"); Canada
 e prod rw U
1980 Q1 929.6105 405.3665 386.1361 7.53
1980 Q2 929.8040 404.6398 388.1358 7.70
1980 Q3 930.3184 403.8149 390.5401 7.47
1980 Q4 931.4277 404.2158 393.9638 7.27
1981 Q1 932.6620 405.0467 396.7647 7.37
1981 Q2 933.5509 404.4167 400.0217 7.13
1981 Q3 933.5315 402.8191 400.7515 7.40
1981 Q4 933.0769 401.9773 405.7335 8.33
1982 Q1 932.1238 402.0897 409.0504 8.83
1982 Q2 930.6359 401.3067 411.3984 10.43
1982 Q3 929.0971 401.6302 413.0194 12.20
1982 Q4 928.5633 401.5638 415.1670 12.77
1983 Q1 929.0694 402.8157 414.6621 12.43
1983 Q2 930.2655 403.1421 415.7319 12.23
1983 Q3 931.6770 403.0786 416.2315 11.70
1983 Q4 932.1390 403.7188 418.1439 11.20
1984 Q1 932.2767 404.8668 419.7352 11.27
1984 Q2 932.8328 405.6362 420.4842 11.47
1984 Q3 933.7334 405.1363 420.9309 11.30
1984 Q4 934.1772 406.0246 422.1124 11.17
1985 Q1 934.5928 406.4123 423.6278 11.00
1985 Q2 935.6067 406.3009 423.9887 10.63
1985 Q3 936.5111 406.3354 424.1902 10.27
1985 Q4 937.4201 406.7737 426.1270 10.20
1986 Q1 938.4159 405.1525 426.8578 9.67
1986 Q2 938.9992 404.9298 426.7457 9.60
1986 Q3 939.2354 404.5765 426.8858 9.60
1986 Q4 939.6795 404.1995 428.8403 9.50
1987 Q1 940.2497 405.9499 430.1223 9.50
1987 Q2 941.4358 405.8221 430.2307 9.03
1987 Q3 942.2981 406.4463 430.3930 8.70
1987 Q4 943.5322 407.0512 432.0284 8.13
1988 Q1 944.3490 407.9460 433.3886 7.87
1988 Q2 944.8215 408.1796 433.9641 7.67
1988 Q3 945.0671 408.5998 434.4844 7.80
1988 Q4 945.8067 409.0906 436.1569 7.73
1989 Q1 946.8697 408.7042 438.2651 7.57
1989 Q2 946.8766 408.9803 438.7636 7.57
1989 Q3 947.2497 408.3287 439.9498 7.33
1989 Q4 947.6513 407.8857 441.8359 7.57
1990 Q1 948.1840 407.2605 443.1769 7.63
1990 Q2 948.3492 406.7752 444.3592 7.60
1990 Q3 948.0322 406.1794 444.5236 8.17
1990 Q4 947.1065 405.4398 446.9694 9.20
1991 Q1 946.0796 403.2800 450.1586 10.17
1991 Q2 946.1838 403.3649 451.5464 10.33
1991 Q3 946.2258 403.3807 452.2984 10.40
1991 Q4 945.9978 404.0032 453.1201 10.37
1992 Q1 945.5183 404.4774 453.9991 10.60
1992 Q2 945.3514 404.7868 454.9552 11.00
1992 Q3 945.2918 405.2710 455.4824 11.40
1992 Q4 945.4008 405.3830 456.1009 11.73
1993 Q1 945.9058 405.1564 457.2027 11.07
1993 Q2 945.9035 406.4700 457.3886 11.67
1993 Q3 946.3190 406.2293 457.7799 11.47
1993 Q4 946.5796 406.7265 457.5535 11.30
1994 Q1 946.7800 408.5785 458.8024 10.97
1994 Q2 947.6283 409.6767 459.0564 10.63
1994 Q3 948.6221 410.3858 459.1578 10.10
1994 Q4 949.3992 410.5395 459.7037 9.67
1995 Q1 949.9481 410.4453 459.7037 9.53
1995 Q2 949.7945 410.6256 460.0258 9.47
1995 Q3 949.9534 410.8672 461.0257 9.50
1995 Q4 950.2502 411.2359 461.3039 9.27
1996 Q1 950.5380 410.6637 461.4031 9.50
1996 Q2 950.7871 410.8085 462.9277 9.43
1996 Q3 950.8695 412.1160 464.6888 9.70
1996 Q4 950.9281 412.9994 465.0717 9.90
1997 Q1 951.8457 412.9551 464.2851 9.43
1997 Q2 952.6005 412.8241 464.0344 9.30
1997 Q3 953.5976 413.0489 463.4535 8.87
1997 Q4 954.1434 413.6110 465.0717 8.77
1998 Q1 954.5426 413.6048 466.0889 8.60
1998 Q2 955.2631 412.9684 466.6171 8.33
1998 Q3 956.0561 412.2659 465.7478 8.17
1998 Q4 956.7966 412.9106 465.8995 8.03
1999 Q1 957.3865 413.8294 466.4099 7.90
1999 Q2 958.0634 414.2242 466.9552 7.87
1999 Q3 958.7166 415.1678 467.6281 7.53
1999 Q4 959.4881 415.7016 467.7026 6.93
2000 Q1 960.3625 416.8674 469.1348 6.80
2000 Q2 960.7834 417.6104 469.3364 6.70
2000 Q3 961.0290 418.0030 470.0117 6.93
2000 Q4 961.7657 417.2667 469.6472 6.87
> summary(Canada)
 e prod rw U 
 Min. :928.6 Min. :401.3 Min. :386.1 Min. : 6.700 
 1st Qu.:935.4 1st Qu.:404.8 1st Qu.:423.9 1st Qu.: 7.782 
 Median :946.0 Median :406.5 Median :444.4 Median : 9.450 
 Mean :944.3 Mean :407.8 Mean :440.8 Mean : 9.321 
 3rd Qu.:950.0 3rd Qu.:410.7 3rd Qu.:461.1 3rd Qu.:10.607 
 Max. :961.8 Max. :418.0 Max. :470.0 Max. :12.770 
> plot.ts(Canada)
> library(vars)
> Canada <- Canada[, c("prod", "e", "U", "rw")]
> varcan <-VAR(Canada, p = 1, type = "both")
> library(vars)
> data("Canada"); Canada
 e prod rw U
1980 Q1 929.6105 405.3665 386.1361 7.53
1980 Q2 929.8040 404.6398 388.1358 7.70
1980 Q3 930.3184 403.8149 390.5401 7.47
1980 Q4 931.4277 404.2158 393.9638 7.27
1981 Q1 932.6620 405.0467 396.7647 7.37
1981 Q2 933.5509 404.4167 400.0217 7.13
1981 Q3 933.5315 402.8191 400.7515 7.40
1981 Q4 933.0769 401.9773 405.7335 8.33
1982 Q1 932.1238 402.0897 409.0504 8.83
1982 Q2 930.6359 401.3067 411.3984 10.43
1982 Q3 929.0971 401.6302 413.0194 12.20
1982 Q4 928.5633 401.5638 415.1670 12.77
1983 Q1 929.0694 402.8157 414.6621 12.43
1983 Q2 930.2655 403.1421 415.7319 12.23
1983 Q3 931.6770 403.0786 416.2315 11.70
1983 Q4 932.1390 403.7188 418.1439 11.20
1984 Q1 932.2767 404.8668 419.7352 11.27
1984 Q2 932.8328 405.6362 420.4842 11.47
1984 Q3 933.7334 405.1363 420.9309 11.30
1984 Q4 934.1772 406.0246 422.1124 11.17
1985 Q1 934.5928 406.4123 423.6278 11.00
1985 Q2 935.6067 406.3009 423.9887 10.63
1985 Q3 936.5111 406.3354 424.1902 10.27
1985 Q4 937.4201 406.7737 426.1270 10.20
1986 Q1 938.4159 405.1525 426.8578 9.67
1986 Q2 938.9992 404.9298 426.7457 9.60
1986 Q3 939.2354 404.5765 426.8858 9.60
1986 Q4 939.6795 404.1995 428.8403 9.50
1987 Q1 940.2497 405.9499 430.1223 9.50
1987 Q2 941.4358 405.8221 430.2307 9.03
1987 Q3 942.2981 406.4463 430.3930 8.70
1987 Q4 943.5322 407.0512 432.0284 8.13
1988 Q1 944.3490 407.9460 433.3886 7.87
1988 Q2 944.8215 408.1796 433.9641 7.67
1988 Q3 945.0671 408.5998 434.4844 7.80
1988 Q4 945.8067 409.0906 436.1569 7.73
1989 Q1 946.8697 408.7042 438.2651 7.57
1989 Q2 946.8766 408.9803 438.7636 7.57
1989 Q3 947.2497 408.3287 439.9498 7.33
1989 Q4 947.6513 407.8857 441.8359 7.57
1990 Q1 948.1840 407.2605 443.1769 7.63
1990 Q2 948.3492 406.7752 444.3592 7.60
1990 Q3 948.0322 406.1794 444.5236 8.17
1990 Q4 947.1065 405.4398 446.9694 9.20
1991 Q1 946.0796 403.2800 450.1586 10.17
1991 Q2 946.1838 403.3649 451.5464 10.33
1991 Q3 946.2258 403.3807 452.2984 10.40
1991 Q4 945.9978 404.0032 453.1201 10.37
1992 Q1 945.5183 404.4774 453.9991 10.60
1992 Q2 945.3514 404.7868 454.9552 11.00
1992 Q3 945.2918 405.2710 455.4824 11.40
1992 Q4 945.4008 405.3830 456.1009 11.73
1993 Q1 945.9058 405.1564 457.2027 11.07
1993 Q2 945.9035 406.4700 457.3886 11.67
1993 Q3 946.3190 406.2293 457.7799 11.47
1993 Q4 946.5796 406.7265 457.5535 11.30
1994 Q1 946.7800 408.5785 458.8024 10.97
1994 Q2 947.6283 409.6767 459.0564 10.63
1994 Q3 948.6221 410.3858 459.1578 10.10
1994 Q4 949.3992 410.5395 459.7037 9.67
1995 Q1 949.9481 410.4453 459.7037 9.53
1995 Q2 949.7945 410.6256 460.0258 9.47
1995 Q3 949.9534 410.8672 461.0257 9.50
1995 Q4 950.2502 411.2359 461.3039 9.27
1996 Q1 950.5380 410.6637 461.4031 9.50
1996 Q2 950.7871 410.8085 462.9277 9.43
1996 Q3 950.8695 412.1160 464.6888 9.70
1996 Q4 950.9281 412.9994 465.0717 9.90
1997Q1 951.8457 412.9551 464.2851 9.43
1997 Q2 952.6005 412.8241 464.0344 9.30
1997 Q3 953.5976 413.0489 463.4535 8.87
1997 Q4 954.1434 413.6110 465.0717 8.77
1998 Q1 954.5426 413.6048 466.0889 8.60
1998 Q2 955.2631 412.9684 466.6171 8.33
1998 Q3 956.0561 412.2659 465.7478 8.17
1998 Q4 956.7966 412.9106 465.8995 8.03
1999 Q1 957.3865 413.8294 466.4099 7.90
1999 Q2 958.0634 414.2242 466.9552 7.87
1999 Q3 958.7166 415.1678 467.6281 7.53
1999 Q4 959.4881 415.7016 467.7026 6.93
2000 Q1 960.3625 416.8674 469.1348 6.80
2000 Q2 960.7834 417.6104 469.3364 6.70
2000 Q3 961.0290 418.0030 470.0117 6.93
2000 Q4 961.7657 417.2667 469.6472 6.87
> summary(Canada)
 e prod rw U 
 Min. :928.6 Min. :401.3 Min. :386.1 Min. : 6.700 
 1st Qu.:935.4 1st Qu.:404.8 1st Qu.:423.9 1st Qu.: 7.782 
 Median :946.0 Median :406.5 Median :444.4 Median : 9.450 
 Mean :944.3 Mean :407.8 Mean :440.8 Mean : 9.321 
 3rd Qu.:950.0 3rd Qu.:410.7 3rd Qu.:461.1 3rd Qu.:10.607 
 Max. :961.8 Max. :418.0 Max. :470.0 Max. :12.770 
> plot.ts(Canada)
> library(vars)
> Canada <- Canada[, c("prod", "e", "U", "rw")]
> varcan <-VAR(Canada, p = 1, type = "both")
> varcan
VAR Estimation Results:
======================= 
Estimated coefficients for equation prod: 
========================================= 
Call:
prod = prod.l1 + e.l1 + U.l1 + rw.l1 + const + trend 
 prod.l1 e.l1 U.l1 rw.l1 const trend 
 0.96313671 0.01291155 0.21108918 -0.03909399 16.24340747 0.04613085 
Estimated coefficients for equation e: 
====================================== 
Call:
e = prod.l1 + e.l1 + U.l1 + rw.l1 + const + trend 
 prod.l1 e.l1 U.l1 rw.l1 const trend 
 0.19465028 1.23892283 0.62301475 -0.06776277 -278.76121138 -0.04066045 
Estimated coefficients for equation U: 
====================================== 
Call:
U = prod.l1 + e.l1 + U.l1 + rw.l1 + const + trend 
 prod.l1 e.l1 U.l1 rw.l1 const trend 
 -0.12319201 -0.24844234 0.39158002 0.06580819 259.98200967 0.03451663 
Estimated coefficients for equation rw: 
======================================= 
Call:
rw = prod.l1 + e.l1 + U.l1 + rw.l1 + const + trend 
 prod.l1 e.l1 U.l1 rw.l1 const trend 
 -0.22308744 -0.05104397 -0.36863956 0.94890946 163.02453066 0.07142229 
a produtividade não teria efeito imediato sobre o nível de emprego/desemprego, visto que, em primeiro momento, as empresas optam por deslocar empregados para outros setores (não abrangidos por aumento de produtividade) ao invés de demitir trabalhadores, em função do alto custo da rescisão contratual (verbas rescisórias); b) o efeito da produtividade sobre o salário real também não seria imediato, visto que os empregados, em linhas gerais, só reajustam os salários anualmente por meio dos acordos coletivos de trabalho; c) o nível de emprego não teria efeito imediato sobre o nível de desemprego, visto que, uma queda no nível de emprego formal não provocaria um aumento imediato no desemprego, dado que os trabalhadores buscam outras formas de renda informal para se manterem; d) o nível de emprego/desemprego também não teria efeito imediato sobre os salários reais, visto que os salários, em geral, são reajustados anualmente, em época específica, por meio dos acordos de trabalho.