我想写个返回唯一值的函数，请问以下对么
function(x){
y <- length(x)
for(i in 1:length(x)){
   for(j in (i+1):length(x)){
        if(x[j]==x[i]){y <- y-1}
   }
}
return(y)
}

为什么出现Error in if (x[j] == x[i]) { : missing value where TRUE/FALSE needed啊？