在動物園時間系列結束/開始時添加時間步數

Question

我有一個動物園時間系列，我想在結束/開始時添加一些具有相同時間間隔的虛擬時間步。例如，我有以下時間序列，並且我希望在末尾添加兩個更多時間步驟，時間點爲......21:00:00 BST和......21:30:00 BST，其中所有觀察值都爲零。

my.zoo.ts = zoo(matrix(c(1:8),ncol=2), 
      c("2012-07-05 19:00:00 BST", "2012-07-05 19:30:00 BST", 
       "2012-07-05 20:00:00 BST", "2012-07-05 20: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)