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)