r语言提示invalid argument to unary operator怎么解决 da <- function(x){c=c()for (i in seq(ncol(x))){#if (length(which(complete.cases(x[[i]])))>1) #如何某列有空值if(sum(complete.cases(x[i]==FALSE)>=1){c=c(i,c)}}x=x[-c]}