R/c.R

In jasongraf1/JGmisc: Miscellaneous R functions.

Defines functions c.

Documented in c.

c. <- function(x, center = NULL) {
	y <- as.numeric(x)
	if(is.null(center)) return (y - mean(y))
	else return (y - center)
}