stupidPieceOfCrap

#load packages zoo and chron
   require(zoo)
   require(chron)

#set working directory
   setwd("/home/knavero/Desktop")

#read in data text file to create zoo series object
   rawData = read.zoo("dataout_2471_843.csv", header = TRUE,
      FUN = as.chron, format = "%m/%d/%Y %H:%M", index.column = 2,
      sep = ",", aggregate = function(x) tail(x, 1))

#removal of any garbage columns
   rawData$Meter.ID = NULL

#outlier removal
   rawData = rawData[rawData$KW.ch..1..set.0. > 0]