Assignment 1.

Question 1

Business Intelligence uses tools, data, and analytics to help support better decision making looking at historical and current data.

Question 2

No R code required

Question 3

No R code required

Question 4: All Import Options Work

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

Question 5: Dimensions

dim(bike)

## [1] 17379    13

Question 6: Humidity Class

class(bike$humidity)

## [1] "character"

Question 7: Row 6251 Season

bike[6251, "season"]

## [1] 4

Question 8: Season Table

table(bike$season)

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

Question 9

No R code required

Question 10: High Wind Count

summary(bike$windspeed)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   0.000   7.002  12.998  12.737  16.998  56.997

high_wind <- bike$windspeed >= 40
winter_spring <- bike$season %in% c(1,2)
sum(high_wind & winter_spring, na.rm = TRUE)

## [1] 48