tests/testthat/test_CI.R

context("CI")

test_that("Output has the right format", {
    m <- example$m
    expect_warning(c <- CI(m))

    expect_equal(length(c), 3)
    expect_equal(dim(c$stepPar$lower), dim(m$mle$stepPar))
    expect_equal(dim(c$stepPar$upper), dim(m$mle$stepPar))
    expect_equal(dim(c$anglePar$lower), dim(m$mle$anglePar))
    expect_equal(dim(c$anglePar$upper), dim(m$mle$anglePar))
    expect_equal(dim(c$beta$lower), dim(m$mle$beta))
    expect_equal(dim(c$beta$upper), dim(m$mle$beta))
})

Try the moveHMM package in your browser

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

moveHMM documentation built on May 31, 2023, 6:13 p.m.