mode <- function(x){ ux <- unique(x) ux[which.max(tabulate(match(x, ux)))] }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.