This function returns TRUE
for VLMC models with covariates and FALSE
for other objects.
Examples
pc <- powerconsumption[powerconsumption$week == 5, ]
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))
m_cov <- covlmc(dts, dts_cov, min_size = 5)
# should be true
is_ctx_tree(m_cov)
#> [1] TRUE
# should be true
is_covlmc(m_cov)
#> [1] TRUE
# should be false
is_vlmc(m_cov)
#> [1] FALSE