Assignment_1

R Markdown

#install.packages("tinytex")
#install.packages("xfun")

library(tinytex)
library(xfun)

#install.packages("xfun")
#install.packages(c("knitr", "rmarkdown"))

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

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

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

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

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

read.delim(c("bike_sharing_data.txt"))

bike <- read.csv("bike_sharing_data.csv")
bike[6251, "season"]

## [1] 4

table(bike$season)

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

table(bike$season)[4]

##    4 
## 4232

sum(bike$windspeed >= 40 & bike$windspeed <= 57 & bike$season %in% c(1,4))

## [1] 46