tests/testthat/test-output_multipliers.R

In rOpenGov/iotables: Reproducible Input-Output Economics Analysis, Economic and Environmental Impact Assessment with Empirical Data

library (testthat)

context ("Creating output multipliers")
de_input_coeff <- input_coefficient_matrix_create ( 
                           data_table  = iotable_get(), 
                           digits = 4 )


output_multipliers <- output_multiplier_create ( de_input_coeff )

test_that("correct data is returned", {
  expect_equal(as.numeric ( output_multipliers[, 2:ncol(output_multipliers)] ),
               c(1.7048, 1.8413, 1.8136, 1.6035, 1.5951, 1.3782),
               tolerance=1e-2)
})