Nothing
# 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)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.