tests/testthat/test_viterbi.R

context("viterbi")

test_that("Output has the right format",{
  m <- example$m
  expect_equal(length(viterbi(m)),nrow(m$data))
})
bmcclintock/momentuHMM documentation built on Oct. 26, 2022, 1 a.m.