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){
    
   ??????????
    
  })
})