Nothing
context("ef_hdv_scaled")
data(fe2015)
co1 <- fe2015[fe2015$Pollutant=="CO", ]
test_that("ef_hdv_scaled works", {
expect_equal(ef_hdv_scaled(dfcol = co1$LT, v = "Trucks", t = "RT",
g = "<=7.5", eu = co1$Euro_HDV, gr = 0,
l = 0.5, p = "CO")[[1]](34.12),
co1$LT[1])
})
test_that("ef_hdv_scaled error", {
expect_error(ef_hdv_scaled(dfcol = c(co1$LT, 1), v = "Trucks", t = "RT",
g = "<=7.5", eu = co1$Euro_HDV, gr = 0,
l = 0.5, p = "CO")[[1]](34.12),
"Length.?\\(?")
})
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.