#' Find the modal value/category in a vector
#'
#' @param x A vector of values.
#' @export
#'
#'
findmode = function (x){
mode = names(rev(sort (table (x)))[1])
mode
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.