Estrazione dei valori numerici di un oggetto xts

Question

Desidero estrarre i valori numerici di un oggetto xts. Diamo un'occhiata a un esempio

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") 

Il Reg.cuve è ancora un oggetto XTS, ma in realtà io sono solo interessati a mezzi in esecuzione. Come posso modificare Reg.curve per ottenere un vettore numerico?

Answer 1

Uso coredata:

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