R/myRound.r

Defines functions myRound

Documented in myRound

myRound <- function(d){
 
    ind <- (d %% floor(d)) >= 0.5

    r <- floor(d)
    r[ind] <- ceiling(d[ind])

    return(r)}

Try the modehunt package in your browser

Any scripts or data that you put into this service are public.

modehunt documentation built on May 2, 2019, 3:31 a.m.