From 4edb3480beae2b5ed8530ac2e8789889d7add63f Mon Sep 17 00:00:00 2001 From: Alex Gebben Work Date: Mon, 17 Aug 2026 14:40:24 -0600 Subject: [PATCH] Mid way through expanding to value added --- Leontief.r | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) diff --git a/Leontief.r b/Leontief.r index ef18799..67c3465 100644 --- a/Leontief.r +++ b/Leontief.r @@ -26,6 +26,23 @@ TYPE2_MULTIPLIERS_TOTAL ###########Value Added 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 colSums(VALUE_ADD_MAT[colnames(TYPE2_A)]*MULTIPLIER_OUTPUT_TYPE2 ) colSums(VALUE_ADD_MAT[colnames(TYPE1_A)]*MULTIPLIER_OUTPUT_TYPE1 )