tests/testthat/test_logAlpha.R

context("logAlpha")

test_that("Exceptions are thrown",{
  m <- example$m
  expect_error(logAlpha(m),NA)

  expect_error(logAlpha(1))
})

test_that("Output has the right format",{
  m <- example$m
  la <- logAlpha(m)

  expect_equal(nrow(la[[1]]),nrow(m$data))
  expect_equal(ncol(la[[1]]),ncol(m$mle$step))
})
bmcclintock/momentuHMM documentation built on Oct. 26, 2022, 1 a.m.