Nothing
# COERCION
#' @include AllGenerics.R AllClasses.R
NULL
# To data.frame ================================================================
#' @method as.data.frame DiversityIndex
#' @export
as.data.frame.DiversityIndex <- function(x, ...) {
data.frame(
size = x@size,
index = x@.Data,
row.names = labels(x),
stringsAsFactors = FALSE
)
}
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.