R/gaussianize.R

In snembrini/poolVIM: Gene-Based Association Tests using the Actual Impurity Reduction (AIR) Variable Importance. <doi:10.1093/Bioinformatics/Bty373>

#'  gaussianize null variable importances
#' @param x distr
#' @param a value to interpolate/extrapolate
#' @import stats
#' @import Hmisc


gaussianize=function(x,a){
  q=rank(x, na.last = "keep")/(length(x) + 1 - sum(is.na(x)))
  orig=x
  x2=qnorm(q)
  Hmisc::approxExtrap(orig, x2, xout = a)$y
}