Calculate temporally scaled ECAT exposure estimates at specific locations.

add_scaled_ecat() is a wrapper function that estimates ECAT exposures at provided locations by calling calculate_ecat(), then temporally scales those estimates using scaling factors computed by calling calculate_scaling_factors(). This function is particularly useful for calculating exposures at the same locations on different dates.

add_scaled_ecat(locations)

Arguments

locations	Data.frame with columns 'id', 'lat','lon', 'start_date', and 'end_date' at minimum.

Value

A numeric vector of ECAT estimates (ug/m3).

References

Ryan, P.H., G.K. LeMasters, P. Biswas, L. Levin, S. Hu, M. Lindsey, D.I. Bernstein, J. Lockey, M. Villareal, G.K. Khurana Hershey, and S.A. Grinshpun. 2007. "A Comparison of Proximity and Land Use Regression Traffic Exposure Models and Wheezing in Infants." Environmental Health Perspectives 115(2): 278-284. https://doi.org/10.1289/ehp.9480

Examples

my_data <- data.frame(id = rep(1,3),
    lat = c(39.19674, 39.19674, 39.19674),
    lon = c(-84.58260, -84.58260, -84.58260),
    start_date = as.Date(c("2010-01-08", "2012-06-08", "2015-04-09")),
    end_date = as.Date(c("2010-02-08", "2012-07-08", "2015-05-09")))

ecat_scaled <- add_scaled_ecat(my_data)
#> Loading required package: raster
#> Loading required package: sp
#> Warning: The `raster` package has been attached to the global environment, masking dplyr::select()