R/grapes_not_equals_grapes.R

In yikeshu0611/do: Data Operator

"%!=%"<- function(a,b){
  if (length(a)==1){
    (1:length(b))[a != b]
  }else if(length(a) > 1){
    for (i in 1:length(a)) {
      if (i==1){location=c()}
      location.i=(1:length(b))[a[i] != b]
      location=c(location,location.i)
    }
    location[duplicated(location)]
  }
}