Update bikesharing.R