INSTRUCTIONS - Submit the R file you use to make your calculations and graphs. Use only RStudio software to obtain the answers to the questions. R Markdown files are also accepted. Model with investment Consider the following model with investment bmw_eqs1=YC+I. eq2 =WBYr[1]4[1]AF. eq 3=AF delta * K[1]. \# Househoids eq4 4=YDWB+rm[1] * Mh[1], eq5 =C - alpha 0 + alpha1 * YD+ alpha2 * Mh[-1]. eq 6=MhMh[1]+YDC, \# Firms eq7 = KT kappa * Y[1], eq 8=DA delta * K[1]. eq 9=1 - gamma * (KT - K[-1]) + DA. eq 10=KK[1]+1DA, eq11 =LL[1]+1AF, \# Banks eq12 = Ms Ms[1]+LL[1], eq 13=rmr, eq 14=rl rlbar, \# Redundant eq15 =redundant Ms - Mh ) The Bonus_final_2023.R file which is at the bottom of the questions contains the code and initial calibration required to simulate this model. a) Simulate the model. What is steady state GDP? How do you explain this result? b) In the steady state of this model, the investment I is different from zero (except in the case of very specific calibration). However, in the steady state, the capital stock K remains constant. How do you explain this result? c) In the PC model, a lasting drop in a1, the marginal propensity to consume from disposable income, had a positive impact on the GDP of the economy in the steady state. In the model with investment, a lasting drop in a1 has a negative impact on the GDP of the economy in the steady state. How does the presence of investment explain the difference between these 2 models? The Bonus final 2023 . R file library(sfer)mm(list=1s()) brw_eqs 1=YC+I, eq 2=WBYr1[1]L[1]AF, eq3=AF delta K[1], * Households eq4=YDWB+rm[1]Mh[1], eq5 = C - alpha0 + alpha1 * YD + alpha2 * Mh [1]. eq 6=MhMh[1]+YDC, t Firms eq 7 = KT - kappa * Y[1], eqB =DA delta K[1], eq 9=I gamma (KTK[1])+DA, eq10 =KK[1]+IDA, eq 11=LL[1]+IAF, \# Banks eq12 = Ms - Ms [1]+LL[1], eq 13=rmrl, eq14 = r1 - rlbar, \# redundant eq15 = redundant MsMh ) bow_external 0, alphal 0.75, alpha 20.15, delta -0.10 , gamma * 0.15 , kappa - 1 ) nper =100 bow = nper, method = "Broydien" )