俺是新手，我编程序的时候结果提示错误，麻烦大神，这是什么问题，如何解决？
k<-c();
for(s in 1:length(J0)){
   for(i in 1:length(J[,1])){
        if((J[i,s]>0)&&(J0[s]>0)){        
        k[i]=sum(inters(J0,J[i,]))/sum(union(J0,J[i,]))
       }
  }
}


Error in if ((J[i, s] > 0) && (J0[s] > 0)) { :
  missing value where TRUE/FALSE needed
>