Import Data - Assignment 1

Question 4

bike_data <- read.csv("bike_sharing_data.csv")

Question 6

class(bike_data$humidity)  # Returns "integer", "numeric", or "character"

[1] "character"

typeof(bike_data$humidity) # Returns "integer" or "double"

[1] "character"

Question 7

bike_data[6251, "season"]

[1] 4

Question 8

table(bike_data$season)

   1    2    3    4 
4242 4409 4496 4232 

Question 10

high_wind_obs <- subset(bike_data, windspeed >= 40 & (season == 1 | season == 4))
nrow(high_wind_obs)  # Count observations

[1] 46