simple_armington: Create a simple armington model

In paulofelipe/emr: Create and run partial and general equilibrium models in R

Description

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.

Usage

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

Arguments

v0	a vector with the initial demand values.
eps	a vector with supply elasticities.
eta	the total demand price elasticity.
t	a vector with the tariff initial values
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),
 t = c(0, 0, 0),
 eta = -1,
 sigma = 4,
 regions = c("dom", "sub", "nsub")
)

paulofelipe/emr documentation built on July 23, 2021, 7:31 p.m.