## ---- include=FALSE-----------------------------------------------------------
# Dev only: load moder from within moder
devtools::load_all(".")

## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----setup--------------------------------------------------------------------
library(moder)

## -----------------------------------------------------------------------------
mode_count(c(5, 5, 6))
mode_count(c(5, 5, 6, 6, 7))

## -----------------------------------------------------------------------------
mode_count(c("a", "a", "a", "b", NA))

## -----------------------------------------------------------------------------
mode_count(c(7, 7, 7, 8, 8, NA))

## -----------------------------------------------------------------------------
mode_count_range(c(7, 7, 7, 8, 8, NA))

## -----------------------------------------------------------------------------
mode_frequency(c(4, 4, 5))
mode_frequency(c(4, 4, 4, 5))

## -----------------------------------------------------------------------------
mode_frequency(c(1, 1, 1, 1, 2, NA, NA))

## -----------------------------------------------------------------------------
mode_frequency_range(c(1, 1, 1, 1, 2, NA, NA))

## -----------------------------------------------------------------------------
mode_is_trivial(c("a", "b", "c"))
mode_is_trivial(c(1, 1, 2, 2, 3, 3))
mode_is_trivial(c(1, 1, 1, 2, 3))

## -----------------------------------------------------------------------------
x1 <- c(7, 7, 7, 8, NA, NA, NA, NA, NA)
mode_is_trivial(x1)
mode_count_range(x1)

## -----------------------------------------------------------------------------
x1
mode_is_trivial(x1, max_unique = "known")
mode_count_range(x1, max_unique = "known")