r script for openstreetmap analysis