R/normal_transform.R

In rogiersbart/rtoolz: A collection of useful functions

#' Normal transform
#' 
#' @param dat vector of values to be normal transformed
#' @return vector of transformed values, with attributes required for the backtransform
#' @export
normal_transform <- function(dat)
{
  attributes(dat) <- list(transform_type='normal',transform_data=dat)
  dat[order(dat)] <- (c(1:length(dat))-0.5)/length(dat)
  dat <- qnorm(dat)
  return(dat)
}