tests/testthat/test-ef_ldv_scaled.R

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.?\\(?")
})
ibarraespinosa/vein documentation built on Feb. 3, 2024, 4:52 p.m.