R/bestpart.multicut.R

## this returns an n x #spp matrix
bestpart.multicut <-
function (object, ...)
{
    bp <- sapply(object$species, "[[", "bestpart")
    bp[match(strata(object), rownames(bp)),,drop=FALSE]
}
psolymos/opticut documentation built on May 25, 2024, 6:59 a.m.