For numeric, integer, and ordered factor vectors, it returns the median.
For factors, characters, and logical vectors, it returns the most
frequent value. If multiple values are tied for most frequent, it returns
them all. `NA`

missing values are always silently dropped.

## Examples

```
# median of numeric vector
typical(rpois(100, lambda = 10))
#> [1] 9
# most frequent value of character or factor
x <- sample(c("a", "b", "c"), 100, prob = c(0.6, 0.2, 0.2), replace = TRUE)
typical(x)
#> [1] "a"
typical(factor(x))
#> [1] "a"
# if tied, returns them all
x <- c("a", "a", "b", "b", "c")
typical(x)
#> [1] "a" "b"
# median of an ordered factor
typical(ordered(c("a", "a", "b", "c", "d")))
#> [1] "b"
```