rankdf <- function (x,...) 
{ y <- x
  if (class(x)=="data.frame" | class(x)=="matrix")
   {n <- length(x)
    for (i in 1:n)
      {y[,i] <- rank(x[,i],...)}}
  else
    {y <- rank(x,...)}
  y
}