Ajuste de un modelo lineal con múltiples LHS

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) { ...