Economia de 3 bens, arroz, feijão e carne.

q1arroz <-10
p1arroz <- 2.20
q2arroz <- 11
p2arroz <- 2.30
p1fei <- 3
q1fei <- 13
p2fei <-3.5
q2fei <- 14
q1carne <- 13
p1carne <- 8
q2carne <- 8
p2carne <- 15  

PIBn1 <- (q1arroz *p1arroz) + (q1fei*p1fei)+ (q1carne *p1carne)
PIBn1
## [1] 165
PIBn2 <- (q2arroz *p2arroz) + (q2fei*p2fei)+ (q2carne *p2carne)
PIBn2
## [1] 194.3
taxadecrescimento <- 100*(PIBn2 -PIBn1)/PIBn1
taxadecrescimento
## [1] 17.75758
# Alternativa a) ou e) 

PIBr1 <- (q1arroz *p1arroz) + (q1fei*p1fei)+ (q1carne *p1carne)
PIBr1
## [1] 165
PIBr2 <- (q2arroz * p1arroz) + (q2fei*p1fei)+ (q2carne *p1carne)
PIBr2
## [1] 130.2
taxadecrescimentoreal <- 100*(PIBr2 -PIBr1)/PIBr1
taxadecrescimentoreal 
## [1] -21.09091
# produto real deflacionado pela inflação via enunciado
pi <- 0.5979
PIBn1def <- PIBn1 /(1+pi)
PIBn1def
## [1] 103.2605
PIBn2def <- PIBn2 /(1+pi)
PIBn2def
## [1] 121.5971
# comparando o crescimento 
taxadecrescimentoviainf <- (PIBn2def - PIBn1) / PIBn1
taxadecrescimentoviainf
## [1] -0.2630479

Exercício 8

Ano Importações e Indice de precos (base: 1990=100) 1996 978.503,00 127 1997 1.130.544,00 150 1998 1.457.612,00 171 1999 1.121.300,00 187

#carregando os dados
im1996 <- 978503
im1997 <- 1130544 
im1998 <- 1457612
im1999 <- 1121300
IPCA96 <- 127
IPCA97 <- 150
IPCA98 <- 171
IPCA99 <- 187

# a) indice para ano base 1997 = (valor corrente * 100) / base

in96 <- (im1996 *100) / im1997; in96
## [1] 86.55152
in97 <- (im1997 *100) / im1997; in97
## [1] 100
in98 <- (im1998 *100) / im1997; in98
## [1] 128.9301
in99 <- (im1999 *100) / im1997; in99
## [1] 99.18234
# b) Calculando a Inflação para o índices

pi97 <- 100* (IPCA97 - IPCA96) / IPCA96
pi97
## [1] 18.11024
pi98 <- 100* (IPCA98 - IPCA97) / IPCA97
pi98
## [1] 14
pi99 <- 100* (IPCA99 - IPCA98) / IPCA98 
pi99
## [1] 9.356725
# Deflacionar a série de importações usando como base 1999. 
# Duas formas para deflacionar, uma usando taxa e a outra usando o índice de preços. 
# Via taxa ->  Valor (1 + taxa de inflação) 

# complemento
dflimp97taxa <-  im1997 /pi97 ; dflimp97taxa 
## [1] 62425.69
dflimp98taxa <- im1998 / pi98; dflimp98taxa 
## [1] 104115.1
dflimp99taxa <-  im1999 / pi99; dflimp99taxa 
## [1] 119838.9
# Usando numeros índices 

defl96 <- (im1996 * IPCA99) /IPCA96;defl96
## [1] 1440788

Exercício 7

Y = C + I + X - M Economia sem governo

c90 <- 15
c96 <- 20
I90 <- 5
I96 <-8.4
x90 <- 2
x96 <-3
M90 <- 1
M96 <- 1.8
renda90 <-21 
renda96 <-29.6

# renda nacional de 1996 a preços de 1990
cv96 <- 125
deflI96 <-105
deflX <- 150
deflM <- 180