R/RcppExports.R

Defines functions gauss_rmvnorm gmm_loglkd gmm_sample gmm_predict sc_normalSM sc_normalNJW sc_unnormalized label_gmm label_kmeans cpp_setdiff cpp_sample cpp_pdistMP cpp_pdist2 cpp_pdist cpp_shortestpath cpp_SSQP cpp_LSR cpp_EKSS_affinity cpp_EKSS_T cpp_EKSS_0 cpp_LRSC cpp_LRR fast_loss_prj sp_gskmeans sp_spkmeans cpp_sc12L cpp_sc11Y cpp_sc10Z cpp_sc09G cpp_sc05Z cpp_scUL cpp_scSM cpp_scNJW sc_2015LB_commute arma_kmeans_kmeanspp arma_kmeans_random gmm_03F gmm_w2barycenter gmm_pdist_wass2 gmm_density gmm_combine_wsum gmm_16Gfix gmm_11R gmm_armadillo gmm_skeleton eval_label gauss_w2median fpp_pdist_lp coreset_18B src_psm src_pcm

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

src_pcm <- function(clmat) {
    .Call('_T4cluster_src_pcm', PACKAGE = 'T4cluster', clmat)
}

src_psm <- function(clmat) {
    .Call('_T4cluster_src_psm', PACKAGE = 'T4cluster', clmat)
}

coreset_18B <- function(X, K, M, maxiter) {
    .Call('_T4cluster_coreset_18B', PACKAGE = 'T4cluster', X, K, M, maxiter)
}

fpp_pdist_lp <- function(vect, vecf, myp) {
    .Call('_T4cluster_fpp_pdist_lp', PACKAGE = 'T4cluster', vect, vecf, myp)
}

gauss_w2median <- function(weight, mean, vars, maxiter = 100L, abstol = 1e-8) {
    .Call('_T4cluster_gauss_w2median', PACKAGE = 'T4cluster', weight, mean, vars, maxiter, abstol)
}

eval_label <- function(X, parMU, parSIG, parPI) {
    .Call('_T4cluster_eval_label', PACKAGE = 'T4cluster', X, parMU, parSIG, parPI)
}

gmm_skeleton <- function(X, k) {
    .Call('_T4cluster_gmm_skeleton', PACKAGE = 'T4cluster', X, k)
}

gmm_armadillo <- function(X, k, maxiter, usediag) {
    .Call('_T4cluster_gmm_armadillo', PACKAGE = 'T4cluster', X, k, maxiter, usediag)
}

gmm_11R <- function(X, K, lambda, maxiter, usediag) {
    .Call('_T4cluster_gmm_11R', PACKAGE = 'T4cluster', X, K, lambda, maxiter, usediag)
}

gmm_16Gfix <- function(X, k, weight, maxiter, usediag) {
    .Call('_T4cluster_gmm_16Gfix', PACKAGE = 'T4cluster', X, k, weight, maxiter, usediag)
}

gmm_combine_wsum <- function(gmmlist, weight) {
    .Call('_T4cluster_gmm_combine_wsum', PACKAGE = 'T4cluster', gmmlist, weight)
}

gmm_density <- function(coords, weight, mean, variance) {
    .Call('_T4cluster_gmm_density', PACKAGE = 'T4cluster', coords, weight, mean, variance)
}

gmm_pdist_wass2 <- function(mean, variance) {
    .Call('_T4cluster_gmm_pdist_wass2', PACKAGE = 'T4cluster', mean, variance)
}

gmm_w2barycenter <- function(weight, mean, vars) {
    .Call('_T4cluster_gmm_w2barycenter', PACKAGE = 'T4cluster', weight, mean, vars)
}

gmm_03F <- function(X, k, maxiter, usediag, lowdim, nruns) {
    .Call('_T4cluster_gmm_03F', PACKAGE = 'T4cluster', X, k, maxiter, usediag, lowdim, nruns)
}

arma_kmeans_random <- function(X, k, maxiter) {
    .Call('_T4cluster_arma_kmeans_random', PACKAGE = 'T4cluster', X, k, maxiter)
}

arma_kmeans_kmeanspp <- function(X, init, k, maxiter) {
    .Call('_T4cluster_arma_kmeans_kmeanspp', PACKAGE = 'T4cluster', X, init, k, maxiter)
}

sc_2015LB_commute <- function(D, K) {
    .Call('_T4cluster_sc_2015LB_commute', PACKAGE = 'T4cluster', D, K)
}

cpp_scNJW <- function(D, K, sigma, usekmeans, maxiter) {
    .Call('_T4cluster_cpp_scNJW', PACKAGE = 'T4cluster', D, K, sigma, usekmeans, maxiter)
}

cpp_scSM <- function(D, K, sigma, usekmeans, maxiter) {
    .Call('_T4cluster_cpp_scSM', PACKAGE = 'T4cluster', D, K, sigma, usekmeans, maxiter)
}

cpp_scUL <- function(D, K, sigma, usekmeans, maxiter) {
    .Call('_T4cluster_cpp_scUL', PACKAGE = 'T4cluster', D, K, sigma, usekmeans, maxiter)
}

cpp_sc05Z <- function(D, K, nnbd, usekmeans, maxiter) {
    .Call('_T4cluster_cpp_sc05Z', PACKAGE = 'T4cluster', D, K, nnbd, usekmeans, maxiter)
}

cpp_sc09G <- function(D, K, nnbd, usekmeans, maxiter) {
    .Call('_T4cluster_cpp_sc09G', PACKAGE = 'T4cluster', D, K, nnbd, usekmeans, maxiter)
}

