То, что я хочу сделать, довольно легко, но я не смог понять это. Я думал, что могу сделать что-то похожее на то, что изложеноВот

У меня есть символьный вектор тикеров, которые являются объектами xts OHLC, возвращеннымиgetSymbols, Я хочу перебрать каждый тикер в символах и передать символadjustOHLC настроить для расколов:

<code>symbols = c("FCX", "SPY")

for(symbol in symbols){
  return(adjustOHLC(symbol,adjust =c("split"), use.Adjusted=FALSE))
}
</code>

Похоже на тоadjustOHLC неgrab значение переменной «символ»:

<code>debug: div <- getDividends(symbol.name)
Browse[2]> symbol.name
[1] "symbol"
Browse[2]> 
Error in download.file(paste(yahoo.URL, Symbol.name, "&a=", from.m, "&b=",  : 
  cannot open URL 'http://ichart.finance.yahoo.com/table.csv?s=symbol&a=0&b=01&c=1970&d=3&e=14&f=2012&g=v&ignore=.csv'
In addition: Warning message:
In download.file(paste(yahoo.URL, Symbol.name, "&a=", from.m, "&b=",  :
  cannot open: HTTP status was '404 Not Found'
</code>

Если я используюget(symbols) Я получаю тот же результат (аналогичный подход был использован в ссылке, которую я показываю в верхней части этого поста):

<code>for(symbol in symbols){
  return(adjustOHLC(get(symbol),adjust =c("split"), use.Adjusted=FALSE))
}

debug: div <- getDividends(symbol.name)
Browse[2]> symbol.name
[1] "get(symbol)"
Browse[2]> 
Error in download.file(paste(yahoo.URL, Symbol.name, "&a=", from.m, "&b=",  : 
  cannot open URL 'http://ichart.finance.yahoo.com/table.csv?s=get(symbol)&a=0&b=01&c=1970&d=3&e=14&f=2012&g=v&ignore=.csv'
In addition: Warning message:
In download.file(paste(yahoo.URL, Symbol.name, "&a=", from.m, "&b=",  :
  cannot open: HTTP status was '404 Not Found'
</code>

Я думал, что мог бы также использоватьlapply чтобы сделать это быстрее, но подумайте, что я застрял с вышеуказанным вопросом в первую очередь.

lapply(symbols, function(x) adjustOHLC(x, adjust=c("split"), use.Adjusted=FALSE) )

Кажется, достаточно просто - я прошу прощения, если это так тривиально. Ценю помощь.