R/RcppExports.R

In kharchenkolab/cacoa: Case-Control Analysis Tools for Single-Cell RNA-Seq

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

adjustZScoresWithPermutations <- function(z_scores, wins, max_vals) {
    .Call('_cacoa_adjustZScoresWithPermutations', PACKAGE = 'cacoa', z_scores, wins, max_vals)
}

clusterFreeZScoreMat <- function(count_mat, sample_per_cell, nn_ids, is_ref, min_n_samp_per_cond = 2L, min_n_obs_per_samp = 1L, robust = FALSE, norm_both = TRUE, min_z = 0.001, verbose = TRUE, n_cores = 1L, adjust_pvalues = FALSE, n_permutations = 500L, smooth = TRUE, wins = 0.01) {
    .Call('_cacoa_clusterFreeZScoreMat', PACKAGE = 'cacoa', count_mat, sample_per_cell, nn_ids, is_ref, min_n_samp_per_cond, min_n_obs_per_samp, robust, norm_both, min_z, verbose, n_cores, adjust_pvalues, n_permutations, smooth, wins)
}

estimateCorrelationDistance <- function(v1, v2, centered = TRUE) {
    .Call('_cacoa_estimateCorrelationDistance', PACKAGE = 'cacoa', v1, v2, centered)
}

estimateClusterFreeExpressionShiftsInfo <- function(cm, sample_per_cell, nn_ids, min_n_obs_per_samp = 1L, verbose = TRUE, n_cores = 1L, dist = "cor", log_vecs = TRUE) {
    .Call('_cacoa_estimateClusterFreeExpressionShiftsInfo', PACKAGE = 'cacoa', cm, sample_per_cell, nn_ids, min_n_obs_per_samp, verbose, n_cores, dist, log_vecs)
}

estimateClusterFreeExpressionShiftsC <- function(cm, sample_per_cell, nn_ids, is_ref, min_n_between = 1L, min_n_within = 1L, min_n_obs_per_samp = 1L, norm_all = TRUE, verbose = TRUE, n_cores = 1L, dist = "cor", log_vecs = TRUE, n_permutations = 100L, smooth = TRUE, wins = 0.01, seed = 0L) {
    .Call('_cacoa_estimateClusterFreeExpressionShiftsC', PACKAGE = 'cacoa', cm, sample_per_cell, nn_ids, is_ref, min_n_between, min_n_within, min_n_obs_per_samp, norm_all, verbose, n_cores, dist, log_vecs, n_permutations, smooth, wins, seed)
}

mapIds <- function(ids_vec, id_map) {
    .Call('_cacoa_mapIds', PACKAGE = 'cacoa', ids_vec, id_map)
}

projdiff <- function(mat, g1, g2) {
    .Call('_cacoa_projdiff', PACKAGE = 'cacoa', mat, g1, g2)
}

colwiseBinaryDistance <- function(mat) {
    .Call('_cacoa_colwiseBinaryDistance', PACKAGE = 'cacoa', mat)
}