This is a convenience function equal to scale(x, scale=FALSE)
center(x)
x
Numeric vector
data(anchoring) center(anchoring$everest_feet)