# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
term_union_cpp <- function(m, simmat, terms, parentheses, verbose = TRUE, sep = " | ") {
.Call('_RNewsflow_term_union_cpp', PACKAGE = 'RNewsflow', m, simmat, terms, parentheses, verbose, sep)
}
term_intersect_cpp <- function(m, simmat, terms, parentheses, verbose = TRUE, sep = " & ") {
.Call('_RNewsflow_term_intersect_cpp', PACKAGE = 'RNewsflow', m, simmat, terms, parentheses, verbose, sep)
}
batched_tcrossprod_cpp <- function(m1, m2, group1, group2, order1, order2, simmat, use_min = TRUE, min_value = 0L, use_max = FALSE, max_value = 1L, top_n = 0L, diag = TRUE, only_upper = FALSE, rowsum_div = FALSE, pvalue = "NA", max_p = 1, normalize = "none", crossfun = "prod", lwindow = 0L, rwindow = 0L, row_attr = FALSE, col_attr = FALSE, lag_attr = FALSE, verbose = FALSE, batchsize = 1000L) {
.Call('_RNewsflow_batched_tcrossprod_cpp', PACKAGE = 'RNewsflow', m1, m2, group1, group2, order1, order2, simmat, use_min, min_value, use_max, max_value, top_n, diag, only_upper, rowsum_div, pvalue, max_p, normalize, crossfun, lwindow, rwindow, row_attr, col_attr, lag_attr, verbose, batchsize)
}
window_corp_comp <- function(m1, m2, order1, order2, lwindow = 0L, rwindow = 0L, min_chi = 0, min_ratio = 0, smooth = 1) {
.Call('_RNewsflow_window_corp_comp', PACKAGE = 'RNewsflow', m1, m2, order1, order2, lwindow, rwindow, min_chi, min_ratio, smooth)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.