提取xts对象的数值

Question

我想提取xts对象的数值。我们来看一个例子

data <- new.env()
starting.date <- as.Date("2006-01-01")
nlookback <- 20
getSymbols("UBS", env = data, src = "yahoo", from = starting.date)
Reg.curve <- rollapply(Cl(data$UBS), nlookback, mean, align="right")

Reg.cuve仍然是一个xts对象，但实际上我只对运行方式感兴趣。如何修改Reg.curve以获取数字向量？

Answer 1

使用coredata：

reg.curve.num <- coredata(Reg.curve)
# or, if you want a vector:
reg.curve.num <- drop(coredata(Reg.curve))

Answer 2

要提取任何“ xts”，“ ts”或“ zoo”对象的数值，请使用：

as.numeric(Reg.curve)