R/as.data.frame.mefa.R

In mefa: Multivariate Data Handling in Ecology and Biogeography

as.data.frame.mefa <-
function(x, ..., fun, name, make.unique = FALSE)
{
    if (!inherits(x, "mefa"))
        stop("'x' must be of class mefa")
    if (missing(fun))
        stop("'fun' argument is missing")
    if (!is.function(fun))
        stop("'fun' argument must be a function")
    fun <- match.fun(fun)
    fun(x, name, make.unique, ...)
}