Assignment 1

Question 4

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 <- bike3

Question 5 – Total Number of Observations and Variables

dim(bike)

## [1] 17379    13

Question 6 – Data Type of Humidity

class(bike$humidity)

## [1] "character"

Question 7- Season in Row 6251

bike[6251, "season"]

## [1] 4

Question 8 - Number of Winter Observations

sum(bike$season == 4)

## [1] 4232

Question 10- High wind

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

## [1] 46