plot1.R

source("prep.R")

doPlot1 <- function() {
    tbl <- prepareData()
    png(filename = "plot1.png", width = 480, height = 480, units = "px")
    hist(tbl$Global_active_power, main="Global Active Power", xlab="Global Active Power (kilowatts)", col="red")
    dev.off()
}

doPlot1()