R/Quantile_transform.R

In william-denault/WaveletScreaming: A package to perform Wavelet Screening on GWAS data

#'@title Quantile transform
#'@description  Perform a quantile transform with ties taken at random.
#'@param x a vector to be quantile transformed.
#'@export
#'@examples \dontrun{
#'x <- rnorm(n=1000)
#'Quantile_transform(x)
#'}



Quantile_transform <- function(x)
{
  x.rank = rank(x, ties.method="average")
  return(qqnorm(x.rank,plot.it = F)$x)
}