Nothing
de_out <- output_coefficient_matrix_create (
data_table = iotable_get(), "final_demand", digits = 4
)
fw <- forward_linkages (
output_coefficient_matrix = de_out,
digits = 4 )
#The Eurostat Manual uses a different rounding. There is a slight mismatch)
test_that("Correct forward linkages", {
expect_equal(fw$forward,
c(2.1126, 1.6691, 1.3558, 1.5848, 2.1037, 1.2106),
tolerance=1e-2)
})
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.