R/RcppExports.R

In rshudde/RJclust: RJ Clustering Algorithm

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

getIndividualList <- function(classification, temp_index, i) {
    .Call('_RJclust_getIndividualList', PACKAGE = 'RJclust', classification, temp_index, i)
}

getCCmatrix_c <- function(classification, temp_index, G) {
    .Call('_RJclust_getCCmatrix_c', PACKAGE = 'RJclust', classification, temp_index, G)
}

getMatrixMeans_c <- function(CC, X, d) {
    .Call('_RJclust_getMatrixMeans_c', PACKAGE = 'RJclust', CC, X, d)
}

assignGroups_c <- function(N, G, classification, CC) {
    .Call('_RJclust_assignGroups_c', PACKAGE = 'RJclust', N, G, classification, CC)
}

getFinalMeans_c <- function(G, Group, X) {
    .Call('_RJclust_getFinalMeans_c', PACKAGE = 'RJclust', G, Group, X)
}

getImportantGenes_c <- function(X, cluster) {
    .Call('_RJclust_getImportantGenes_c', PACKAGE = 'RJclust', X, cluster)
}

tcrossprod_c <- function(X, Y) {
    .Call('_RJclust_tcrossprod_c', PACKAGE = 'RJclust', X, Y)
}

scale_c <- function(X, medians = FALSE) {
    .Call('_RJclust_scale_c', PACKAGE = 'RJclust', X, medians)
}

get_percentages_c <- function(X) {
    .Call('_RJclust_get_percentages_c', PACKAGE = 'RJclust', X)
}

replace_zeroes_c <- function(X) {
    invisible(.Call('_RJclust_replace_zeroes_c', PACKAGE = 'RJclust', X))
}