hw 1

bike1 <- read.table(“bike_sharing_data.csv”, sep=“,”, header=TRUE)

bike2 <- read.table(“bike_sharing_data.txt”, sep=“, header=TRUE)

bike4 <- read.delim(“bike_sharing_data.txt”)

bike3 <- read.csv(“bike_sharing_data.csv”)

str(bike_sharing_data)

(bike_sharing_data)$season[6251] dim(subset(bike_sharing_data,season==4))

dim(subset(bike_sharing_data, windspeed >= 40 & season %in% c(1,4)))