1)我有一个变量,用于将数据存储在文本文件的第一列(股票代码符号)
tickers <- read.csv("stocks.txt", header=FALSE, sep=",")
tickers <- tickers[1]
2)对于我运行的每个股票代码:getSymbols(tickers, from=startdate, to=enddate)
getSymbols来自quantmod包
调用'getSymbols'的结果是一系列xts对象,它们与tickers变量中的名称同名。
现在我要做的是确定每个xts对象中第一个元素的日期。由于每个对象与tickers变量中与其关联的股票代码具有相同的名称,我认为我可以在for循环中执行以下操作,其中i是索引迭代:
min(index(tickers[i]))
然而这不起作用,因为tickers [1]返回一个字符名而不是index()期望的对象。问题是由tickers [1]返回的字符是getSymbols创建的xts对象的名称。
我很感激帮助。谢谢
答案 0 :(得分:1)
getSymbols
在如何分配事物方面相当奇怪。你想要的是一个时间序列列表,而不是一堆个别变量。巧合的是,(暗示无耻的自我推销)我上周写了how to create this。
作为替代方案,您可以使用get
,正如Ramnath建议的那样。
sapply(tickers, function(x) min(index(get(x))))