r - 在 quantmod 中更新历史价格

Question

Quantmod 的 getSymbols() 获取截至昨天收盘的历史价格。我在早上进行分析，并想用当前报价更新系列（我只使用调整后的价格）。我似乎无法让它工作。当我使用此代码时：

getSymbols('AGNC')
q <- getQuote('AGNC')
d <- Sys.Date()
qq<- q$Last
x <- zoo(qq,d)
t <- rbind.zoo(Ad(AGNC), x)
print(tail(t))

打印出来没问题，但是当我尝试做进一步的事情时，比如：

dum <- dailyReturn(t)

我收到以下错误：

colnames<-( , value = "daily.returns")中的错误*tmp*：尝试在小于二维的对象上设置 colnames

有任何想法吗？

Answer 1

library(quantmod)
getSymbols('AGNC')
q <- getQuote('AGNC')
d <- Sys.Date()
qq<- q$Last
x <- xts(qq,d)
t <- rbind(Ad(AGNC), x)
print(tail(t))
dailyReturn(t)

Answer 2

这是更新符号的另一种方法：

require(quantmod)
getSymbols('AGNC')

q <- getQuote('AGNC')
row.names(q)<- trunc(q[,"Trade Time"], units="days")
q <- q[,c("Open","High","Low","Last","Volume","Last")]
names(q) <- c("Open","High","Low","Close","Volume","Adjusted")
AGNC <- merge(AGNC,q,by="Date")
print(last(AGNC))
dailyReturn(AGNC)