Nothing
context("ef_eea")
test_that("ef_eea works", {
expect_equal(round(ef_eea(category = "PC",
fuel = "G",
segment = "Small",
euro = "I",
tech = NA,
pol = "CO",
mode = NA,
slope = 0,
load = 0)(10)),
5
)
})
test_that("ef_eea works", {
expect_equal(round(ef_eea(category = "PC",
fuel = "D",
segment = "Small",
euro = "I",
tech = NA,
pol = "CO",
mode = NA,
slope = 0,
load = 0)(10)),
1
)
})
test_that("ef_eea works", {
expect_equal(round(ef_eea(category = "TRUCKS",
fuel = "D",
segment = "Rigid <=7.5 t",
euro = "I",
tech = NA,
pol = "NOx",
mode = NA,
slope = 0,
load = 0)(10)),
4
)
})
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.