Mode = function(x,na.rm=FALSE){
if(na.rm) useNA='no' else useNA='always'
table(x,useNA=useNA) %>% data.frame %>% arrange(desc(Freq)) %>% .[1,1] %>% as.character() %>% as.numeric()
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.