Nothing
context ("Returning the household final expenditure column")
household_column_find( iotable_get ( source = 'germany_1995') )
households <- household_column_get( iotable_get ( source = 'germany_1995') )
test_that("correct data is returned", {
expect_equal(as.numeric(unlist (households[1:2, 2] )),
c(8500,197792), tolerance=1e-3)
})
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.