ел пример применения list (lapply), которое прекрасно работает, чтобы получить список объектов данных и вернуть список результатов регрессии, которые мы можем передать Stargazer для вывода в хорошем формате.Использование stargazer со списком объектов lm, созданных путем наложения на разделенный data.frame

library(MASS)
library(stargazer)
data(Boston)

by.river <- split(Boston, Boston$chas)
class(by.river)

fit <- lapply(by.river, function(dd)lm(crim ~ indus,data=dd))
stargazer(fit, type = "text")

Я хотел бы вместо того, чтобы передавать список наборов данных для выполнения одной и той же регрессии в каждом наборе данных (как указано выше), передавать список независимых переменных для выполнения разных регрессий в одном и том же наборе данных. В длинной руке это будет выглядеть так:

fit2 <- vector(mode = "list", length = 2)
fit2[[1]] <- lm(nox ~ indus, data = Boston)
fit2[[2]] <- lm(crim ~ indus, data = Boston)
stargazer(fit2, type = "text")

с lapply, я попробовал это, и это не работает. Где я неправ?

myvarc <- c("nox","crim")
class(myvarc)
myvars <- as.list(myvarc)
class(myvars)
fit <- lapply(myvars, function(dvar)lm(dvar ~ indus,data=Boston))
stargazer(fit, type = "text")