R/dimnames.mefa.R

`dimnames.mefa` <-
function (x)
{
  out <- list(samp = rownames(x$xtab),
       taxa = colnames(x$xtab),
       segm = names(x$segm))
  if (is.null(out$segm))
       out$segm <- "undefined"
  return(out)
}

Try the mefa package in your browser

Any scripts or data that you put into this service are public.

mefa documentation built on Oct. 7, 2021, 9:11 a.m.