obs to mm

helske · Sep 7, 2024 · c334c24 · c334c24
1 parent c1c9129
commit c334c24
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/tests/testthat/test-build_mm.R b/tests/testthat/test-build_mm.R
@@ -26,6 +26,10 @@ test_that("build_mm returns object of class 'hmm'", {
     "There are no observed transitions from some of the symbols."
   )
 })
+set.seed(123)
+s <- 4
+obs_matrix <- matrix(sample(letters[1:s], 50, replace = TRUE), ncol = 10)
+obs <- suppressMessages(seqdef(obs_matrix))
 test_that("build_mm errors with incorrect observations", {
   expect_error(
     build_mm(1),