Я новичок в R и хочу улучшить следующий скрипт с помощью*apply function (я читал оapply, но я не смог его использовать). Я хочу использоватьlmункция @ для нескольких независимых переменных (которые являются столбцами во фрейме данных). Я использова

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

Formula(i) определяется ка

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

Спасибо