преобразовать число дня в юлианском формате в формат даты и времени гггг-мм-дд чч: мм: сс в R

Question

Как преобразовать число юлианских дней в дату и время, если источником является ("2000-01-01") и у меня есть два номера юлианских дней JDN (4822.178270,4822.17840), каково эквивалентное время даты? код

JDN <- c(4822.178270,4822.17840)
temp<- as.Date(JDN +0.5, origin=as.Date("2000-01-01 00:00:00")) # that gave only date as "2013-03-15" "2013-03-15" without time.

# мой результат должен быть:

"2013-03-15 16:16:42" "2013-03-15 16:16:53"

Answer 1

as.POSIXct('2000-01-01')+((JDN+0.5)*24*60*60)

Answer 2

Это должно сделать это:

JDN <- c(4822.178270,4822.17840)


origin <- lubridate::ymd_hms('2000-01-01 00:00:00')

origin + JDN * 3600*24
#> [1] "2013-03-15 04:16:42 UTC" "2013-03-15 04:16:53 UTC"

^{Создано в 2020-01-22 с помощью пакета Представить (v0.3.0)}