Замените список перестановок данными getSymbols в R

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"

Я хотел бы взять данные "close" для каждого имени и заменить для каждой группы пар "perm", чтобы иметь возможность проанализировать пары позже.

Answer 1

Если вы хотите получить список фреймов данных, по одному для каждой пары, вы можете попробовать:

dfs <- lapply(seq_len(ncol(perm)), function(x) close[,paste0(perm[,x], ".Close")])

Теперь вы можете получить 2-колоночные фреймы данных для каждой пары с dfs[[1]], dfs[[2]]и т. д. Вы можете выполнить статистический анализ каждой пары, используя lapply функция. Вот простой пример, где вы получаете сводку по каждому парному фрейму данных:

lapply(dfs, summary)