Calculate temporally scaled air lead exposure estimates at specific locations.

calculate_scaled_airPb() is a wrapper function that estimates airborne lead exposures at provided locations by calling calculate_airPb(), 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_airPb(locations)

Arguments

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

Value

A numeric vector of air lead estimates (ug/m3).

References

Cole Brokamp, Roman Jandarov, MB Rao, Grace LeMasters, Patrick Ryan. Exposure assessment models for elemental components of particulate matter in an urban environment: A comparison of regression and random forest approaches. Atmospheric Environment. 151. 1-11. 2017. http://dx.doi.org/10.1016/j.atmosenv.2016.11.066

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 = c(as.Date("2010-01-08"), as.Date("2012-06-08"), as.Date("2015-04-09")),
    end_date = c(as.Date("2010-02-08"), as.Date("2012-07-08"), as.Date("2015-05-09")))

airPb_scaled <- add_scaled_airPb(my_data)