## ----setup, include=FALSE--------------------------------------------------------- knitr::opts_chunk$set(echo = TRUE) ## --------------------------------------------------------------------------------- library(readr) library(dplyr) library(tidyverse) library(jhur) bike = read_csv( "http://johnmuschelli.com/intro_to_r/data/Bike_Lanes.csv") ## --------------------------------------------------------------------------------- library(jhur) bike = read_bike() ## ----q1--------------------------------------------------------------------------- ## ----q2--------------------------------------------------------------------------- ## ----q3--------------------------------------------------------------------------- ## ----q4--------------------------------------------------------------------------- ## ----q5--------------------------------------------------------------------------- ## ----q6--------------------------------------------------------------------------- ## ----q7---------------------------------------------------------------------------