alex/Tapestry_analysis
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Mid way through expanding to value added

Browse Source
This commit is contained in:
Alex Gebben Work 2026-08-17 14:40:24 -06:00
parent a7f30832d1
commit 4edb3480be
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
Leontief.r
View File

@ -26,6 +26,23 @@ TYPE2_MULTIPLIERS_TOTAL
###########Value Added ###########Value Added
VALUE_ADD_MAT <- colSums(I_MAT[c('EmpComp','PropInc','OthPropInc','TOPI','SUB'),])/colSums(I_MAT) VALUE_ADD_MAT <- colSums(I_MAT[c('EmpComp','PropInc','OthPropInc','TOPI','SUB'),])/colSums(I_MAT)
(I_MAT[c('EmpComp'),])/colSums(I_MAT)
(I_MAT[c('PropInc'),])/colSums(I_MAT)
(I_MAT[c('OthPropInc'),])/colSums(I_MAT)
(I_MAT[c('TOPI'),])/colSums(I_MAT)
(I_MAT[c('SUB'),])/colSums(I_MAT)
length( TYPE2_MULTIPLIERS_TOTAL)
length( I_MAT[c('EmpComp'),])
/colSums(I_MAT)))
TYPE1_MULTIPLIERS_TOTAL
colSums(I_MAT[(colnames(I_MAT) %in% c('EmpComp','PropInc','OthPropInc','TOPI','SUB')),])/colSums(I_MAT)
VALUE_ADD_MAT VALUE_ADD_MAT
colSums(VALUE_ADD_MAT[colnames(TYPE2_A)]*MULTIPLIER_OUTPUT_TYPE2 ) colSums(VALUE_ADD_MAT[colnames(TYPE2_A)]*MULTIPLIER_OUTPUT_TYPE2 )
colSums(VALUE_ADD_MAT[colnames(TYPE1_A)]*MULTIPLIER_OUTPUT_TYPE1 ) colSums(VALUE_ADD_MAT[colnames(TYPE1_A)]*MULTIPLIER_OUTPUT_TYPE1 )