power1 <- read.csv(file = "c:/datasets/household_power_consumption.txt", stringsAsFactors=F, header = TRUE,
               sep=";", dec = ".", na.strings="?", col.names = c("date1","time1","Global_active_power", "Global_reactive_power",
                                                                 "Voltage","Global_intensity","Sub_metering_1","Sub_metering_2",
                                                                 "Sub_metering_3"))

power2 <- subset(power1, subset=(as.Date(date1,  format = "%d/%m/%Y") >= "2007-02-01"
                             & as.Date(date1,  format = "%d/%m/%Y") <= "2007-02-02"))