R/coerce.R

Defines functions as.data.frame.DiversityIndex

# COERCION
#' @include AllGenerics.R AllClasses.R
NULL

# To data.frame ================================================================
#' @method as.data.frame DiversityIndex
#' @export
as.data.frame.DiversityIndex <- function(x, ...) {
  data.frame(
    observed = apply(X = x@data, MARGIN = 1, FUN = observed),
    singleton = apply(X = x@data, MARGIN = 1, FUN = singleton),
    doubleton = apply(X = x@data, MARGIN = 1, FUN = doubleton),
    size = x@size,
    index = x@.Data,
    row.names = labels(x),
    stringsAsFactors = FALSE
  )
}

#' @export
#' @rdname data.frame
#' @aliases as.data.frame,DiversityIndex-method
setMethod("as.data.frame", "DiversityIndex", as.data.frame.DiversityIndex)
tesselle/tabula documentation built on Sept. 9, 2024, 2:19 a.m.