From c334c245205eb29ea6564fbef647b783d087f5d5 Mon Sep 17 00:00:00 2001
From: Jouni Helske <jouni.helske@utu.fi>
Date: Sat, 7 Sep 2024 18:57:09 +0300
Subject: [PATCH] obs to mm

---
 tests/testthat/test-build_mm.R | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/tests/testthat/test-build_mm.R b/tests/testthat/test-build_mm.R
index 27d6d18c..b5a2a378 100644
--- 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),