R/RcppExports.R

In jti: Junction Tree Inference

# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393

nbinary_ops_int_ <- function(cliques_int, collect_tree, sp, root_idx) {
    .Call(`_jti_nbinary_ops_int_`, cliques_int, collect_tree, sp, root_idx)
}

mcs <- function(adj, start_node = "", check = TRUE) {
    .Call(`_jti_mcs`, adj, start_node, check)
}

perfect_cliques <- function(x) {
    .Call(`_jti_perfect_cliques`, x)
}

perfect_separators <- function(x) {
    .Call(`_jti_perfect_separators`, x)
}

parents <- function(po, ps) {
    .Call(`_jti_parents`, po, ps)
}

rip <- function(adj, start_node = "", check = TRUE) {
    .Call(`_jti_rip`, adj, start_node, check)
}

rooted_junction_tree <- function(cliques, root = 0L) {
    .Call(`_jti_rooted_junction_tree`, cliques, root)
}

root_clique_tree <- function(clique_tree, root) {
    .Call(`_jti_root_clique_tree`, clique_tree, root)
}

int_set_intersect <- function(v1, v2) {
    .Call(`_jti_int_set_intersect`, v1, v2)
}

set_intersect <- function(v1, v2) {
    .Call(`_jti_set_intersect`, v1, v2)
}

set_union <- function(v1, v2) {
    .Call(`_jti_set_union`, v1, v2)
}

set_diff <- function(v1, v2) {
    .Call(`_jti_set_diff`, v1, v2)
}

set_eq <- function(v1, v2) {
    .Call(`_jti_set_eq`, v1, v2)
}

set_in <- function(a, b) {
    .Call(`_jti_set_in`, a, b)
}

set_issubeq <- function(a, b) {
    .Call(`_jti_set_issubeq`, a, b)
}

set_any <- function(v) {
    .Call(`_jti_set_any`, v)
}