R/RcppExports.R

In luca-scr/ppgmmga: Projection Pursuit Based on Gaussian Mixtures and Evolutionary Algorithms

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

LinTransf <- function(mean, sigma, B, Z, G, d) {
    .Call(`_ppgmmga_LinTransf`, mean, sigma, B, Z, G, d)
}

EntropyGauss <- function(S, d) {
    .Call(`_ppgmmga_EntropyGauss`, S, d)
}

orth <- function(A, method = "QR") {
    .Call(`_ppgmmga_orth`, A, method)
}

encodebasis <- function(par, d, p) {
    .Call(`_ppgmmga_encodebasis`, par, d, p)
}

logsumexp <- function(x) {
    .Call(`_ppgmmga_logsumexp`, x)
}

EntropyUT <- function(G, pro, mean, sigma, d) {
    .Call(`_ppgmmga_EntropyUT`, G, pro, mean, sigma, d)
}

EntropyVAR <- function(G, pro, mean, sigma, d) {
    .Call(`_ppgmmga_EntropyVAR`, G, pro, mean, sigma, d)
}

EntropySOTE <- function(data, G, pro, mean, sigma) {
    .Call(`_ppgmmga_EntropySOTE`, data, G, pro, mean, sigma)
}

EntropyMCapprox <- function(data, G, pro, mean, sigma) {
    .Call(`_ppgmmga_EntropyMCapprox`, data, G, pro, mean, sigma)
}

EntropyGMM <- function(data, pro, mean, sigma) {
    .Call(`_ppgmmga_EntropyGMM`, data, pro, mean, sigma)
}