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)
})

Try the iotables package in your browser

Any scripts or data that you put into this service are public.

iotables documentation built on Sept. 24, 2022, 5:05 p.m.