# NOT RUN {
 
nl <- netherlands_2006
input_coeff_nl <- input_coefficient_matrix_create(
 data_table  = netherlands_2006, 
 households = FALSE) 
compensation_indicator <- input_indicator_create(netherlands_2006, 'compensation_employees')
I_nl <- leontieff_inverse_create( input_coeff_nl )
direct_effects_create(input_requirements = compensation_indicator, 
                           inverse = I_nl)
# }
Run the code above in your browser using DataLab