Question

我下载了一些股票数据：

require("quantmod")
s <- c("AAPL", "ADBE", "ADI", "ADP", "ADSK") 
e <- new.env()
getSymbols(s, src='yahoo',  from='2015-01-10',  env = e )

#get closing prices
close <- do.call(merge, eapply(e, function(x) Cl(x)))

我找到了所有符号名称对：

#find all the pairwise permutations
perm<-combn(s,2)
perm
[,1]   [,2]   [,3]   [,4]   [,5]   [,6]   [,7]   [,8]  [,9]   [,10] 
[1,] "AAPL" "AAPL" "AAPL" "AAPL" "ADBE" "ADBE" "ADBE" "ADI" "ADI"  "ADP" 
[2,] "ADBE" "ADI"  "ADP"  "ADSK" "ADI"  "ADP"  "ADSK" "ADP" "ADSK" "ADSK"

我想接受＆＃34;关闭＆＃34;每个名称的数据，并替换每对＆＃34; perm＆＃34;以后能够分析这对。

Answer 1

如果您想获得数据框列表，每对一个，您可以尝试：

dfs[[1]]

现在，您可以使用dfs[[2]]，lapply等获取每对的2列数据框。您可以使用lapply(dfs, summary)函数对每对进行统计分析。这是一个简单的示例，您可以在其中获得每个配对数据框的摘要：

{{1}}

用R中的getSymbols数据替换排列列表

1 个答案: