mystat1 <- function(x,...)   # ... zur Übergabe von file= und append= an cat(.)
#
#   Ausgabe von Statistiken am Bildschirm
#     einfache Variante
#
{ cat ("Arithmetisches Mittel ", mean(x,na.rm=T),
    " \nStandardabweichung    ", sd(x,na.rm=T),
    " \nMedian                ", median(x,na.rm=T), "\n" ,... ) }

#     Komfort-Variante mit eigenem Objekttyp (class) und eigener Print/Ausgabe-Funktion
#
mystat <- function(x,...) 
{ stat1 <-mean(x)
  stat2 <-sd(x)
  stat3 <-median(x)
  names(stat1) <-"Mean"
  names(stat2) <-"Standardabweichung"
  names(stat3) <-"Median"
  RVAL <- list(statistic1=stat1,statistic2=stat2,statistic3=stat3)
  attr(RVAL, 'class')<-"mystat"
  RVAL
}
print.mystat <- function(x)
{ for (i in 1:3)
  cat("\n",names(x[[i]]), x[[i]] )
  cat("\n")
}