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