Read_Data.R

# Read entries between 2007-02-01 and 2007-02-02
# Make sure to have the data file in your working directory
dat = read.csv('household_power_consumption.txt', header =F,sep = ';', skip = 66637, nrows = 2880, na.strings = '?')

# Read and assign column names
cnames = read.csv('household_power_consumption.txt',sep=';',nrows=1)
names(dat) = names(cnames)

# Parse and combine Date and Time
library(lubridate)
dat$Date = dmy(dat$Date)
dat$Time = hms(dat$Time)
DateTime = dat$Date + dat$Time
dat = cbind(DateTime,dat)