R/RcppExports.R

Defines functions set_any set_issubeq set_in set_eq set_diff set_union set_intersect TY a_marginals subM Hx_ Gx_ subtract_one n_b na_ya n_a matpr count_unique

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

count_unique <- function(x) {
    .Call('_molic_count_unique', PACKAGE = 'molic', x)
}

matpr <- function(A) {
    .Call('_molic_matpr', PACKAGE = 'molic', A)
}

n_a <- function(A) {
    .Call('_molic_n_a', PACKAGE = 'molic', A)
}

na_ya <- function(na, ya) {
    .Call('_molic_na_ya', PACKAGE = 'molic', na, ya)
}

n_b <- function(na, b) {
    .Call('_molic_n_b', PACKAGE = 'molic', na, b)
}

subtract_one <- function(x) {
    .Call('_molic_subtract_one', PACKAGE = 'molic', x)
}

Gx_ <- function(x) {
    .Call('_molic_Gx_', PACKAGE = 'molic', x)
}

Hx_ <- function(x) {
    .Call('_molic_Hx_', PACKAGE = 'molic', x)
}

subM <- function(A, x) {
    .Call('_molic_subM', PACKAGE = 'molic', A, x)
}

a_marginals <- function(A, am) {
    .Call('_molic_a_marginals', PACKAGE = 'molic', A, am)
}

TY <- function(y, C_marginals, S_marginals) {
    .Call('_molic_TY', PACKAGE = 'molic', y, C_marginals, S_marginals)
}

set_intersect <- function(v1, v2) {
    .Call('_molic_set_intersect', PACKAGE = 'molic', v1, v2)
}

set_union <- function(v1, v2) {
    .Call('_molic_set_union', PACKAGE = 'molic', v1, v2)
}

set_diff <- function(v1, v2) {
    .Call('_molic_set_diff', PACKAGE = 'molic', v1, v2)
}

set_eq <- function(v1, v2) {
    .Call('_molic_set_eq', PACKAGE = 'molic', v1, v2)
}

set_in <- function(a, b) {
    .Call('_molic_set_in', PACKAGE = 'molic', a, b)
}

set_issubeq <- function(a, b) {
    .Call('_molic_set_issubeq', PACKAGE = 'molic', a, b)
}

set_any <- function(v) {
    .Call('_molic_set_any', PACKAGE = 'molic', v)
}

Try the molic package in your browser

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

molic documentation built on June 2, 2021, 5:07 p.m.