Soy nuevo en R y quiero mejorar el siguiente script con un*applyunción @ (he leído sobreapply, pero no pude usarlo). Quiero usarlm función en múltiples variables independientes (que son columnas en un marco de datos). Solí

for (i in (1:3) {
  assign(paste0('lm.',names(data[i])), lm(formula=formula(i),data=data))
  } 

Formula(i) Se define com

formula=function(x)
{
  as.formula ( paste(names(data[x]),'~', paste0(names(data[-1:-3]), collapse = '+')), env=parent.frame() )
}

Gracias