Wyodrębnianie wartości liczbowych obiektu xts

Question

Chcę wyodrębnić wartości liczbowe obiektu xts. Spójrzmy na przykład

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 jest nadal przedmiotem XTS ale faktycznie jestem tylko zainteresowany w środkach prowadzących. Jak mogę zmodyfikować Reg.curve, aby uzyskać wektor liczbowy?

Answer 1

Zastosowanie coredata:

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