Boa tarde, estou com uma dúvida de como usar a função paste ou se tem como eu fazer de outro modo.

Eu tentei primeiramente assim:

matrizAA<-matrix(nrow=395, ncol=31)
Symbols<-c("AA","AIG","AXP")

for(j in 2:3)
{
empresa<-Symbols[j]
for (i in 2:4){

    matrizAA[i-1,j]<-cor(AA[,i],Symbols[j][,i], use="pairwise.complete.obs")

    }
}

write.table(matrizAA,"mAAteste23.txt")

Entâo surge o erro:

Erro em show(symbols[j][, 2]) :
erro na avaliação do argumento 'object' na seleção do método para a função 'show': 'Erro em symbols[j] :
objeto de tipo 'closure' não possível dividir em subconjuntos

Ai tentei usar a funçao paste0 desta maneira:

matrizAA<-matrix(nrow=395, ncol=31)
Symbols<-c("AA","AIG","AXP")

for(j in 1:3)
{
empresa<-Symbols[j]
for (i in 2:4){

empresa1<-paste0(empresa,"[,",i,"]") ou empresa1<-paste0(empresa)
matrizAA[i-1,j]<-cor(AA[,i],empresa1, use="pairwise.complete.obs") ou matrizAA[i-1,j]<-cor(AA[,i],empresa1[,i], use="pairwise.complete.obs")

}

}

write.table(matrizAA,"mAAteste23.txt")

e os erros são:
Erro em cor(AA[, i], empresa1, use = "pairwise.complete.obs") :
'y' deve ser numérico
ou

Erro em empresa1[, i] : número incorreto de dimensões

O que me leva a crer que usando o paste ele passa a não mais entender como um vetor AIG[,i] por exemplo, e sim por uma string.

Alguem poderia me dizer como posso resolver isso?

Muuuito obrigada,

Michelle