如何对r中的2个日期序列之间的信息求和？

install.packages("zoo")
install.packages("xts")
library(zoo)
library(xts)

date_seq1 <- as.Date(c("2022-01-01", "2022-01-02", "2022-01-03"))
date_seq2 <- as.Date(c("2022-01-01", "2022-01-03", "2022-01-05"))

zoo_seq1 <- zoo(1:length(date_seq1), order.by = date_seq1)
zoo_seq2 <- zoo(1:length(date_seq2), order.by = date_seq2)

merged_data <- merge(zoo_seq1, zoo_seq2)

filled_data <- na.locf(merged_data)

sum_info <- sum(filled_data$zoo_seq1 - filled_data$zoo_seq2)