tests/testthat/test-as_covlmc.R

In mixvlmc: Variable Length Markov Chains with Covariates

test_that("as_vlmc.tune_covlmc obeys is basic contract", {
  pc <- powerconsumption[powerconsumption$week %in% 5:7, ]
  dts <- cut(pc$active_power, breaks = c(0, quantile(pc$active_power, probs = c(0.5, 1))))
  dts_cov <- data.frame(day_night = (pc$hour >= 7 & pc$hour <= 17))
  dts_best_model_tune <- tune_covlmc(dts, dts_cov)
  model <- as_covlmc(dts_best_model_tune)
  expect_true(is_covlmc(model))
})