SeriesAggreg.R

SeriesAggreg <- function(TabSeries,
                         TimeFormat, NewTimeFormat,
                         ConvertFun,
                         YearFirstMonth = 1, TimeLag = 0,
                         verbose = TRUE) {
  
  
  ##_Arguments_check
  
  ##check_TabSeries
  if (is.null(TabSeries)       ) {
    stop("'TabSeries' must be a data.frame containing the dates and data to be converted")
  }
  if (!is.data.frame(TabSeries)) {
    stop("'TabSeries' must be a data.frame containing the dates and data to be converted")
  }
  if (ncol(TabSeries) < 2) {
    stop("'TabSeries' must contain at least two columns (including the coulmn of dates")
  }
  ##check_TimeFormat
  if (!any(class(TabSeries[, 1]) %in% "POSIXt")) {
    stop("'TabSeries' first column must be a vector of class 'POSIXlt' or 'POSIXct'")
  }
  if (any(class(TabSeries[, 1]) %in% "POSIXlt")) {
    TabSeries[, 1] <- as.POSIXct(TabSeries[, 1])
  }
  for (iCol in 2:ncol(TabSeries)) {
    if (!is.numeric(TabSeries[,iCol])) {
      stop("'TabSeries' columns (other than the first one) be of numeric class")
    }
  }
  if (is.null(TimeFormat)) {
    stop("'TimeFormat' must be one of 'hourly', 'daily', 'monthly' or 'yearly'")
  }
  if (!is.vector(TimeFormat)) {
    stop("'TimeFormat' must be one of 'hourly', 'daily', 'monthly' or 'yearly'")
  }
  if (!is.character(TimeFormat)) {
    stop("'TimeFormat' must be one of 'hourly', 'daily', 'monthly' or 'yearly'")
  }
  if (length(TimeFormat) != 1) {
    stop("'TimeFormat' must be one of 'hourly', 'daily', 'monthly' or 'yearly'")
  } 
  if (! TimeFormat %in% c("hourly", "daily", "monthly", "yearly")) {
    stop("'TimeFormat' must be one of 'hourly', 'daily', 'monthly' or 'yearly'")
  }
  ##check_NewTimeFormat
  if (is.null(NewTimeFormat)) {
    stop("'NewTimeFormat' must be one of 'hourly', 'daily', 'monthly' or 'yearly'")
  }
  if (!is.vector(NewTimeFormat)) {
    stop("'NewTimeFormat' must be one of 'hourly', 'daily', 'monthly' or 'yearly'")
  }
  if (!is.character(NewTimeFormat)) {
    stop("'NewTimeFormat' must be one of 'hourly', 'daily', 'monthly' or 'yearly'")
  }
  if (length(NewTimeFormat) != 1) {
    stop("'NewTimeFormat' must be one of 'hourly', 'daily', 'monthly' or 'yearly'")
  }
  if (! NewTimeFormat %in% c("hourly", "daily", "monthly", "yearly")) {
    stop("'NewTimeFormat' must be one of 'hourly', 'daily', 'monthly' or 'yearly'")
  }
  ##check_ConvertFun
  if (is.null(ConvertFun)) {
    stop("'ConvertFun' must be a vector of character")
  }
  if (!is.vector(ConvertFun)) {
    stop("'ConvertFun' must be a vector of character")
  }
  if (!is.character(ConvertFun)) {