BI Homework 1

question 4

bike1 <- read.table("Datasets/bike_sharing_data.csv", sep=",", header=TRUE)

bike2 <- read.table("Datasets/bike_sharing_data.txt", sep="\t", header=TRUE)

bike4 <- read.delim("Datasets/bike_sharing_data.txt")

bike3 <- read.csv("Datasets/bike_sharing_data.csv")

q7

bike1$season[6251]

## [1] 4

bike1[6251, "season"]

## [1] 4

q8

sum(bike1$season == 4)

## [1] 4232

q10

subset_seasons <- bike1[bike1$season %in% c(1, 4), ]
sum(subset_seasons$windspeed >= 40)

## [1] 46