library(aTSA)
Q=read.csv("D:Q2017.csv")
X=read.csv("D:X2017.csv")
#直接消耗系数A
Q1<-as.matrix(Q)
X_1<-diag(1/X$total)
A<-Q1%*%X_1
#完全消耗系数B
I<-diag(length(X$total))
B<-solve(I-A)-I
write.csv(B,file="D:B2017.csv")
数据原始
文章来源地址https://www.toymoban.com/news/detail-543348.html
Q2017中间投入表
X2017总投入
文章来源:https://www.toymoban.com/news/detail-543348.html
到了这里,关于R——投入产出表,直接消耗系数矩阵,完全消耗系数矩阵的文章就介绍完了。如果您还想了解更多内容,请在右上角搜索TOY模板网以前的文章或继续浏览下面的相关文章,希望大家以后多多支持TOY模板网!