[R] alternate rank method

[Knut M. Wittkowski]

Try:


MxRank <- function(x, na.last = "keep")
{
         if (na.last != "keep")
                 return(rank(x, na.last))
         else {
                 r <- x*NA
                 NoWarn(r[is.orderable(x)] <- rank(x,na.last=NA))
                 return(r)
} }


Knut M. Wittkowski, PhD,DSc
------------------------------------------
The Rockefeller University, GCRC
Experimental Design and Biostatistics
1230 York Ave #121B, Box 322, NY,NY 10021
+1(212)327-7175, +1(212)327-8450 (Fax)
kmw at rockefeller.edu
http://www.rucares.org/clinicalresearch/dept/biometry/