for (i in 1:length(t[,1]))
+   {  if (t[i,3]==0)  {nnatl[t[i,1],t[i,2]]<-nnatl[t[i,1],t[i,2]]+ n[i,1]+n[i,2]}
+    else{  nnatl[t[i,1],t[i,2]]<-nnatl[t[i,1],t[i,2]]+ n[i,1]+n[i,2]
+ nnatl[t[i,1],t[i,3]]<-nnatl[t[i,1],t[i,3]]+ n[i,1]+n[i,3]
+ nnatl[t[i,2],t[i,3]]<-nnatl[t[i,2],t[i,3]]+ n[i,2]+n[i,3]  }
+   }
Error in if (t[i, 3] == 0) { : 需要TRUE/FALSE值的地方不可以用缺少值