HW1

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


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


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


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

#question 7

value <- bike1[6251, "season"]
print(value)

## [1] 4

#question 8
table1 <- table(bike1$season)
print(table1)

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

#question10
high_threshold <- 40
subset_high <- subset(bike1, season %in% c(1,2) & windspeed >= high_threshold)
nrow(subset_high)

## [1] 48