比较R中多个时间序列的间隔

# 导入所需的包
library(zoo)

# 创建时间序列对象
ts1 <- zoo(c(1, 2, 3, 4), order.by = as.Date(c("2022-01-01", "2022-01-02", "2022-01-03", "2022-01-04")))
ts2 <- zoo(c(5, 6, 7, 8), order.by = as.Date(c("2022-01-01", "2022-01-03", "2022-01-05", "2022-01-07")))
ts3 <- zoo(c(9, 10, 11, 12), order.by = as.Date(c("2022-01-01", "2022-01-04", "2022-01-07", "2022-01-10")))

# 计算时间间隔
ts1_diff <- diff(time(ts1))
ts2_diff <- diff(time(ts2))
ts3_diff <- diff(time(ts3))

# 比较时间间隔
mean_diff <- mean(ts1_diff, ts2_diff, ts3_diff)
max_diff <- max(ts1_diff, ts2_diff, ts3_diff)
min_diff <- min(ts1_diff, ts2_diff, ts3_diff)

# 打印结果
print(mean_diff)
print(max_diff)
print(min_diff)