GE (version 0.1.1)

SCES_A: 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.

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

# NOT RUN {
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))
# }