Преобразование нерегулярного временного ряда в обычный временной ряд

У меня возникла проблема при преобразовании нерегулярных временных рядов в обычные временные ряды. Ниже приведен упрощенный пример:

require(zoo)
t <- as.character(c(1981,1984,1985))
d <- c(1,3,6)
dt <- data.frame(d,t)
t <- as.Date(t,"%Y")
z <- zoo(d,t)
plot(z)
ts.d <- as.ts(as.zooreg(z,freq=1)) # create a regular ts object
ts.d # regular time series

Я хотел бы создать регулярный временной ряд ts.d, который выглядит как c (1981, NA, NA, 1984,1985).

Удивительно то, что первый раз, когда я запустил это: это работает! но когда я хочу запустить его снова или повторить (строка as.ts ()), он перестает работать, и я получаю очень длинный временной ряд:

ts.d # regular time series
Time Series:
Start = 4299 
End = 5760 
Frequency = 1 
  [1]  1 NA NA NA NA NA NA NA NA NA NA NA NA NA
 [15] NA NA NA NA NA NA NA NA 

и т. д.

Что происходит не так?