# modalCount.r
#
# 03/10/10 cws created
#
modalCount <- function(x)
# Returns the number of occurences as an integer of the most common (mode)
# element in x.
{
v <- modalvalue(x)
n <- sum(x==v)
return(n)
}
# end of file
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.