tests/testthat/test_leontief.R

In decompr: Global Value Chain Decomposition

# define context
context("leontief")

# load test data
data(leather)
list2env(leather, environment())

# leontief decomposition
# n.b. using default method (Leontief)
# with default post-multiplication (exports)
l <- decomp(x = inter,
            y = final,
            k = countries,
            i = industries,
            o = out)

# test output format (i.e. structure not numbers)
test_that("output size matches", {
  expect_equal( length(l), 5 )
  expect_equal( dim(l)[1], 81 )
})

test_that("output format matches", {
  expect_match( typeof(l[,5]), "double" )
})

# test output content (i.e. numbers)
test_that("output matches", {
  expect_equal( l[1, 5],  28.52278, tolerance = .002 )
  expect_equal( l[81, 5], 34.74381, tolerance = .002 )
})


context("leontief-output")

# leontief decomposition
lo <- decomp(x = inter,
             y = final,
             k = countries,
             i = industries,
             o = out,
             method = "leontief",
             post = "output")

test_that("output size matches", {
  expect_equal( length(lo), 5 )
  expect_equal( dim(lo)[1], 81 )
})

test_that("output format matches", {
  expect_match(typeof( lo[,5]), "double" )
})

# test output content (i.e. numbers)
test_that("output matches", {
  expect_equal( lo[1, 5],  66.75361799, tolerance = .002 )
  expect_equal( lo[81, 5], 96.78316785, tolerance = .002 )
})


context("leontief-finalDemand")

# leontief decomposition
lfd <- decomp(x = inter,
              y = final,
              k = countries,
              i = industries,
              o = out,
              method = "leontief",
              post = "final_demand")

test_that("output size matches", {
  expect_equal( length(lfd), 4)
  expect_equal( dim(lfd)[1], 27)
})

test_that("output format matches", {
  expect_match(typeof(lfd[, 4]), "double")
})

# test output content (i.e. numbers)
test_that("output matches", {
  expect_equal(lfd[1, 4], 24.3345824, tolerance = .002)
  expect_equal(lfd[20, 4], 23.6841309, tolerance = .002)
})