Del 1: Calibrerings modell (MM: 5.4.5, p.279)

Vi kan simulere resultater for en Solow modell, som beskrevet i MM 5.4.5. Men isteden for å bruke Excel, kan vi bruke r

Steg 1: Parameterverdier

a=0.36 #andel av inntekter til kapital
d=0.05 #depresiering/kapitalslit
s=0.26 #sparingsrate  
g=0.02 #balansert vekstrate
n=0.005 #vekst i befolkningen/arbeidskraft

Steg 2: Beregning av vekstrate i effektivitet \(g_E\)

g_E = (1+g)/(1+n)-1
print(g_E)
## [1] 0.01492537

Steg 3: Årlig vekstrate til A (TFP)

g_A = (1-a)*g_E
print(g_A)
## [1] 0.009552239

Steg 4: Verdier for L_2018, Y_2018, C_2018 (Timeverk, BNP og samlet konsum i 2018)

L_2018 = 8.2 #8.2 milliard timeverk
Y_2018 = 580 #580 milliard euro
C_2018 = 429.2 # 429,2 milliard euro

Steg 5: Regne ut investering I_2018, og arbeidsproduktiviet, y_2018

y_2018 = Y_2018/L_2018
I_2018 = s*Y_2018
print(y_2018)
## [1] 70.73171
print(I_2018)
## [1] 150.8

Steg 6: Regne ut w, MPL i 2018

w=(1-a)*y_2018
print(w)
## [1] 45.26829

Steg 7: Regne ut Kapitalbeholdning i 2018 og kapitalintensitet

K_2018 = I_2018/(g+d)
k_2018 = K_2018/L_2018
print(K_2018)
## [1] 2154.286
print(k_2018)
## [1] 262.7178

Steg 8: Regne ut MPK og r (markedsrenten på kapital)

MPK = a*Y_2018/K_2018
r = MPK-d
print(MPK)
## [1] 0.09692308
print(r)
## [1] 0.04692308

Steg 9: Beregn ut TFP og E i 2018

A_2018 = y_2018/k_2018**a
E_2018 = A_2018**(1/(1-a))
print(A_2018)
## [1] 9.519145
print(E_2018)
## [1] 33.8111

Steg 10: Beregn ut C/L, \(k_E\), og \(y_E\)

c_2018 = C_2018/L_2018
k_E = k_2018/E_2018
y_E = k_E**a

Oppgave 1: I steg 2 regnet man ut

\(g_E = \frac{1+g}{1+n}-1\)

Hvorfor brukte man ikke formelen: \(g_E = g - n\) som vi lærte tidligere i kap.?

\(K_{2018} = \frac{I_{2018}}{g+d}\)

Hvor kommer denne ligningen fra?

Del 2: Beregning av basissscenario (se MM boks 5.9)

aars = c(2018:2037)


Ls = L_2018
Es = E_2018
Ks = K_2018
Ys = Y_2018
ys = y_2018
cs = c_2018
ss= rep(s,20)
for(t in c(1:19)){
  Ls[t+1] = Ls[t]*(1+n)
  Es[t+1] = Es[t]*((1+g)/(1+n))
  Ks[t+1] = Ks[t]*(1+g)
  Ys[t+1] = y_E*Ls[t+1]*Es[t+1]
  ys[t+1] = Ys[t+1]/Ls[t+1]
  cs[t+1] = (1-ss[t+1])*ys[t+1]
}
#Plott basisscenario
plot(aars, Ys, type="l")

plot(aars, ys, type="l")

plot(aars, cs, type="l")

Vi kan lagre vår scenario ved å gi seriene nye navn

Ys_B = Ys
Ks_B = Ks
ys_B = ys
cs_B = cs

Oppgave 2:

*Beregn ut vekstraten av BNP volum. Hva er det?

*Beregn ut vekstraten av K.

*Forklar forholdet mellom vekstraten av BNP og K.

Oppgave 3: alternativscenario:

Nå, beregn alternativ scenario, og vis utviklingen av Y over tid