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 Nov. 27, 2022, 11:29 a.m.