R/CILQ.R

In PacoParra/UtilMio: Utilidades para Analisis Input Output

Defines functions CILQ

Documented in CILQ

CILQ=function(a,b) {
as.numeric(a)
as.numeric(b)
n=length(a)
# Calculamos SLQ
SLQ=(a/sum(a))/(b/sum(b))
# Calculamos CILQ
CILQ=matrix(SLQ,ncol=n,nrow=n)%*%diag(1/SLQ)
as.matrix(CILQ)}