Question 4
# Read CSV file
bike1 <- read.table("bike_sharing_data (1).csv", sep = ",", header = TRUE)
bike2 <- read.table("bike_sharing_data.txt", sep = "\t", header = TRUE)
bike3 <- read.csv("bike_sharing_data (1).csv")
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 10
sum(bike1$season %in% c(1, 4) & bike1$windspeed >= 40)
## [1] 46