Nothing
# 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)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.