## ----message = FALSE, warning= FALSE------------------------------------------
start_val <- as.POSIXct("2016-03-25 08:15:00", tz = "CET")
seq(start_val, by = "day", length.out = 4)
seq(start_val, by = "DSTdays", length.out = 4)

## -----------------------------------------------------------------------------
seq(start_val, by = "week", length.out = 2)

## -----------------------------------------------------------------------------
seq(start_val, by = "7 DSTdays", length.out = 2)

## -----------------------------------------------------------------------------
library(padr)
to_pad <- data.frame(dt = seq(as.POSIXct("2016-02-02 14:53:12", tz = "CET"),
  length.out = 2, by = "day"
))
pad(to_pad, start_val = as.POSIXct("2016-02-01 14:53:12", tz = "EST"))