在动物园时间序列的结束/开始添加时间步数

Question

我有一个动物园时间序列，我想在结束/开始时添加一些具有相同时间间隔的虚拟时间步。例如，我有以下时间序列，我想在结尾添加两个时间步骤，时间localStorage和......21:00:00 BST，其中所有观察值都为零。

......21:30:00 BST

最简单的方法是什么？ （除了编辑上面的代码，当然））

Answer 1

该系列目前正在使用字符串，这些时间不太可能，所以首先将它们转换为POSIXct日期/时间对象：

time(my.zoo.ts) <- as.POSIXct(time(my.zoo.ts))

时间似乎间隔30分钟，所以假设我们想在最后一次30分钟后在两列中追加100和101：

z <- zoo(cbind(100, 101), end(my.zoo.ts) + 30 * 60)
rbind(my.zoo.ts, z)