nesting <- function (factor1, factor2)
{
stopifnot(is.nested(factor1,factor2))
aggregate(factor1, list(factor1,factor2), length)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.