Assume the following model, a modified version of the model pcnom.R with price and wage rigidity seen in class.$$pcfisc$\_$eqs $<-$ sfcr$\_$set$($

eq$1=$ Y ~ C $+$ G$,$

eq$2=$ Yn ~ Y $*$ P$,$

eq$3=$ N ~ Y $/$ prod,

eq$4=$ W ~ xi$\_$w$*$W$[-1]+(1-$xi$\_$w$)*($w$0+$ w$1*($exp$(100*($N$/$N$\_$fe$-1))-1)),$ eq$5=$ Wn ~ W$*$P$,$

eq$6=$ WB ~ Wn $*$ N$,$

eq$7=$ Profits ~ Yn $-$ WB$,$

eq$8=$ UCn ~ WB $/$ Y$,$

eq$9=$ P ~ xi$\_$p$*$P$[-1]+(1-$xi$\_$p$)*(1+$markup$)*$UCn$,$

eq$10=$ Pi ~ $($P$/$P$[-1]-1),$

eq$11=$ YDn ~ WB $+$ Profits $+$ r$[-1]*$ Bh$[-1]-$ TX$,$

eq$12=$ YD ~ YDn $/$ P$,$

eq$13=$ TX ~ theta $*($WB $+$ Profits $+$ r$[-1]*$ Bh$[-1]),$

eq$14=$ Vn ~ Vn$[-1]+$ YDn $-$ Cn$,$

eq$15=$ V ~ Vn $/$ P$,$

eq$16=$ C ~ alpha$1*$ YD $+$ alpha$2*$ V$[-1],$

eq$17=$ Cn ~ C $*$ P$,$

eq$18=$ Hh ~ Vn $-$ Bh$,$

eq$19=$ Bh ~ Vn $*($lambda$0+$ lambda$1*$ r $-$ lambda$2*($ YDn$/$Vn $)),$

eq$20=$ Bs ~ Bs$[-1]+($Gn $+$ r$[-1]*$ Bs$[-1])-($TX $+$ r$[-1]*$ Bcb$[-1]),$

eq$21=$ Gn ~ $(1-$fiscsw$)*((1-$rhog$)*$Gnbar $+$ rhog$*$Gn$[-1])+$ fiscsw$*($Gnbar$+$e$\_$gn$),$ eq$22=$ G ~ Gn $/$ P$,$

eq$23=$ Hs ~ Hs$[-1]+$ Bcb $-$ Bcb$[-1],$

eq$24=$ Bcb ~ Bs $-$ Bh$,$

eq$25=$ r ~ rbar,

eq$26=$ redondant ~ Hs $-$ Hh$,$

$)$

The file final$2023\_$codeR$\_$Q$3.$R includes the code required to simulate the model. You must copy this code in your R file and simulate it completely to be able to answer question $3.$

a$)(3$ pts$)$ Which parameter of the model captures the degree of p