# tableTools.R -- hopefully faster verison of counting 1-D table entries
table.nosort <- function(x) {
s <- x[ ! duplicated(x)]
wh <- match( x, s)
cnt <- base::tabulate(wh)
names(cnt) <- s
cnt
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.