Added plot1.R, plot1.png, plot2.R and plot2.png

plot1.R

@@ -0,0 +1,28 @@
+# Data downloading and reading
+fileURL<-"https://d396qusza40orc.cloudfront.net/exdata%2Fdata%2Fhousehold_power_consumption.zip"
+download.file(fileURL, destfile="./exdata-data-household_power_consumption.zip", method="curl")
+unzip("exdata-data-household_power_consumption.zip")
+conn <- file("household_power_consumption.txt", "r")
+
+data <- read.table(conn, 
+                   sep = ";", 
+                   comment.char = "", 
+                   na.strings = "?",
+                   header = TRUE, 
+                   colClasses = c("character", "character", "numeric", "numeric", "numeric", "numeric", "numeric", "numeric", "numeric"))
+
+#Convert Date and Time into one single DateAndTime variable
+data$DateAndTime <- as.POSIXct(paste(data$Date, data$Time), format="%d/%m/%Y %H:%M:%S")
+data$Time <- NULL
+data$Date <- NULL
+
+#Subset the dataset to the following date range: 2007-02-01 and 2007-02-02
+libary(dplyr)
+dateFrom <- as.POSIXct("01/02/2007 00:00:00", format="%d/%m/%Y %H:%M:%S")
+dateUntil <- as.POSIXct("03/02/2007 00:00:00", format="%d/%m/%Y %H:%M:%S")
+data <- filter(data, DateAndTime >= dateFrom & DateAndTime < dateUntil)
+
+# Plot it into a png file
+png(file = "plot1.png", width = 480, height = 480)
+hist(data$Global_active_power, col = "red", main = "Global Active Power", xlab = "Global Active Power (kilowatts)")
+dev.off()

plot2.R

@@ -0,0 +1,29 @@
+# Data downloading and reading
+fileURL<-"https://d396qusza40orc.cloudfront.net/exdata%2Fdata%2Fhousehold_power_consumption.zip"
+download.file(fileURL, destfile="./exdata-data-household_power_consumption.zip", method="curl")
+unzip("exdata-data-household_power_consumption.zip")
+conn <- file("household_power_consumption.txt", "r")
+
+data <- read.table(conn, 
+                   sep = ";", 
+                   comment.char = "", 
+                   na.strings = "?",
+                   header = TRUE, 
+                   colClasses = c("character", "character", "numeric", "numeric", "numeric", "numeric", "numeric", "numeric", "numeric"))
+
+#Convert Date and Time into one single DateAndTime variable
+data$DateAndTime <- as.POSIXct(paste(data$Date, data$Time), format="%d/%m/%Y %H:%M:%S")
+data$Time <- NULL
+data$Date <- NULL
+
+#Subset the dataset to the following date range: 2007-02-01 and 2007-02-02
+libary(dplyr)
+dateFrom <- as.POSIXct("01/02/2007 00:00:00", format="%d/%m/%Y %H:%M:%S")
+dateUntil <- as.POSIXct("03/02/2007 00:00:00", format="%d/%m/%Y %H:%M:%S")
+data <- filter(data, DateAndTime >= dateFrom & DateAndTime < dateUntil)
+
+# Plot it into a png file
+png(file = "plot2.png", width = 480, height = 480)
+with(data, plot(DateAndTime, Global_active_power, type = "l", xlab = "", ylab = "Global Active Power (kilowatts)"))
+dev.off()
+