R/RcppExports.R

In signnet: Methods to Analyse Signed Networks

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

arcDist <- function(x, y, r) {
    .Call(`_signnet_arcDist`, x, y, r)
}

arcDistMat <- function(X, r) {
    .Call(`_signnet_arcDistMat`, X, r)
}

cxmatmul <- function(A, B) {
    .Call(`_signnet_cxmatmul`, A, B)
}

blockCriterion <- function(A, clu, alpha) {
    .Call(`_signnet_blockCriterion`, A, clu, alpha)
}

critUpdate <- function(A, v, from, to, clu, alpha) {
    .Call(`_signnet_critUpdate`, A, v, from, to, clu, alpha)
}

optimBlocks1 <- function(A, clu, k, alpha) {
    .Call(`_signnet_optimBlocks1`, A, clu, k, alpha)
}

blockCriterion1 <- function(clu, A, alpha, k) {
    .Call(`_signnet_blockCriterion1`, clu, A, alpha, k)
}

blockCriterionS <- function(A, clu, alpha, sgrp) {
    .Call(`_signnet_blockCriterionS`, A, clu, alpha, sgrp)
}

critUpdateS <- function(A, v, from, to, clu, alpha, sgrp) {
    .Call(`_signnet_critUpdateS`, A, v, from, to, clu, alpha, sgrp)
}

optimBlocksSimS <- function(A, clu, sgrp, alpha) {
    .Call(`_signnet_optimBlocksSimS`, A, clu, sgrp, alpha)
}

triadCensusSign <- function(A, n) {
    .Call(`_signnet_triadCensusSign`, A, n)
}

triadCensusSign1 <- function(A, adj, n) {
    .Call(`_signnet_triadCensusSign1`, A, adj, n)
}