TS объект на кадр данных
data.frame(Y=as.matrix(dat), date=time(dat))
Rocku0
data.frame(Y=as.matrix(dat), date=time(dat))