Computes a variety of center statistics for a numeric vector, including:
mean, median, trimmed means (10% and 25%), and estimated mode (via probability density function
using estimate_mode()).
# Center Stats of continuous random dataset.seed(123)
x <- rnorm(1000, mean=50, sd=10)
center_stats(x)
# Center Stats of Sepal Length in iris data setdata("iris")
center_stats(iris$Sepal.Length)