R语言数据处理之缺失数据问题（一）

在用R语言进行数据处理时，也许会遇到如下问题，如何选取特定列（变量）数据不缺失且其他列数据缺失的行（样本）？
本代码是根据本人所做案例经验分享。

temp<-rep(0,nrow(final))
for i in 1:nrow(final)
  missval<-which(final[i,-x] %in% NA)
if (length(missval)>0 and is.na(final[i,x])==FALSE)
    temp[i]<-1
else
     temp[i]<-0
sample<-final[which(temp==1),]