tests/test-occurances.R

In USEPA/pTITAN2: Permutations of Treatment Labels and TITAN2 Analysis

library(pTITAN2)

# Non-unique column names result in an error
x <- CN_06_Mall_wID[, c(1, 2, 2, 3)]
names(x) <- c("StationID", "tax1", "tax1", "tax2")

test1 <- try(occurrences(x), silent = TRUE)
stopifnot(inherits(test1, "try-error"))

# when !all(nchar(names(CN_06_Mall_wID))) gives error
test2 <- try(expect_error(occurrences(CN_06_Mall_wID)), silent = TRUE)
stopifnot(inherits(test2, "try-error"))

# Top three rows of the occurrence example are as expected
            x <- structure(list(taxon = c("Ar000000", "BiVeCa01", "BiVeSh00"),
                                Class = c("Ar", "Bi", "Bi"),
                                Order = c("00", "Ve", "Ve"),
                                Family = c("00", "Ca", "Sh"),
                                Genus = c("00", "01", "00"),
                                count = c(115L, 16L, 42L)),
                           row.names = c(NA, -3L),
                           class = c("data.frame"))

stopifnot(
  identical(occurrences(CN_06_Mall_wID[, -1], n = 6)[1:3, ], x)
)