Is there in R a function equivalent to the mround, as found in most spreadsheets?

 I believe this function matches the description in OOO:

 mround <- function(number, multiple) multiple * round(number/multiple)

I've implemented a slightly more general form in the reshape package:

round_any <- function (x, accuracy, f = round) {
    f(x/accuracy) * accuracy
}

Hadley

http://had.co.nz/