R/to_rline.R
Export emissions object according to format of file 'Sources.txt' of the model R-LINE
to_rline(X_b, Y_b, Z_b, X_e, Y_e, Z_e, dCL, sigmaz0, lanes, Emis, Hw1, dw1, Hw2, dw2, Depth, Wtop, Wbottom, experimental = FALSE)
X_b | initial x coordinates. |
---|---|
Y_b | initial y coordinates. |
Z_b | initial meters above sea level (m). |
X_e | final x coordinates. |
Y_e | final y coordinates. |
Z_e | final meters above sea level (m). |
dCL | offset distance for each source relative to the centerline. |
sigmaz0 | vertical dispersion (m). |
lanes | number of lanes at each street. |
Emis | Column with the emissions whose unit must be g/ms. |
Hw1 | Height of the barrier 1 (m). |
dw1 | Distance to barrier 1 (m). |
Hw2 | height of the barrier 2 (m). |
dw2 | Distance to barrier 2 (m). |
Depth | Depth of the depression. USed for depressed roadway (m). |
Wtop | width of the opening at the top of the depression (m). |
Wbottom | width of the roadway at the bottom of the depression (m). |
experimental | Boolean argument to denote the use of the experimental features (TRUE) or not (FALSE). |
Data frame with format for R-LINE model.
Michelle G. Snyder, Akula Venkatram, David K. Heist, Steven G. Perry, William B. Petersen, Vlad Isakov, RLINE: A line source dispersion model for near-surface releases, In Atmospheric Environment, Volume 77, 2013, Pages 748-756, ISSN 1352-2310, https://doi.org/10.1016/j.atmosenv.2013.05.074.
# NOT RUN { # Do not run data(emisco) Source <- to_rline(X_b = emisco$xmin, Y_b = emisco$ymin, Z_b =0, X_e = emisco$xmin, Y_e = emisco$ymin, Z_e =0, dCL = 0, Emis = emisco$V8, sigmaz0 = 2, lanes = emisco$lanes) head(Source) write.table(x = Source, file = paste0(tempdir(), "/Sources.txt"), row.names = FALSE, sep = " ", quote = FALSE) # }