Bir xts nesnesinin sayısal değerlerinin ayıklanması

Question

Bir xts nesnesinin sayısal değerlerini çıkarmak istiyorum. en

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 hala XTS nesnesidir ama aslında çalışan araçlarla sadece ilgilendiğim bir örneğe bakalım. Sayısal bir vektör elde etmek için Reg.curve'u nasıl değiştirebilirim?

Answer 1

Kullanım coredata:

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