Rですべての列にデータを含む行の抽出

Rですべての列にデータを含む行の抽出する。
具体的には、
NA（データなし）を含む列を除去する。
例えば、

1,,3
1,3,4
1,5,6
,,3
1,3,5
1,2,3
1,2,

のようなデータ
から

1,3,4
1,5,6
1,3,5
1,2,3

のようにすべての列に値が入っている
上のようなデータを取り出す。

下準備としてデータフレームに
データを詰める。

a<-data.frame(x,y,z)
b<-dataseiri(a)
b

detaseiri関数の定義

dataseiri<-function(data){
           and1<-T
           for(i in 1:length(data)){
                   and1<-and1 & !is.na(data[,i])  
           }
          data[and1,]
  
 }                                                                           

非正値と無限大も同時に除去する場合。

dataseiri<-function(data){
           and1<-T
           for(i in 1:length(data)){
                   and1<-and1 & !is.na(data[,i]) &  data[,i] > 0 & data[,i] !=     Inf 
           }
          data[and1,]
  
 }