A function to reverse the process of scale()'ing a vector in R

unscale.r

unscale <- function(scaled, scale, center) {    
  # provide either scale & center, or a scaled vector with the proper attributes    
  if (missing(scale) | missing(center)) {        
    stopifnot( c("scaled:center", "scaled:scale") %in% names(attributes(scaled)) )        
    scale = attr(scaled, "scaled:scale")        
    center = attr(scaled, "scaled:center")        
    attr(scaled, "scaled:scale") <- NULL        
    attr(scaled, "scaled:center") <- NULL    
  }    
  unscaled = scaled * scale + center    
  return(unscaled)
}