Estimating the Rotterdam Demand System in R