test.R

bike2 <- read.table("bike_sharing_data.txt", sep="\t", header=TRUE)
bike3 <- read.csv("bike_sharing_data.csv")
bike4 <- read.delim("bike_sharing_data.txt")
bike1 <- read.table("bike_sharing_data.csv", sep=",", header=TRUE)
bike1[6251, 2]

## [1] 4

table(bike1$season)[4]

##    4 
## 4232

sum(bike1$season == 4)

## [1] 4232

sum(bike1$season %in% c(1, 4) &
      bike1$windspeed >= 40 &
      bike1$windspeed <= 57)

## [1] 46