DATA4310 HW #1 Code

bike_sharing_data <- read.csv("bike_sharing_data (1).csv")

typeof(bike_sharing_data$humidity)

## [1] "character"

bike_sharing_data[6251,2]

## [1] 4

sort(table(bike_sharing_data$season), decreasing=TRUE)

## 
##    3    2    1    4 
## 4496 4409 4242 4232

subset(bike_sharing_data, 
       (windspeed >=40) & (season %in% c("1", "2")))