step_denoise()

[EmilHvitfeldt]

denoise <- function(x, amount = 1) {
  floor(x * (1/amount)) * amount
}

aaa <- rnorm(100)

plot(aaa, denoise(aaa, 0.2))

^{Created on 2022-10-31 with reprex v2.0.2}