R/IsReg.R

In EmiStatR: Emissions and Statistics in R for Wastewater and Pollutants in Combined Sewer Systems

# Wrapping function for function "is.regular" from "zoo" package for "data.frame" objects
# author: J.A. Torres-Matallana
# organization: LIST (Luxembourg Institute of Science and Technology)
# place: Belvaux, Luxembourg
# date: 21.05.2015 

IsReg <- function(data, format, tz){
  #=======================================================================================================
  # creating a xts object from data
  #=======================================================================================================
  # library(zoo)
  # loadNamespace("xts"); # library(xts)
  
  dat  <- data[,1]
  val  <- data[,-1] 
  #date <- strptime(dat, format=format, tz=tz) # use if duration is less than 1 day
  date <- as.POSIXct(dat, format=format, tz = tz)
  # save(date, file="date.RData")
  ts   <- as.xts(val, order.by=date)
  # head(ts, 20)
  #=======================================================================================================
  # determining regularity of time series
  #=======================================================================================================
  ifelse(is.regular(ts, strict=TRUE)=="TRUE", reg <- "_TSregular", reg <- "_TSirregular")
  return(list(reg, ts))
}