greatsort <- function(vec){ x <- vec * (-1) index <- order(x) return(list(sortedvector=rev(sort(vec)), index=index)) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.