Wiggle a number by a random ±margin%

Adds a uniformly-distributed random perturbation of up to ±margin% to x, returning the result rounded to the same number of decimal places as the original value.

Usage

wiggle(x, margin = 10)

Arguments

x

A numeric scalar to wiggle.

margin

Maximum percentage perturbation (default: 10).

Value

A numeric scalar with the same number of decimal places as x.

Examples

set.seed(42)
wiggle(0.25)        # e.g. 0.27 (still 2 decimal places)
#> [1] 0.27
wiggle(1.5, margin = 20)  # e.g. 1.4 (still 1 decimal place)
#> [1] 1.8
wiggle(3)           # e.g. 3 (still 0 decimal places)
#> [1] 3