У меня есть список объектов из множества линейных моделей.Каждый суммарный объект obj имеет компонент с псевдонимом obj $, содержащий коэффициенты, опущенные в статистической модели из-за недостатка ранга.Для каждой модели в моем списке я хочу суммировать значения в векторе с псевдонимами и возвращать список значений.
Ниже приведен минимальный рабочий пример проблемы, но код выдает ошибку.Это выглядит даже после того, как я детализирую до каждого сводного объекта модели в моем списке, я не могу получить доступ к таким компонентам, как $ alised.Совет приветствуется.
# example data
dat <- data.frame(x = rnorm(5),
y = runif(5))
# store models in list (actual case has many models)
foo <- summary(with(dat, lm(y~x)))
foo$aliased # this is what i want to pull for each object
sum(foo$alised) # this is what I want to return for each element in the list
bar <- list(foo)
# try to sum the logical vector "aliased" in each element of the list, doesn't work
lapply(bar, FUN = function(x){ sum(x[[1]]$aliased) })