inst/tests/test.CALINE3-wrapper.R

In holstius/Rcaline: Line source dispersion modeling using CALINE

library(CALINE3)
library(testthat)

context("CALINE3-package")

rcp_args <- list(XR = 30.0, YR = 0.0, ZR = 1.8)
lnk_args <- list(XL1 = 0.0, YL1 = -5000.0, XL2 = 0.0, YL2 = 5000.0, WL = 30.0, HL = 0.0, NTYP = 0, VPHL = 7500.0, EFL = 30.0)
met_args <- list(UM = 1.0, BRGM = 270.0, CLASM = 6, MIXHM = 1000.0)
aux_args <- list(ATIM = 60.0, Z0 = 10.0, VS = 0.0, VD = 0.0)

C_ugm3 <- do.call("CALINE3_LINK_CONTRIBUTIONS", c(rcp_args, lnk_args, met_args, aux_args))
C_ppm <- C_ugm3 * 0.0245 / 28.0
expect_equal(4.6, round(C_ppm[1, 1], digits = 1))