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 )