Application d'une fonction à deux listes?

À la recherche de la ligne sage de corrélation de deux matrices X et Y, la sortie doit avoir une valeur de corrélation pour la ligne 1 de X et de la ligne 1 de Y, ..., donc au total dix valeurs (parce qu'il y a dix lignes):

X <- matrix(rnorm(2000), nrow=10)
Y <- matrix(rnorm(2000), nrow=10)

sapply(1:10, function(row) cor(X[row,], Y[row,]))

Maintenant, comment dois-je appliquer cette fonction à deux listes (contenant environ 50 dataframes chaque)?

Examiner la liste a dataframes $1, $2, $3... et ainsi de suite et la liste B a le même nombre de dataframes $1, $2, $3. Si la fonction doit être appliqué à listA$1,listB$1 et listA$2,listB$2 ... et ainsi de suite pour les autres dataframes dans la liste. En fin de compte je vais avoir dix valeurs en cas de comparaison 1 (listA$1 et listB$1) et pour les autres.

Cela pourrait-il être fait en utilisant le "lapply"?

InformationsquelleAutor Paul | 2013-09-25
  1. 33

    Vous semblent être à la recherche pour mapply. Voici un exemple:

    listA <- list(matrix(rnorm(2000), nrow=10),
              matrix(rnorm(2000), nrow=10))
listB <- list(matrix(rnorm(2000), nrow=10),
              matrix(rnorm(2000), nrow=10))
mapply(function(X,Y) {
  sapply(1:10, function(row) cor(X[row,], Y[row,]))
  }, X=listA, Y=listB)
    InformationsquelleAutor shadow