context("ef_ldv_scaled")
data(fe2015)
co1 <- fe2015[fe2015$Pollutant=="CO", ]
test_that("ef_ldv_scaled works", {
expect_equal(ef_ldv_scaled(dfcol = co1$PC_G[1], v = "PC", t = "4S",
cc = "<=1400", f = "G",
eu = co1$Euro_LDV[1], p = "CO")[[1]](34.12),
co1$PC_G[1])
})
test_that("ef_ldv_scaled error", {
expect_error(ef_ldv_scaled(dfcol = c(co1$PC_G[1], 1), v = "PC", t = "4S",
cc = "<=1400", f = "G",
eu = co1$Euro_LDV[1], p = "CO")[[1]](34.12),
"Length.?\\(?")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.