R/max_n.R

In i3pack: Incentives for Inter- And Intra-Party Electoral Competition

#' Auxiliary Internal Functions
#'
#' @param x Numeric vector
#' @param n Number of elements to return
#'
#' @return The largest `n` elements of a vector
#' @export
#'
max_n <- function(x, n)
{
  return(order(x, decreasing = TRUE)[1:n])
}