Assignment One R Notebook

This is an R Markdown Notebook.

Question 1:

Answer: True

Question 2:

See on blackboard

Question 3:True

Question 4: All apply:

bike2 <- read.table("bike_sharing_data.txt", sep="\t", header=TRUE)

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

bike1 <- read.table("bike_sharing_data.csv", sep=",", header=TRUE)

bike4 <- read.delim("bike_sharing_data.txt")

bike1 <- read.table("bike_sharing_data.csv", sep=",", header=TRUE)

Question 5:

17379, 13

Question 6:

D. Character

Question 7:

Answer: 4

bike_sharing_data_1_[6251,]

Question 8:

Answer: D: 4232

table(bike_sharing_data_1_$season)

Question 9

Answer: True

Question 10 -logical opereration

table(bike_sharing_data_1_$windspeed >=40, "season" %in% 3&4)

Answer: A: 46

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