R/RcppExports.R

In MixMatrix: Classification with Matrix Variate Normal and t Distributions

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

posdefsqrt <- function(x) {
    .Call(`_MixMatrix_posdefsqrt`, x)
}

posdefinvsqrt <- function(x) {
    .Call(`_MixMatrix_posdefinvsqrt`, x)
}

rmat_inv_t_calc <- function(S, mat, U, V, mean) {
    .Call(`_MixMatrix_rmat_inv_t_calc`, S, mat, U, V, mean)
}

cubeinv <- function(x) {
    .Call(`_MixMatrix_cubeinv`, x)
}

xatx <- function(x, U) {
    .Call(`_MixMatrix_xatx`, x, U)
}

txax <- function(x, U) {
    .Call(`_MixMatrix_txax`, x, U)
}

dmat_inv_t_calc <- function(x, df, mean, U, V) {
    .Call(`_MixMatrix_dmat_inv_t_calc`, x, df, mean, U, V)
}

dmatnorm_calc <- function(x, mean, U, V) {
    .Call(`_MixMatrix_dmatnorm_calc`, x, mean, U, V)
}

dmat_t_calc <- function(x, df, mean, U, V) {
    .Call(`_MixMatrix_dmat_t_calc`, x, df, mean, U, V)
}

testsymmetric <- function(x, tol) {
    .Call(`_MixMatrix_testsymmetric`, x, tol)
}

cubemult <- function(x, y) {
    .Call(`_MixMatrix_cubemult`, x, y)
}

detsum <- function(x, weights) {
    .Call(`_MixMatrix_detsum`, x, weights)
}