tests/testthat/test-household_column_get.R

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)
})
rOpenGov/iotables documentation built on Jan. 26, 2024, 3:06 a.m.