search for: orderxuyd

...t;) and similar things; one thing to consider *is* using an 'na.last = . ' correctly, and I haven't had the need for that and so not bothered to "do it"} ## Here's a script with my version and a small example ## (if you want speed comparisons, use larger examples) : orderXuYd <- function(x,y) { ## Purpose: order(x,y): x up, y down ## ---------------------------------------------------------------------- ## Arguments: x,y: vectors of the same length ## ---------------------------------------------------------------------- ## Author: Martin Maechle...