oom: Get order of magnitude for numbers
In tamaracha/mpformatr: Utilities for printing empirical numbers

Description Usage Arguments Details Value See Also Examples

This is meant to get the order of magnitude from measurement errors to round these errors and measured values or centers like mean or median in an empirical way.

oom(x)

`x`	A numeric vector of measurement uncertainties, e.g., sd, se

The following convention is implemented:

Round x to 2 significant digits.
If first significant digit is 1, return number of digits according to 2 significant digits.
Otherwise return number of digits according to 1 significant digit.

A numeric vector containing orders of magnitude, can be passed to base::round() as digits.

Other rounding functions: mpformat, round_up

# Round very long error to 1 significant digit
x <- 0.074385229
oom_x <- oom(x)
round(x, oom_x)

# This starts with 1 and gets 2 signif. digits
x <- 0.174385229
oom_x <- oom(x)
round(x, oom_x)

# This again, but rounds up to 1 signif. digit
x <- 0.197385229
oom_x <- oom(x)
round(x, oom_x)