targets <- data.frame(location = c("p1", "p2"),
lon = c(6.561561, 6.561398),
lat = c(53.21369, 53.21326))
reference <- data.frame(lon = c(6.5614, 6.5620, 6.5630),
lat = c(53.2132, 53.2140, 53.2150),
amount = c(10, 20, 15))
radius_sum(targets, reference, value = "amount", radius = 100,
progress = FALSE)
Run the code above in your browser using DataLab