My first markdown file

This is my first markdown file

Here, we’re going to load some data

setwd("C:/Users/dhnsingh/Downloads/wk4_case_study/exdata_data_NEI_data")

x <- readRDS("summarySCC_PM25.rds")
y <- readRDS("Source_Classification_Code.rds")

Collapsing to totals by year

ag <- aggregate(Emissions~year, data = x, FUN = sum)

plotting totals by year

par(bg = "yellow")
plot(ag$year, ag$Emissions, cex = 3, pch = 18, col = "darkgreen",
     main = "Total Emissions over Time", 
     xlab = "Total Emissions", ylab = "Year")
lines(ag$year, ag$Emissions, col = "red", lwd = 2)