R-quantmod，如何在脚本中稍后引用getsymbol数据

在R语言中编程非常新-但我在这一点上被难住了：

我只想在脚本中输入一次股票符号数据，但不知道如何在以后使用Ad（x）时引用ie adjusted close，而不必再次键入股票名称。我尝试按如下方式传递变量，但收到错误消息：

#get stock series data
stockPair <- c("SPY","DIA")
look_per <- "2015-01-01"
stckA <- suppressWarnings(getSymbols(stockPair[1], from = look_per))
stckB <- suppressWarnings(getSymbols(stockPair[2], from = look_per))

#get Adjusted close data
adA <- Ad(stckA )
adB <- Ad(stckB )


Error in Ad(stckA) : 
  subscript out of bounds: no column name containing "Adjusted"

#获取股票系列数据
stockPair当你遇到错误时，你应该做的第一件事就是查看你的数据。在这种情况下，
stckA
和
stckB
不是您所认为的那样

R> stckA <- suppressWarnings(getSymbols(stockPair[1], from = look_per))
R> stckB <- suppressWarnings(getSymbols(stockPair[2], from = look_per))
R> str(stckA)
 chr "SPY"
R> str(stckB)
 chr "DIA"

@trock2000：将它们放在一个环境中，并使用
eapply
从列表中提取您想要的内容。有几个例子说明如何在StackOverflow上执行此操作。
R> stckA <- getSymbols(stockPair[1], from = look_per, auto.assign = FALSE)
R> str(Ad(stckA))  # now stckA contains data
An ‘xts’ object on 2015-01-02/2015-08-05 containing:
  Data: num [1:149, 1] 204 200 198 200 204 ...
 - attr(*, "dimnames")=List of 2
  ..$ : NULL
  ..$ : chr "SPY.Adjusted"
  Indexed by objects of class: [Date] TZ: UTC
  xts Attributes:  
List of 2
 $ src    : chr "yahoo"
 $ updated: POSIXct[1:1], format: "2015-08-05 20:02:30"