findMaxElems <- function(sets){
stopifnot(class(sets) == "list")
temp <- unlist(sets, use.names=FALSE)
as.numeric(names(sort(table(temp),decreasing=TRUE)))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.