Assgn 1 Lu

Import the dataset

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

Question 7

bike_data[6251, "season"]

## [1] 4

Question 8 - Freq of Seasons

table(bike_data$season)

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

Question 10

count_high_wind <- sum(bike_data$season %in% c(1, 4) & bike_data$windspeed >= 40)
count_high_wind

## [1] 46