Pessoal estou tentando substituir meu código que possui duplo for por um com duplo lapply com objetivo de otimizar o programa já que o r trabalha de forma matricial, esta funcional desta forma:
k<-1
for(i in 1:nrow(tab1)){
for(j in 1:nrow(tab2)){
tab3$col1[k]<-tab1$col1[i]
tab3$col2[k]<-tab2$col3[j]
k<-k+1
}
}
Gostaria que ficasse assim, mas não sei como fazer podem ajudar?Obrigado
lapply(1:nrow(tab1),fuction(i){
lapply(1:nrow(tab2), function(j){
??????????
})
})
tab3$col1 <- tab1$col1
etab3$col2 <- tab2$col3
? Note que como o seu código está, a instruçãok <- k + 1
vai executarnrow(tab1)*nrow(tab2)
vezes. É isso que quer?