tests/testthat/test-parameter_labels.R

In fHMM: Fitting Hidden Markov Models to Financial Data

test_that("input checks work", {
  expect_error(
    parameter_labels("controls"),
    "'controls' is not of class 'fHMM_controls'."
  )
  expect_error(
    parameter_labels(set_controls(), pi),
    "'expected_length' must be a positive integer."
  )
})

test_that("creation of HMM parameter labels works", {
  expect_equal(
    parameter_labels(set_controls(), 8),
    c("Gamma_2.1", "Gamma_1.2", "mu_1", "mu_2", "sigma_1", "sigma_2", 
      "df_1", "df_2")
  )
})

test_that("creation of HHMM parameter labels works", {
  expect_equal(
    parameter_labels(set_controls(list(hierarchy = TRUE)), 24),
    c("Gamma_2.1", "Gamma_1.2", "mu_1", "mu_2", "sigma_1", "sigma_2", 
      "df_1", "df_2", "Gamma*1_2.1", "Gamma*1_1.2", "mu*1_1", "mu*1_2", 
      "sigma*1_1", "sigma*1_2", "df*1_1", "df*1_2", "Gamma*2_2.1", 
      "Gamma*2_1.2", "mu*2_1", "mu*2_2", "sigma*2_1", "sigma*2_2", 
      "df*2_1", "df*2_2")
  )
})