+#' @title integerIndexToDate
+#'
+#' @description Transform an integer index to date index (relative to data)
+#'
+#' @param index Date (or integer) index
+#' @param data Object of class \code{Data}
+#'
+#' @export
+integerIndexToDate = function(index, data)
+{
+ index = index[1]
+ if (is.numeric(index))
+ index = as.integer(index)
+ if (!is.integer(index))
+ stop("'index' should be an integer")
+ as.Date( data$getTime(index)[1] )
+}
+