R/utils.R

In pema: Penalized Meta-Analysis

unscale <- function(x, center = attr(x, "scaled:center"), scale = attr(x, "scaled:scale")) {
  out <- scale(x, center = (-center / scale), scale = 1 / scale)
  attr(out, "scaled:center") <- attr(out, "scaled:scale") <- NULL
  out
}