如何解决如何更改可以将多个日期转换为儒略日的功能
以下函数，来自 R - convert POSIXct to fraction of julian day 的原始函数是我想要更改的函数。
julian_conv <- function(x) {
if (is.na(x)) {
return(NA)
}
else {
j <-julian(x,origin = as.POSIXlt(paste0(format(x,"%Y"),'-01-01')))
temp <- unclass(j)
return(temp[1] + 1)
}
}
该函数将日期转换为儒略日。 示例：
date <- as.POSIXct('2006-12-12 12:00:00')
julian_conv(date)
#[1] 345.5
是否可以更改一次可以更改多个日期的功能？例如以下日期：
date <- as.POSIXct(c('2006-12-12 13:00:00','2013-12-12 12:00:00','2020-12-12 12:00:00'))
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。