First_Homework

library(readxl)

##Read TRC Data

d <- read_excel("C:\\Users\\amuchene\\Downloads\\Excel\\UVM Shared Use Path.xlsx")

# Total  Counts

sum(d$BikeCounts)

## [1] 370434

mean(d$BikeCounts)

## [1] 33.67888

summary(d$BikeCounts)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    1.00    4.00   16.00   33.68   54.00  222.00