Still using SFCR, simulate the model for 100 periods, giving each endogenous variables a starting value
corresponding to the steady state value you calculated in 1c). To do so, create a vector in which you will set
the starting value, for example
solow_ini <- sfcr_set(
k ~ 2.8,
y ~ 1.6,
c ~ 1.2,
i ~ 0.4,
r ~ 0.3,
w ~ 4.5
)
then in the sfcr_baseline function, you use the option initial = , for exmple solow <- sfcr_baseline(equations
= solow_eqs, external = solow_ext, initial = solow_ini, periods = 100, method = “Broyden”). Draw the
graph of consumption and the stock of capital for the 100 periods of the simulation. Do you not anything of
particular interest? How do you explain that result?