как сохранить торговую дату из get.hist.quote

Question

Привет, я загружаю данные с помощью get.hist.quote и с помощью "coredata" я сохранил цену шпиона. Вместо этого, как я могу сохранить торговую дату периодов 2006-12 в векторе?

library(tseries)
library(zoo)
SPY <- get.hist.quote("SPY",start = "2006-01-02",end = "2011-01-01",quote = "AdjClose", compression = "d",retclass = c("zoo","ts"))
L<-length(SPY)
SPY <- get.hist.quote("SPY",start = "2006-01-02",end = "2012-01-01",quote = "AdjClose", compression = "d",retclass = c("zoo","ts"))
X <- length(SPY)

Answer 1

Вот проверенный код в поддержку моих комментариев:

dts <- as.Date( index(SPY), origin="2006-01-03")

> str(dts)
 Date[1:1259], format: "2006-01-03" "2006-01-04" "2006-01-05" "2006-01-06" "2006-01-09" "2006-01-10" "2006-01-11" "2006-01-12" "2006-01-13" ...
> max(dts)
[1] "2010-12-31"