Assignment 1 BI

bike_sharing_data <- read.csv("bike_sharing_data.csv")

Question 4

How to extract the data

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

They all work

Question 6

What Type of data is in the humidity section

str(bike3$humidity)

##  chr [1:17379] "81" "80" "80" "75" "75" "75" "80" "86" "75" "76" "76" "81" ...

When you run this code it shows the data as numbers which is integers

Question 7

How to locate a specific peice of data

bike1[6251, "season"]

## [1] 4

Question 8

Quantifying peices of data from a column

table(bike1$season)

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

If we determined 4 is winter from the link, then we use the value under 4

Question 10

Subsetting data

Q10 <- bike_sharing_data[
  bike_sharing_data$season %in% c(4, 1) &
  bike_sharing_data$windspeed >= 40, ]

Made it a seperate spreadsheet