Nothing
VV.vgc <- function (obj, N=NA, ...)
{
if (! inherits(obj, "vgc")) stop("argument must be object of class 'vgc'")
if (!attr(obj, "hasVariances")) stop("no variance data available for vocabulary growth curve")
if (!missing(N)) stop("argument 'N' not allowed for object of class 'vgc'")
structure(obj$VV, names=obj$N)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.