R/unround_data.R

In maciejkasinski/quantatools: Analysis of quantum in archaeological data with cosine quantogram and related statistical methods

#' Unrounding method
#'
#' @param input
#' @param depth
#'
#' @return
#' @export
#'
#' @examples
unround_data = function(input, depth=0.01) {
  output = input + round(
    sample(
      c(-depth / 2, depth / 2),
      size = input %>% length,
      replace = T
    ), 3)
  return(output)
}