tests/testthat/test_symbols.R

In jonotuke/HMMCPP: Implementation of HMM package in Rcpp

library(HMMCPP)

context("Symbol to levels and back")
test_that("level_to_sym works",{
  obs <- 0:5
  symbols <- letters[1:6]
  expect_equivalent(level_to_sym(obs, symbols),
                    letters[1:6])
})
test_that("sym_to_levels work",{
  symbols <- letters[1:11]
  expect_equal(sym_to_levels(rep(letters[1:11],2),
                             symbols = symbols),
               rep(0:10,2))
})