# NOT RUN {
# Endogenous set
equations <- sfcr_set(
TXs ~ TXd,
YD ~ W * Ns - TXs,
Cd ~ alpha1 * YD + alpha2 * Hh[-1],
Hh ~ YD - Cd + Hh[-1],
Ns ~ Nd,
Nd ~ Y / W,
Cs ~ Cd,
Gs ~ Gd,
Y ~ Cs + Gs,
TXd ~ theta * W * Ns,
Hs ~ Gd - TXd + Hs[-1]
)
# Exogenous set
exogenous <- sfcr_set(alpha1 ~ 0.8, alpha2 ~ 0.15)
# Modify an existing set
equations2 <- sfcr_set(equations, Hh ~ Hh[-1] + d(Hs), exclude = 4)
# Add normal random variable
sfcr_set(Ra ~ sfcr_random("rnorm", mean=10, sd=2))
# }
Run the code above in your browser using DataLab