R/is.stcs.R

Defines functions `is.stcs`

`is.stcs` <-
function(x) {
    inherits(x, "stcs") && colnames(x) == c("samp", "taxa", "count", "segm") && is.numeric(x[, 3]) &&
    is.factor(x$samp) && is.factor(x$taxa) && is.factor(x$segm)
}

Try the mefa package in your browser

Any scripts or data that you put into this service are public.

mefa documentation built on May 2, 2019, 5 p.m.