BI Assignment 1, Jason Lamay

library("readr")
setwd("~/Downloads")

Question 4

bike2 <- read.table("bike_sharing_data.txt",sep="\t",header=TRUE)
bike1 <- read.table("bike_sharing_data.csv",sep=",",header=TRUE)
bike3 <- read.csv("bike_sharing_data.csv")
bike4 <- read.delim("bike_sharing_data.txt")

Question 5

str(bike3)

## 'data.frame':    17379 obs. of  13 variables:
##  $ datetime  : chr  "1/1/2011 0:00" "1/1/2011 1:00" "1/1/2011 2:00" "1/1/2011 3:00" ...
##  $ season    : int  1 1 1 1 1 1 1 1 1 1 ...
##  $ holiday   : int  0 0 0 0 0 0 0 0 0 0 ...
##  $ workingday: int  0 0 0 0 0 0 0 0 0 0 ...
##  $ weather   : int  1 1 1 1 1 2 1 1 1 1 ...
##  $ temp      : num  9.84 9.02 9.02 9.84 9.84 ...
##  $ atemp     : num  14.4 13.6 13.6 14.4 14.4 ...
##  $ humidity  : chr  "81" "80" "80" "75" ...
##  $ windspeed : num  0 0 0 0 0 ...
##  $ casual    : int  3 8 5 3 0 0 2 1 1 8 ...
##  $ registered: int  13 32 27 10 1 1 0 2 7 6 ...
##  $ count     : int  16 40 32 13 1 1 2 3 8 14 ...
##  $ sources   : chr  "ad campaign" "www.yahoo.com" "www.google.fi" "AD campaign" ...

Question 6

class (bike3$humidity)

## [1] "character"

Question 7

bike3[6251, "season"]

## [1] 4

Question 8

season_count <- table(bike3$season)
winter_count <- season_count [4]
print(winter_count)

##    4 
## 4232

Question 10

High_speed_winter_spring <- subset (bike3,windspeed >= 40 & season %in% c(1,4))
str(High_speed_winter_spring)

## 'data.frame':    46 obs. of  13 variables:
##  $ datetime  : chr  "2/14/2011 15:00" "2/14/2011 17:00" "2/14/2011 18:00" "2/14/2011 22:00" ...
##  $ season    : int  1 1 1 1 1 1 1 1 1 1 ...
##  $ holiday   : int  0 0 0 0 0 0 0 0 0 0 ...
##  $ workingday: int  1 1 1 1 1 1 0 0 0 0 ...
##  $ weather   : int  1 1 1 1 1 1 1 1 1 1 ...
##  $ temp      : num  23 18.9 16.4 13.9 12.3 ...
##  $ atemp     : num  26.5 22.7 20.5 14.4 12.1 ...
##  $ humidity  : chr  "21" "33" "40" "46" ...
##  $ windspeed : num  44 41 41 44 52 ...
##  $ casual    : int  19 25 11 1 0 1 18 52 102 84 ...
##  $ registered: int  71 218 194 44 5 2 37 103 94 87 ...
##  $ count     : int  90 243 205 45 5 3 55 155 196 171 ...
##  $ sources   : chr  "www.google.co.uk" "ad campaign" "ad campaign" "www.google.co.uk" ...