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)
}
psolymos/mefa documentation built on Oct. 10, 2021, 6:22 p.m.