У меня есть вектор объектов POSIXct:
> dates <- seq(as.POSIXct("2004-01-01", tz="EST"), as.POSIXct("2004-01-02", tz="EST"), as.difftime(6, units="hours"))
> dates
[1] "2004-01-01 00:00:00 EST" "2004-01-01 06:00:00 EST"
[3] "2004-01-01 12:00:00 EST" "2004-01-01 18:00:00 EST"
[5] "2004-01-02 00:00:00 EST"
Я создаю переменную epoch
, которая определяет объект POSIXct для эпохи UNIX :
> epoch <- strptime("1970-01-01 00:00:00", "%Y-%m-%d %H:%M:%S", tz="EST")
> class(epoch)
[1] "POSIXct" "POSIXt"
> epoch
[1] "1970-01-01 EST"
Затем я перебираю вектор dates
и распечатываю значение со смещением от epoch
:
> for (d in dates) { print(as.POSIXct(d, origin=epoch, tz="EST")) }
[1] "2004-01-01 05:00:00 EST"
[1] "2004-01-01 11:00:00 EST"
[1] "2004-01-01 17:00:00 EST"
[1] "2004-01-01 23:00:00 EST"
[1] "2004-01-02 05:00:00 EST"
Кажется, существует пятичасовая ошибка смещения между значениями в dates
и представлением тех же значений относительно epoch
.
Существует разница в +5 часов между EST и UTC, но я указал часовой пояс EST для epoch
с опцией tz
. Распечатывая epoch
, кажется, что нет информации о времени, только дата.
Есть ли ошибка с strptime
или as.POSIXct
, или я вычисляю смещение или неправильно генерирую epoch
?