R/RcppExports.R

Defines functions rcpparma_bothproducts rcpparma_innerproduct rcpparma_outerproduct rcpparma_hello_world scale_c tcrossprod_c get_gamma_labels_c get_mu get_mean_values get_gamma getFinalMeans_c assignGroups_c getMatrixMeans_c getCCmatrix_c getIndividualList

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

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

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

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

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

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

get_gamma <- function(class_values, K) {
    .Call('_RJcluster_get_gamma', PACKAGE = 'RJcluster', class_values, K)
}

get_mean_values <- function(K, gamma, GG) {
    .Call('_RJcluster_get_mean_values', PACKAGE = 'RJcluster', K, gamma, GG)
}

get_mu <- function(labels, gamma, GG_new, N, K, mean_off, mean_diag) {
    .Call('_RJcluster_get_mu', PACKAGE = 'RJcluster', labels, gamma, GG_new, N, K, mean_off, mean_diag)
}

get_gamma_labels_c <- function(z, C) {
    .Call('_RJcluster_get_gamma_labels_c', PACKAGE = 'RJcluster', z, C)
}

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

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

rcpparma_hello_world <- function() {
    .Call('_RJcluster_rcpparma_hello_world', PACKAGE = 'RJcluster')
}

rcpparma_outerproduct <- function(x) {
    .Call('_RJcluster_rcpparma_outerproduct', PACKAGE = 'RJcluster', x)
}

rcpparma_innerproduct <- function(x) {
    .Call('_RJcluster_rcpparma_innerproduct', PACKAGE = 'RJcluster', x)
}

rcpparma_bothproducts <- function(x) {
    .Call('_RJcluster_rcpparma_bothproducts', PACKAGE = 'RJcluster', x)
}
rshudde/RJcluster documentation built on April 26, 2021, 5:21 p.m.