del.miss<-function (x)
{  n<-dim(x)[1]                   # Zeilenzahl von x
   j <- 1                         # aktuelle Zeilennummer: 1
   for (i in 1:n)                 # führe die folgenden Anweisungen n-mal aus
   { if (any(is.na(x[j,])))       # prüfe, ob mindestens ein Missing in Zeile j
       x <- x[-j, ]               #  ja: lösche die Zeile
     else
       j <- j+1 }                 #  nein: gehe zur nächsten Zeile
  x }                             # übergebe x als Ergebnis


del.miss2<-function (x)
{  n<-dim(x)[1]                   # Zeilenzahl von x
   x.del <- x                     # temporäre Kopie von x
   i <- 1                         # beginne mit Zeile 1
   while (i <= n)                 # führe die folgenden Anweisungen aus, bis i=n
   { if (any(is.na(x.del[i, ])))  # prüfe, ob mindestens ein Missing in Zeile j
       { x.del<-x.del[-i, ] ; n=n-1 }  # ja: lösche die Zeile und 
                                  #          verkleinre die Zeilenzahl
     else i <- i+1 }              # ein: gehe zur nächsten Zeile
   x.del }                        # übergebe x als Ergebnis