Bike Sharing Demand in R