tests/testthat/test_ave_ng2.R

test_that("Test that the average natural gas emissions in 2016 were 165.85", {
  data(ghg)
  ghg_2016 <- ghg %>% 
    dplyr::filter(Year == 2016)
  expect_true(average_ng(ghg_data = ghg_2016) > 165)
})
angiebouche/ESM_262_Assignment_5 documentation built on June 14, 2019, 3:25 p.m.