Skip to main content

Browse the archive

https://github.com/cran/fields
13 September 2023, 07:07:31 UTC
Revision a968cb727c3b72a67d1ddc6588c5edf9c0e3723a authored by Doug Nychka on 21 April 2013, 07:56:06 UTC, committed by cran-robot on 21 April 2013, 07:56:06 UTC 
version 6.7.6
1 parent 759a1e4
Raw File
Tip revision: a968cb727c3b72a67d1ddc6588c5edf9c0e3723a authored by Doug Nychka on 21 April 2013, 07:56:06 UTC
version 6.7.6
Tip revision: a968cb7
unscale.R 
# fields, Tools for spatial data
# Copyright 2004-2011, Institute for Mathematics Applied Geosciences
# University Corporation for Atmospheric Research
# Licensed under the GPL -- www.gpl.org/licenses/gpl.html
"unscale" <- function(x, x.center, x.scale) {
    x <- scale(x, center = FALSE, scale = 1/x.scale)
    x <- scale(x, center = -x.center, scale = FALSE)
    x
}
back to top