由于我的数据集非常大，我想自动化一些过程。我发现了这个link，它提出了一个线性回归循环，对于数据集mtcars如下：
data.table(mtcars)[, .(MyFits = lapply(.SD, function(x) if(is.numeric(x)) summary(lm(mpg ~ x)))), .SDcols = -1]
我尝试将其应用于成功次数有限的我自己的数据集。我确实得到了输出，但是有问题。某些拟合的结果为NULL，因此当我尝试执行建议的操作Fits[, lapply(MyFits, coef)]时，我得到：
Error in data.table column or argument 3 is NULL
我可以以某种方式使Fits[, lapply(MyFits, coef)]跳过MyFits的{{1}}吗？
编辑：为清楚起见，已删除评论所引用的问题。