[R-br] Ajuda com lapply

Como usar a função lapply (ou então outra função se não for possível via lapply) de modo que a lista de parâmetros ‘a’ seja inclusa no procedimento abaixo? (~ai+bi*x????) a=c(1,2,3) b=c(0.2,1.6) x=c(1,2,3,4)   # como incluir ai no modelo abaixo? exemplo1=lapply(b, function(bi) {bi*x}) exemplo1