R/anon_double.R

In juliangrimm225/anonymizeR: Anonymize your Data

#' Anonymize numeric vectors
#'
#' Normalize numeric vectors
#'
#' @param double double
#' @param normalization function
#'
#' @return double
#' @export
#'
#' @examples
#' iris$Sepal.Length %>% anon_double
anon_double <- function(double, normalization=function(x){(x - mean(x))/stats::sd(x)}) {
  anon_x <- normalization(double)
  return(anon_x)
}