Citibike R Analysis