R/nscore_fct.R

In EgoCor: Simple Presentation of Estimated Exponential Semi-Variograms

# Takes a vector of values x and calculates their normal scores. Returns
# a list with the scores and an ordered table of original values and
# scores, which is useful as a back-transform table. See backtr().

nscore = function(x) {
  nscore <- stats::qqnorm(x, plot.it = FALSE)$x  # normal score
  trn.table <- data.frame(x=sort(x),nscore=sort(nscore))
  return (list(nscore=nscore, trn.table=trn.table))
}