У меня есть список формул, которые я хочу вписать в данные, вместо того, чтобы запускать цикл, я бы хотел сделать это сразу, ради производительности. Оценки все еще должны быть отдельными, я не пытаюсь оценить SUR или что-то еще. Следующий код делает то, что я хочу

x <- matrix(rnorm(300),ncol=3)
y <- x %*% c(1,2,3)+rnorm(100)
formulae <-list(y~x[,1],
                y~x[,2],
                y~x[,1] + x[,2])
lapply(formulae,lm)

К сожалению, это становится несколько медленным, так как длинаformulae увеличивается, есть ли способ действительно векторизовать это?

Если это какая-либо помощь, единственные результатыlm Меня волнуют коэффициенты и некоторые стандартные ошибки.