R/RcppExports.R

In communication: Feature Extraction and Model Estimation for Audio of Human Speech

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

dmvnorm_cens <- function(X, mu, Sigma, missingness_labels_i, nonmissing_features, logd = FALSE, lambda = 0) {
    .Call('_communication_dmvnorm_cens', PACKAGE = 'communication', X, mu, Sigma, missingness_labels_i, nonmissing_features, logd, lambda)
}

dmvnorm_cond <- function(X, mu, Sigma, labels_t, labels_y, logd = FALSE, lambda = 0) {
    .Call('_communication_dmvnorm_cond', PACKAGE = 'communication', X, mu, Sigma, labels_t, labels_y, logd, lambda)
}

forward <- function(delta, Gamma, tstateprobs, scale) {
    .Call('_communication_forward', PACKAGE = 'communication', delta, Gamma, tstateprobs, scale)
}

backward <- function(Gamma, tstateprobs, scale) {
    .Call('_communication_backward', PACKAGE = 'communication', Gamma, tstateprobs, scale)
}

forward_upper <- function(Gammas, tstateprobs) {
    .Call('_communication_forward_upper', PACKAGE = 'communication', Gammas, tstateprobs)
}

backward_upper <- function(Gammas, tstateprobs) {
    .Call('_communication_backward_upper', PACKAGE = 'communication', Gammas, tstateprobs)
}

hmm_cpp <- function(Xs, weights, delta_init, mus_init, Sigmas_init, Gamma_init, zetas_init, nonmissing, missingness_labels, nonmissing_features, lambda = 0, tol = 1e-6, maxiter = 100L, uncollapse = 0, verbose = TRUE, supervised = FALSE) {
    .Call('_communication_hmm_cpp', PACKAGE = 'communication', Xs, weights, delta_init, mus_init, Sigmas_init, Gamma_init, zetas_init, nonmissing, missingness_labels, nonmissing_features, lambda, tol, maxiter, uncollapse, verbose, supervised)
}

hmm_autocorr_cpp <- function(Xs, weights, delta_init, mus_init, Sigmas_init, Gamma_init, zetas_init, labels_t, labels_y, lambda = 0, tol = 1e-6, maxiter = 100L, uncollapse = 0, verbose = TRUE, supervised = FALSE) {
    .Call('_communication_hmm_autocorr_cpp', PACKAGE = 'communication', Xs, weights, delta_init, mus_init, Sigmas_init, Gamma_init, zetas_init, labels_t, labels_y, lambda, tol, maxiter, uncollapse, verbose, supervised)
}

llh_cpp <- function(Xs, delta, mus, Sigmas_in, Gamma, nonmissing, missingness_labels, nonmissing_features, lambda, verbose = TRUE) {
    .Call('_communication_llh_cpp', PACKAGE = 'communication', Xs, delta, mus, Sigmas_in, Gamma, nonmissing, missingness_labels, nonmissing_features, lambda, verbose)
}

lstateprobs_cpp <- function(Xs, mus, Sigmas_in, nonmissing, missingness_labels, nonmissing_features, lambda) {
    .Call('_communication_lstateprobs_cpp', PACKAGE = 'communication', Xs, mus, Sigmas_in, nonmissing, missingness_labels, nonmissing_features, lambda)
}

viterbi_cpp <- function(lstateprobs, delta, Gamma) {
    .Call('_communication_viterbi_cpp', PACKAGE = 'communication', lstateprobs, delta, Gamma)
}

isSilent <- function(x, threshold) {
    .Call('_communication_isSilent', PACKAGE = 'communication', x, threshold)
}

notSilence <- function(x, threshold) {
    .Call('_communication_notSilence', PACKAGE = 'communication', x, threshold)
}