我无法摆脱我错过了一些明显的东西的感觉。是否有更清晰或更惯用的方法来执行以下功能?
closest.preceding <- function(candidates, limit) {
# return the value in candidates that is closest to but less than the limit
return(limit - min(limit-candidates[candidates < limit]))
}
感谢您的任何见解。