R：如果向量满足特定条件，请替换矩阵的列

Question

我有一个很大的矩阵，我想删除所有列均值== 1的列。我使用以下代码来完成此操作：

an.mdr[,colMeans(an.mdr)==1] <- NULL

我收到以下错误消息：

  

下标作业中不允许使用NA

有人可以帮我解决这批代码的问题吗？提前谢谢。