This post is based on a question on Stack Overflow and more precisely on Martin Morgan’s answer. The problem is to find the indices of top n elements from a vector. An inefficient way of doing this is to run order on the vector and then only keep the last n values: top <- function(x, n){ tail( order(x),...