R/vlmc_draw_cpp.R

In mixvlmc: Variable Length Markov Chains with Covariates

#' @export
#' @rdname draw.vlmc
draw.vlmc_cpp <- function(ct, control = draw_control(), prob = TRUE, ...) {
  restore_model(ct)
  ct_r <- ct$root$representation()
  if (is.null(prob)) {
    rec_draw_cpp(control$root, "", ct_r, ct_r[[1]], ct$vals, control, NULL, list(...))
  } else {
    rec_draw_cpp(control$root, "", ct_r, ct_r[[1]], ct$vals, control, vlmc_node2txt, c(list(prob = prob), list(...)))
  }
  invisible(ct)
}