SCES_A: Standard CES Demand Coefficient Matrix

In GE: General Equilibrium Modeling

Standard CES Demand Coefficient Matrix

Description

This function computes the standard CES demand coefficient matrix (i.e. Theta==Beta), which is a wrapper of CES_A of CGE package.

Usage

SCES_A(sigma = 1 - 1/es, alpha, Beta, p, es = NA)

Arguments

sigma	a numeric m-vector or m-by-1 matrix. 1/(1-sigma) is the elasticity of substitution.
alpha	a nonnegative numeric m-vector or m-by-1 matrix.
Beta	a nonnegative numeric n-by-m matrix, where the sum of each column is equal to 1. If a vector is provided, then it will be converted into a single-column matrix.
p	a nonnegative numeric n-vector or n-by-1 matrix.
es	a numeric m-vector or m-by-1 matrix of elasticity of substitution. If es is not NA, the value of sigma will be ignored.

Value

A demand coefficient n-by-m matrix.

Examples

SCES_A(-1, 1, c(0.9, 0.1), c(1, 1))
SCES_A(alpha = 1, Beta = c(0.9, 0.1), p = c(1, 1), es = 0.5)
SCES_A(0, 1, c(0.9, 0.1), c(1, 1))
beta <- c(0.9, 0.1)
CD_A(prod(beta^-beta), c(0.9, 0.1), c(1, 1))

####
SCES_A(0, 1, c(0.9, 0.1, 0), c(1, 1, 1))

####
input <- matrix(c(
  200, 300, 100,
  150, 320, 530,
  250, 380, 0
), 3, 3, TRUE)
Beta <- prop.table(input, 2)
SCES_A(sigma = rep(0, 3), alpha = c(1, 1, 1), Beta = Beta, p = c(1, 1, 1))
SCES_A(sigma = rep(-Inf, 3), alpha = c(1, 1, 1), Beta = Beta, p = c(1, 1, 1))

GE documentation built on Nov. 8, 2023, 9:07 a.m.