sel <- which(d$total < settings$pooling$targetarea[1])
tooSmall <- NULL
if (length(sel) > 0L) {
    tooSmall <- sQuote(
        apply(
            X = d[sel, c("YEAR", "OBJECTID", "ECOTOPE"), drop = FALSE],
            MARGIN = 1,
            paste,
            collapse = "-"
        )
    )
}

The total sample area is smaller than the minimum target pool area (r settings$pooling$targetarea[1]) for r length(tooSmall) combinations of waterbody- habitat-year.

tooSmall


Try the BENMMI package in your browser

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

BENMMI documentation built on Oct. 23, 2020, 8:24 p.m.