True
See answer in Blackboard
True
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")
bike_data <- read.csv("bike_sharing_data.csv")
dim(bike_data)
## [1] 17379 13
str(bike_data$humidity)
## chr [1:17379] "81" "80" "80" "75" "75" "75" "80" "86" "75" "76" "76" "81" ...
bike_data[6251, "season"]
## [1] 4
table(bike_data$season)[4]
## 4
## 4232
True
# Subset the data for windspeed > 40 and season is winter or spring
high_wind <- subset(bike_data, windspeed > 40 & season %in% c(1, 2))
# Count the number of matching observations
nrow(high_wind)
## [1] 48