cpp_sc10Z <- function(D, K, usekmeans, maxiter) {
    .Call('_T4cluster_cpp_sc10Z', PACKAGE = 'T4cluster', D, K, usekmeans, maxiter)
}

cpp_sc11Y <- function(idmat, distmat, K, usekmeans, maxiter, rho) {
    .Call('_T4cluster_cpp_sc11Y', PACKAGE = 'T4cluster', idmat, distmat, K, usekmeans, maxiter, rho)
}

cpp_sc12L <- function(D, K, usekmeans, maxiter, sigma) {
    .Call('_T4cluster_cpp_sc12L', PACKAGE = 'T4cluster', D, K, usekmeans, maxiter, sigma)
}

sp_spkmeans <- function(X, K, initializer, maxiter, abstol, printer) {
    .Call('_T4cluster_sp_spkmeans', PACKAGE = 'T4cluster', X, K, initializer, maxiter, abstol, printer)
}

sp_gskmeans <- function(X, K, initializer, maxiter, abstol, printer) {
    .Call('_T4cluster_sp_gskmeans', PACKAGE = 'T4cluster', X, K, initializer, maxiter, abstol, printer)
}

fast_loss_prj <- function(nS, dS, mS, PS, xS, muS) {
    .Call('_T4cluster_fast_loss_prj', PACKAGE = 'T4cluster', nS, dS, mS, PS, xS, muS)
}

cpp_LRR <- function(X, par_k, par_r) {
    .Call('_T4cluster_cpp_LRR', PACKAGE = 'T4cluster', X, par_k, par_r)
}

cpp_LRSC <- function(X, K, algtype, tau) {
    .Call('_T4cluster_cpp_LRSC', PACKAGE = 'T4cluster', X, K, algtype, tau)
}

cpp_EKSS_0 <- function(X, K, d) {
    .Call('_T4cluster_cpp_EKSS_0', PACKAGE = 'T4cluster', X, K, d)
}

cpp_EKSS_T <- function(X, K, d, maxiter) {
    .Call('_T4cluster_cpp_EKSS_T', PACKAGE = 'T4cluster', X, K, d, maxiter)
}

cpp_EKSS_affinity <- function(labels) {
    .Call('_T4cluster_cpp_EKSS_affinity', PACKAGE = 'T4cluster', labels)
}

cpp_LSR <- function(data, K, lambda, zerodiag) {
    .Call('_T4cluster_cpp_LSR', PACKAGE = 'T4cluster', data, K, lambda, zerodiag)
}

cpp_SSQP <- function(data, K, lambda, maxiter, tolerance) {
    .Call('_T4cluster_cpp_SSQP', PACKAGE = 'T4cluster', data, K, lambda, maxiter, tolerance)
}

cpp_shortestpath <- function(locs, dists) {
    .Call('_T4cluster_cpp_shortestpath', PACKAGE = 'T4cluster', locs, dists)
}

cpp_pdist <- function(X, p) {
    .Call('_T4cluster_cpp_pdist', PACKAGE = 'T4cluster', X, p)
}

cpp_pdist2 <- function(X, Y, p) {
    .Call('_T4cluster_cpp_pdist2', PACKAGE = 'T4cluster', X, Y, p)
}

cpp_pdistMP <- function(X, p, nCores) {
    .Call('_T4cluster_cpp_pdistMP', PACKAGE = 'T4cluster', X, p, nCores)
}

cpp_sample <- function(N, m, prob, replace) {
    .Call('_T4cluster_cpp_sample', PACKAGE = 'T4cluster', N, m, prob, replace)
}

cpp_setdiff <- function(x, y) {
    .Call('_T4cluster_cpp_setdiff', PACKAGE = 'T4cluster', x, y)
}

label_kmeans <- function(data, K, maxiter) {
    .Call('_T4cluster_label_kmeans', PACKAGE = 'T4cluster', data, K, maxiter)
}

label_gmm <- function(data, K, maxiter) {
    .Call('_T4cluster_label_gmm', PACKAGE = 'T4cluster', data, K, maxiter)
}

sc_unnormalized <- function(W, K, usekmeans, maxiter) {
    .Call('_T4cluster_sc_unnormalized', PACKAGE = 'T4cluster', W, K, usekmeans, maxiter)
}

sc_normalNJW <- function(W, K, usekmeans, maxiter) {
    .Call('_T4cluster_sc_normalNJW', PACKAGE = 'T4cluster', W, K, usekmeans, maxiter)
}

sc_normalSM <- function(W, K, usekmeans, maxiter) {
    .Call('_T4cluster_sc_normalSM', PACKAGE = 'T4cluster', W, K, usekmeans, maxiter)
}

gmm_predict <- function(X, oldweight, oldmeans, oldcovs) {
    .Call('_T4cluster_gmm_predict', PACKAGE = 'T4cluster', X, oldweight, oldmeans, oldcovs)
}

gmm_sample <- function(n, oldweight, oldmeans, oldcovs) {
    .Call('_T4cluster_gmm_sample', PACKAGE = 'T4cluster', n, oldweight, oldmeans, oldcovs)
}

gmm_loglkd <- function(X, oldweight, oldmeans, oldcovs) {
    .Call('_T4cluster_gmm_loglkd', PACKAGE = 'T4cluster', X, oldweight, oldmeans, oldcovs)
}

gauss_rmvnorm <- function(N, mu, var) {
    .Call('_T4cluster_gauss_rmvnorm', PACKAGE = 'T4cluster', N, mu, var)
}

Try the T4cluster package in your browser

Any scripts or data that you put into this service are public.

T4cluster documentation built on Aug. 16, 2021, 9:07 a.m.