R/strata.opticut.R

In psolymos/opticut: Likelihood Based Optimal Partitioning and Indicator Species Analysis

strata.opticut <-
function (object, ...) {
    if (!is.na(object$comb) && is.factor(object$strata))
        return(object$strata)
    if (!is.na(object$comb) && !is.factor(object$strata))
        return(as.factor(rownames(object$strata)))
    as.factor(apply(object$strata, 1, paste, collapse=""))
}