Ваш код не работает, как сообщалось в вашем вопросе.
sp500 <- new.env()
getSymbols("^GSPC", env = sp500, src = "yahoo",
from = as.Date("2008-01-04"), to = Sys.Date())
GSPC <- get("GSPC", envir = sp500)
Тогда вы можете сделать time(GSPC)
, который получил метод для объекта такого типа.