Мы можем извлечь значения AIC
и order
на основе значений 'AI C'
library(data.table)
dt <- as.data.table(February)
dt1 <- dt[, .(Lm = lapply(.SD, function(x) lm(February$PPNA ~ February$Acum1 + x))),
.SDcols = 80:157]
dt2 <- dt1[, .(Lm = Lm[order(unlist(lapply(Lm, AIC)))])]
Или с помощью воспроизводимого примера
dt1 <- as.data.table(iris)[, .(Lm = lapply(.SD, function(x)
lm(iris$Petal.Length ~ iris$Species + x)))]
dt2 <- dt1[, .(Lm = Lm[order(unlist(lapply(Lm, AIC)))])]