count.nested <- function (factor1, factor2)
{
stopifnot(is.nested(factor1,factor2))
table(nesting(factor1, factor2)[[2]])
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.