# NOT RUN {
data(iris)
typical_value(iris$Sepal.Length)
library(purrr)
map(iris, ~ typical_value(.x))
# example from ?stats::weighted.mean
wt <- c(5, 5, 4, 1) / 15
x <- c(3.7, 3.3, 3.5, 2.8)
typical_value(x, "weighted.mean")
typical_value(x, "weighted.mean", w = wt)
# }
Run the code above in your browser using DataLab