Question 1

Requires No Code

Question 2

#Requires No Code

Question 3

#Requires No Code

Question 4

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

Question 5

dim(bike1)
## [1] 17379    13

Question 6

class(bike1$humidity)
## [1] "character"

Question 7

bike1[6251, "season"]
## [1] 4

Question 8

table(bike1$season)
## 
##    1    2    3    4 
## 4242 4409 4496 4232

Question 9

No R code Required

##Question 10

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