r - 从具有交互作用的 lm 模型中删除具有 NA 系数的项

Question

我正在使用 lm 与交互来训练模型

fit <- lm(Y ~ .^2, data)

一些交互项的系数为“NA”，这表明我认为并非所有项都是独立的。如何自动从拟合中删除以“NA”作为系数的项？

谢谢。