Implementation of the multi-scale taxi problem solution in R