Eu recentemente fiz uma pergunta sobre o uso de umapply funcionar em duas listas. Cada lista é uma lista de quadros de dados criados pela divisão de um grande dataframe. Para cada vez que a função é executada, eu quero pegar vetores do primeiro elemento (um dataframe)mylist1 e alguns vetores do primeiro elemento (um dataframe) emmylist2 e regredi-los um contra o outro. Então vá para o próximomylist1 elemento emylist2 elemento. Efetivamente, a função pega duas listas com o mesmo número de elementos e pega um par (um de cada lista) e brinca com eles.

Eu tentei o seguinte, mas os resultados que recebo não são o que eu quero:

a1<-c(1:5,rep(0,5))
a2<-c(1:5,10:6)
b2<-c(rep(100,5),rep(50,5))
z<-c(rep("part1",5),rep("part2",5))
df1<-data.frame(a1,z)
df2<-data.frame(a2,b2,z)

mylist1<-split(df1,z)
mylist2<-split(df2,z)


myfunction<-function(x,y) 
{

meana <- mean(x$a)
meanb <- mean(y$b)
model<-lm((x$a)~(y$a))
return(c(model$coefficients[2],meana=meana,meanb=meanb))
}

result <- mapply(myfunction,x=mylist,y=mylist2)

 #result
#        x   y
#y$a     1  -1
#meana   3   8
#meanb 100  50

O que eu quero é:

#y$a     1   0   
#meana   3   0
#meanb   100 50


#e.g. the results in the first row are from lm((mylist1[[1]][,1])~(mylist2[[1]][,1]))  and lm((mylist1[[2]][,1])~(mylist2[[2]][,1]))