Rounding with predefined thresholds — ceil

Round x up to ceiling(x) if x-floor(x) >= threshold, otherwise round down to floor(x).

ceil_at(x, threshold)

Arguments

x: numeric vector or matrix >= 0 (NaN is not supported)
threshold: threshold in [0,1] or "harmonic"/"geometric" to use harmonic or geometric mean thresholds

Value

the rounded vector or matrix

Examples

ceil_at(c(0.5, 1.5, 2.49, 2.5, 2.51), 0.5)
#> [1] 1 2 2 3 3
# compare to
round(c(0.5, 1.5, 2.49, 2.5, 2.51))
#> [1] 0 2 2 2 3

ceil_at(c(1.45, 2.45, 3.45), 0) # like floor()
#> [1] 2 3 4
ceil_at(c(1.45, 2.45, 3.45, 0.2), "geometric")
#> [1] 2 3 3 1