# Target points
sub <- data.frame(location = c("p1", "p2"),
lon = c(6.561561, 6.561398),
lat = c(53.21369, 53.21326))
# Reference points with values
full <- data.frame(lon = c(6.5614, 6.5620, 6.5630),
lat = c(53.2132, 53.2140, 53.2150),
amount = c(10, 20, 15))
# Calculate concentration within 100 meters
concentration(sub, full, value = amount, radius = 100)
Run the code above in your browser using DataLab