Ich habe eine Liste mit Formeln, die ich an Daten anpassen möchte, anstatt eine Schleife auszuführen, die ich aus Gründen der Leistung sofort ausführen möchte. Die Schätzungen sollten immer noch getrennt sein, ich versuche nicht, einen SUR oder irgendetwas zu schätzen. Der folgende Code macht was ich will

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)

Leider wird dies etwas langsam wie die Länge vonformulaeibt es eine Möglichkeit, dies wirklich zu vektorisiere

Wenn es irgendeine Hilfe ist, sind die einzigen Ergebnisse vonlm Es geht mir um Koeffizienten und einige Standardfehler.