ppstdint2: Circulating capital model 2 using the Standard...

In clptheory: Compute Price of Production and Labor Values

Circulating capital model 2 using the Standard Interpretation.

Description

This function computes the uniform rate of profit, prices of production and labor values for a circulating capital model using the Standard Interpretation. The model has uniform wage rates across industries and takes into account unproductive labor for labor value calculations.

Usage

ppstdint2(A, Ap, l, b, Q, Qp, lp_simple)

Arguments

A	input-output matrix (n x n).
Ap	input-output matrix for the subset of productive industries (m x m).
l	vector of complex labor input (1 x n).
b	vector real wage bundle (n x 1).
Q	gross output vector (n x 1).
Qp	gross output vector for the subset of productive industries (m x 1).
lp_simple	vector of simple labor input for the subset of productive industries (1 x m).

Value

A list with the following elements:

meig	Maximum eigen value of M
urop	Uniform rate of profit (as a fraction)
mrop	Maximum rate of profit (as a fraction)
ppabs	Price of production vector (absolute)
pprel	Price of production vector (relative)
lvalues	Labor values vector
dprice	Direct price vector
mevg	Monetary expression of value using gross output
mnonneg	Is M Nonnegative? (1=Y,0=N)
mirred	Is M Irreducible? (1=Y,0=N)

References

Basu, Deepankar and Moraitis, Athanasios, "Alternative Approaches to Labor Values andPrices of Production: Theory and Evidence" (2023). Economics Department Working Paper Series. 347. URL: https://scholarworks.umass.edu/econ_workingpaper/347/

Examples

# ------ Data
# Input-output matrix
A <- matrix(
data = c(0.265,0.968,0.00681,0.0121,0.391,0.0169,0.0408,0.808,0.165),
nrow=3, ncol=3, byrow = TRUE
)
# Direct labor input vector (complex)
l <- matrix(
data = c(0.193, 3.562, 0.616),
nrow=1
)
# Real wage bundle
b <- matrix(
data = c(0.0109, 0.0275, 0.296),
ncol=1
)
# Gross output vector
Q <- matrix(
data = c(26530, 18168, 73840),
ncol=1
)
# Direct labor input vector (simple)
l_simple <- l
# Compute prices of production
ppstdint2(A=A,Ap=A[1:2,1:2],l=l,b=b,Q=Q,Qp=Q[1:2,1],lp_simple=l[1,1:2])

clptheory documentation built on April 4, 2023, 5:15 p.m.