Assignment1

#Question 4

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

#Question 6

class("humidity")

## [1] "character"

str("humidity")

##  chr "humidity"

#Question 7

bike.csv[6251, "season"]

## [1] 4

#Question 8

sort(table(bike.csv$season), "season" = 4)

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

#Question 10

dim(subset(bike.csv, windspeed >= 40 & season %in% c(1,4)))

## [1] 46 13