myreg <- function (x,y)                    
{ rx <- rank(x) ; ry <- rank(y)           # Wandle x und y in Rangzahlen
  reg <- lm(ry ~ rx)                      # führe lineare Regression durch
  erg<-list(regression=reg,               # Übergebe Koeffizienten und Residuen
            rcoefficients=reg$coefficients,
            rresiduals=reg$residuals)
  return (erg) }                          # als Ergebnisse.