Location Optimization in R Demo