循环更改值矩阵

Question

我有同样的问题，如果matrix [i，j] = NA更改为1，否则要更改值，否则matrix [i，j] = 1更改为NA

r1_matrix<-as.matrix(cldmsk_final[[1]])

nr <- nrow(r1_matrix) # nrow = 100
nc <- ncol(r1_matrix) # ncol = 100

for(i in 1:nr){
  for(j in 1:nc){
  }
}