R/test.r

In b-steve/ascr: Acoustic spatial capture-recapture

#' Run ascr tests
#'
#' Runs tests for ascr.
#'
#' This function allows users to test their ascr installation.
#'
#' @param quick Logical, if \code{TRUE}, only a quick check is carried
#'     out that tests whether or not the AD Model Builder executable
#'     is running correctly.
#'
#' @export
test.ascr <- function(quick = FALSE){
    dir <- ifelse(quick, "quick", "full")
    if (quick){
        example.data <- ascr::example.data
        simple.capt <- example.data$capt["bincapt"]
        fit <- try(fit.ascr(capt = simple.capt, traps = example.data$traps,
                            mask = example.data$mask, fix = list(g0 = 1)),
                   silent = TRUE)
        if (class(fit)[1] == "try-error"){
            message("ADMB executable test: FAIL\n")
        } else {
            relative.error <- coef(fit, "D")/2267.7395 - 1
            if (abs(relative.error) < 1e-4){
                message("ADMB executable check: PASS\n")
            } else {
                message("ADMB executable check: INCONCLUSIVE\n Executable has run successfully but results may not be correct.\n")
            }
        }
    } else {
        suppressWarnings(RNGkind(sample.kind = "Rounding"))
        dir <- paste(system.file(package = "ascr"), "tests", sep = "/")
        test_dir(dir)
        suppressWarnings(RNGkind(sample.kind = "default"))
    }
}

## Aliasing old test.admbsecr() function name.
#' @rdname test.ascr
#' @export
test.admbsecr <- test.ascr