R中删除为NaN 的 列

se<-function(x){   n<-ncol(x)   k<-NULL   for(i in 1:n){     if(any(is.nan(x[,i])))      k<-c(k,i)       }     return(k) }