R/is.stcs.R

Defines functions `is.stcs`

`is.stcs` <-
function(x) {
    inherits(x, "stcs") &&
        all(colnames(x) == c("samp", "taxa", "count", "segm")) &&
        is.numeric(x[, 3]) &&
        is.factor(x$samp) &&
        is.factor(x$taxa) &&
        is.factor(x$segm)
}
psolymos/mefa documentation built on Oct. 10, 2021, 6:22 p.m.