Displaying 1 result from an estimated 1 matches for "yxts".
Did you mean:
exts
2018 Jan 07
1
help needed on quantmod....
...sym <- deparse(substitute(x))
y <- getQuote(sym)
# convert to xts
y1 <- y[,-c(3,4)]
y2 <- y1[,c("Trade Time","Open","High","Low","Last","Volume")]
yxts <- xts(y2[, -1], as.Date(y2[, 1]))
yxts$Adjusted <- yxts[, 'Last']
return(rbind(x, yxts))
}
if(class(x) == "list"){
for(j in 1:length(x)){
sym <- deparse(substitute(x[[j]]))
y <...