R/ctx_node_vlmc_cpp.R

Defines functions probs.ctx_node_cpp

#' @export
probs.ctx_node_cpp <- function(node) {
  the_counts <- counts(node)
  as.numeric(the_counts[-1] / the_counts$total)
}

Try the mixvlmc package in your browser

Any scripts or data that you put into this service are public.

mixvlmc documentation built on Nov. 2, 2023, 5:32 p.m.