R/RcppExports.R

Defines functions .is_undirected_simple .hamming_dist_adj_mat .ffct .nethist_fastgreedy .net_summary_subsample_adj .mnhistCommon_fastgreedy .multinethist_fastgreedy .count_k_cycle

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

.count_k_cycle <- function(A, max_cycle_order) {
    .Call(`_nethist_count_k_cycle`, A, max_cycle_order)
}

.multinethist_fastgreedy <- function(A, hbar, inputLabelVec, max_itr, swap_rule, consecutive_iter_threshold, verbose) {
    .Call(`_nethist_multinethist_fastgreedy`, A, hbar, inputLabelVec, max_itr, swap_rule, consecutive_iter_threshold, verbose)
}

.mnhistCommon_fastgreedy <- function(A, hbar, inputLabelVec, max_itr, swap_rule, consecutive_iter_threshold, verbose) {
    .Call(`_nethist_mnhistCommon_fastgreedy`, A, hbar, inputLabelVec, max_itr, swap_rule, consecutive_iter_threshold, verbose)
}

.net_summary_subsample_adj <- function(A, subsample_sizes, max_cycle_order, R) {
    .Call(`_nethist_net_summary_subsample_adj`, A, subsample_sizes, max_cycle_order, R)
}

.nethist_fastgreedy <- function(A, hbar, inputLabelVec, method, max_itr, swap_rule, consecutive_iter_threshold, verbose) {
    .Call(`_nethist_nethist_fastgreedy`, A, hbar, inputLabelVec, method, max_itr, swap_rule, consecutive_iter_threshold, verbose)
}

.ffct <- function(n, k) {
    .Call(`_nethist_ffct`, n, k)
}

.hamming_dist_adj_mat <- function(A) {
    .Call(`_nethist_hamming_dist_adj_mat`, A)
}

.is_undirected_simple <- function(A) {
    .Call(`_nethist_is_undirected_simple`, A)
}

Try the nethist package in your browser

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

nethist documentation built on Oct. 25, 2026, 5:07 p.m.