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

Question

我正在使用lm训练一个带有交互的模型

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

某些互动术语的系数为“NA”，表示我认为并非所有术语都是独立的。 如何自动删除带有“NA”的术语作为拟合系数？

感谢。