Assignment 1

Question 4

bike1 <- read.csv("~/Documents/Fairfield/Business Intell/bike_sharing_data.csv")

Question 7

bike1[6251,]

##            datetime season holiday workingday weather  temp  atemp humidity
## 6251 9/23/2011 0:00      4       0          1       2 25.42 27.275       94
##      windspeed casual registered count     sources
## 6251    6.0032      5         23    28 Ad Campaign

Question 8

sort(table(bike1$season))

## 
##    4    1    2    3 
## 4232 4242 4409 4496

Question 10

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

## [1] 46 13