Assignment 1

Which of the following code would be correct to extract the bike sharing datasets in R?

bike1 <- read.table("bike_sharing_data.csv", sep=",", header=TRUE)

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")

All Four Options Work

What is the value of season in row 6251?

bike1[6251, "season"]

## [1] 4

How many observations have the season as winter?

table(bike1$season)

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

4232 Observations have the season as winter (4)

How many observations having “High” wind thread condition or above during winter or spring?

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

## [1] 46