Assignment 1

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

dim(bike_data)

## [1] 17379    13

bike_data[6251, "season"]

## [1] 4

table(bike_data$season)

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

high_wind_threshold <- 40


filtered_data <- bike_data[(bike_data$season %in% c(1, 4)) & (bike_data$windspeed >= high_wind_threshold), ]


print(nrow(filtered_data))

## [1] 46