R/minMode.R

In lvhoskovec/psbpHMM: Covariate-dependent iHMMs for multiple time series

Defines functions minMode

Documented in minMode

#' Min Mode: Find the least common value 
#'
#' @param x vector of states 
#'
#' @return least common value 

minMode <- function(x){
  ux <- unique(x)
  return(ux[which(tabulate(match(x, ux))==min(tabulate(match(x, ux))))])
}