customMean <- function(vector) {
	mean(vector)
}