Assignment 1

Question 4

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")

Question 6

class(bike2$humidity)

## [1] "character"

Question 7

bike2[6251, "season"]

## [1] 4

Question 8

table(bike2$season)[4]

##    4 
## 4232

Question 10

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

## [1] 46