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))
})
TheoMichelot/moveHMM documentation built on Sept. 28, 2018, 11:06 a.m.