fixes to bike_sharing.R script