The model is writen using the "exact hat algebra".

For example, \(\hat{q}_s = q_s'/q_s\), where q_s' is the value in the new equilibrium and q_s is the value in the old equilibrium.

simple_armington(v0, eps, eta, sigma, regions)

Arguments

v0

a vector with the initial demand values.

eps

a vector with supply elasticities.

eta

the total demand price elasticity.

sigma

the armington elasticity.

regions

a vector with the regions names.

Value

Returns a list with the model components.

Examples

library(emr) sa_model <- simple_armington( v0 = c(60, 30, 10), eps = c(1, 10, 10), eta = -1, sigma = 4, regions = c("dom", "sub", "nsub") )