tests/testthat/test-ef_fun.R

context("ef_fun")
data(fe2015)
CO <- vein::EmissionFactors(fe2015[fe2015$Pollutant == "CO", "PC_G"])

test_that("ef_fun works", {
  expect_equal(ef_fun(ef = CO, x0 = 27, k = 0.4, L = 33)[33],
               EmissionFactors(30.255301015700563738))
})

Try the vein package in your browser

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

vein documentation built on May 29, 2024, 7:20 a.m.