stderr <- function (x,...)  # die ... erlauben später die Weitergabe des Parameters
                            # na.rm=T an sd(.)
{  s <- sd(x,...)/sqrt(length(na.omit(x)))  # die Missings von x müssen vor der
                                            # Abfrage der Länge entfernt werden,
                            # alternativ:  length(x[!is.na(x)])
   s }                      # Übergabe von s als Ergebnis