R/RcppExports.R

In helske/seqHMM: Mixture Hidden Markov Models for Social Sequence Data and Other Multivariate, Multichannel Categorical Time Series

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

Rcpp_EM_LBFGS_fanhmm <- function(obs, Ti, M, X_pi, X_A, X_B, icpt_only_pi, icpt_only_A, icpt_only_B, iv_A, iv_B, tv_A, tv_B, eta_pi, eta_A, eta_B, prior_y, W_X_B, lambda, maxeval, ftol_abs, ftol_rel, xtol_abs, xtol_rel, print_level, maxeval_m, ftol_abs_m, ftol_rel_m, xtol_abs_m, xtol_rel_m, print_level_m, bound) {
    .Call(`_seqHMM_Rcpp_EM_LBFGS_fanhmm`, obs, Ti, M, X_pi, X_A, X_B, icpt_only_pi, icpt_only_A, icpt_only_B, iv_A, iv_B, tv_A, tv_B, eta_pi, eta_A, eta_B, prior_y, W_X_B, lambda, maxeval, ftol_abs, ftol_rel, xtol_abs, xtol_rel, print_level, maxeval_m, ftol_abs_m, ftol_rel_m, xtol_abs_m, xtol_rel_m, print_level_m, bound)
}

Rcpp_EM_LBFGS_mfanhmm <- function(obs, Ti, M, X_pi, X_A, X_B, X_omega, icpt_only_pi, icpt_only_A, icpt_only_B, icpt_only_omega, iv_A, iv_B, tv_A, tv_B, eta_pi, eta_A, eta_B, eta_omega, prior_y, W_X_B, lambda, maxeval, ftol_abs, ftol_rel, xtol_abs, xtol_rel, print_level, maxeval_m, ftol_abs_m, ftol_rel_m, xtol_abs_m, xtol_rel_m, print_level_m, bound) {
    .Call(`_seqHMM_Rcpp_EM_LBFGS_mfanhmm`, obs, Ti, M, X_pi, X_A, X_B, X_omega, icpt_only_pi, icpt_only_A, icpt_only_B, icpt_only_omega, iv_A, iv_B, tv_A, tv_B, eta_pi, eta_A, eta_B, eta_omega, prior_y, W_X_B, lambda, maxeval, ftol_abs, ftol_rel, xtol_abs, xtol_rel, print_level, maxeval_m, ftol_abs_m, ftol_rel_m, xtol_abs_m, xtol_rel_m, print_level_m, bound)
}

Rcpp_EM_LBFGS_mnhmm <- function(obs, Ti, M, X_pi, X_A, X_B, X_omega, icpt_only_pi, icpt_only_A, icpt_only_B, icpt_only_omega, iv_A, iv_B, tv_A, tv_B, eta_pi, eta_A, eta_B, eta_omega, lambda, maxeval, ftol_abs, ftol_rel, xtol_abs, xtol_rel, print_level, maxeval_m, ftol_abs_m, ftol_rel_m, xtol_abs_m, xtol_rel_m, print_level_m, bound) {
    .Call(`_seqHMM_Rcpp_EM_LBFGS_mnhmm`, obs, Ti, M, X_pi, X_A, X_B, X_omega, icpt_only_pi, icpt_only_A, icpt_only_B, icpt_only_omega, iv_A, iv_B, tv_A, tv_B, eta_pi, eta_A, eta_B, eta_omega, lambda, maxeval, ftol_abs, ftol_rel, xtol_abs, xtol_rel, print_level, maxeval_m, ftol_abs_m, ftol_rel_m, xtol_abs_m, xtol_rel_m, print_level_m, bound)
}

Rcpp_EM_LBFGS_nhmm <- function(obs, Ti, M, X_pi, X_A, X_B, icpt_only_pi, icpt_only_A, icpt_only_B, iv_A, iv_B, tv_A, tv_B, eta_pi, eta_A, eta_B, lambda, maxeval, ftol_abs, ftol_rel, xtol_abs, xtol_rel, print_level, maxeval_m, ftol_abs_m, ftol_rel_m, xtol_abs_m, xtol_rel_m, print_level_m, bound) {
    .Call(`_seqHMM_Rcpp_EM_LBFGS_nhmm`, obs, Ti, M, X_pi, X_A, X_B, icpt_only_pi, icpt_only_A, icpt_only_B, iv_A, iv_B, tv_A, tv_B, eta_pi, eta_A, eta_B, lambda, maxeval, ftol_abs, ftol_rel, xtol_abs, xtol_rel, print_level, maxeval_m, ftol_abs_m, ftol_rel_m, xtol_abs_m, xtol_rel_m, print_level_m, bound)
}

Rcpp_backward_fanhmm <- function(obs, Ti, M, X_pi, X_A, X_B, icpt_only_pi, icpt_only_A, icpt_only_B, iv_A, iv_B, tv_A, tv_B, gamma_pi, gamma_A, gamma_B, prior_y, W_X_B) {
    .Call(`_seqHMM_Rcpp_backward_fanhmm`, obs, Ti, M, X_pi, X_A, X_B, icpt_only_pi, icpt_only_A, icpt_only_B, iv_A, iv_B, tv_A, tv_B, gamma_pi, gamma_A, gamma_B, prior_y, W_X_B)
}

Rcpp_backward_mfanhmm <- function(obs, Ti, M, X_pi, X_A, X_B, X_omega, icpt_only_pi, icpt_only_A, icpt_only_B, icpt_only_omega, iv_A, iv_B, tv_A, tv_B, gamma_pi, gamma_A, gamma_B, gamma_omega, prior_y, W_X_B) {
    .Call(`_seqHMM_Rcpp_backward_mfanhmm`, obs, Ti, M, X_pi, X_A, X_B, X_omega, icpt_only_pi, icpt_only_A, icpt_only_B, icpt_only_omega, iv_A, iv_B, tv_A, tv_B, gamma_pi, gamma_A, gamma_B, gamma_omega, prior_y, W_X_B)
}

Rcpp_backward_mnhmm <- function(obs, Ti, M, X_pi, X_A, X_B, X_omega, icpt_only_pi, icpt_only_A, icpt_only_B, icpt_only_omega, iv_A, iv_B, tv_A, tv_B, gamma_pi, gamma_A, gamma_B, gamma_omega) {
    .Call(`_seqHMM_Rcpp_backward_mnhmm`, obs, Ti, M, X_pi, X_A, X_B, X_omega, icpt_only_pi, icpt_only_A, icpt_only_B, icpt_only_omega, iv_A, iv_B, tv_A, tv_B, gamma_pi, gamma_A, gamma_B, gamma_omega)
}

Rcpp_backward_nhmm <- function(obs, Ti, M, X_pi, X_A, X_B, icpt_only_pi, icpt_only_A, icpt_only_B, iv_A, iv_B, tv_A, tv_B, gamma_pi, gamma_A, gamma_B) {
    .Call(`_seqHMM_Rcpp_backward_nhmm`, obs, Ti, M, X_pi, X_A, X_B, icpt_only_pi, icpt_only_A, icpt_only_B, iv_A, iv_B, tv_A, tv_B, gamma_pi, gamma_A, gamma_B)
}

Rcpp_forward_fanhmm <- function(obs, Ti, M, X_pi, X_A, X_B, icpt_only_pi, icpt_only_A, icpt_only_B, iv_A, iv_B, tv_A, tv_B, gamma_pi, gamma_A, gamma_B, prior_y, W_X_B) {
    .Call(`_seqHMM_Rcpp_forward_fanhmm`, obs, Ti, M, X_pi, X_A, X_B, icpt_only_pi, icpt_only_A, icpt_only_B, iv_A, iv_B, tv_A, tv_B, gamma_pi, gamma_A, gamma_B, prior_y, W_X_B)
}

Rcpp_forward_mfanhmm <- function(obs, Ti, M, X_pi, X_A, X_B, X_omega, icpt_only_pi, icpt_only_A, icpt_only_B, icpt_only_omega, iv_A, iv_B, tv_A, tv_B, gamma_pi, gamma_A, gamma_B, gamma_omega, prior_y, W_X_B) {
    .Call(`_seqHMM_Rcpp_forward_mfanhmm`, obs, Ti, M, X_pi, X_A, X_B, X_omega, icpt_only_pi, icpt_only_A, icpt_only_B, icpt_only_omega, iv_A, iv_B, tv_A, tv_B, gamma_pi, gamma_A, gamma_B, gamma_omega, prior_y, W_X_B)
}

Rcpp_forward_mnhmm <- function(obs, Ti, M, X_pi, X_A, X_B, X_omega, icpt_only_pi, icpt_only_A, icpt_only_B, icpt_only_omega, iv_A, iv_B, tv_A, tv_B, gamma_pi, gamma_A, gamma_B, gamma_omega) {
    .Call(`_seqHMM_Rcpp_forward_mnhmm`, obs, Ti, M, X_pi, X_A, X_B, X_omega, icpt_only_pi, icpt_only_A, icpt_only_B, icpt_only_omega, iv_A, iv_B, tv_A, tv_B, gamma_pi, gamma_A, gamma_B, gamma_omega)
}

Rcpp_forward_nhmm <- function(obs, Ti, M, X_pi, X_A, X_B, icpt_only_pi, icpt_only_A, icpt_only_B, iv_A, iv_B, tv_A, tv_B, gamma_pi, gamma_A, gamma_B) {
    .Call(`_seqHMM_Rcpp_forward_nhmm`, obs, Ti, M, X_pi, X_A, X_B, icpt_only_pi, icpt_only_A, icpt_only_B, iv_A, iv_B, tv_A, tv_B, gamma_pi, gamma_A, gamma_B)
}

Rcpp_log_objective_fanhmm <- function(obs, Ti, M, X_pi, X_A, X_B, icpt_only_pi, icpt_only_A, icpt_only_B, iv_A, iv_B, tv_A, tv_B, eta_pi, eta_A, eta_B, prior_y, W_X_B) {
    .Call(`_seqHMM_Rcpp_log_objective_fanhmm`, obs, Ti, M, X_pi, X_A, X_B, icpt_only_pi, icpt_only_A, icpt_only_B, iv_A, iv_B, tv_A, tv_B, eta_pi, eta_A, eta_B, prior_y, W_X_B)
}

Rcpp_log_objective_mfanhmm <- function(obs, Ti, M, X_pi, X_A, X_B, X_omega, icpt_only_pi, icpt_only_A, icpt_only_B, icpt_only_omega, iv_A, iv_B, tv_A, tv_B, eta_pi, eta_A, eta_B, eta_omega, prior_y, W_X_B) {
    .Call(`_seqHMM_Rcpp_log_objective_mfanhmm`, obs, Ti, M, X_pi, X_A, X_B, X_omega, icpt_only_pi, icpt_only_A, icpt_only_B, icpt_only_omega, iv_A, iv_B, tv_A, tv_B, eta_pi, eta_A, eta_B, eta_omega, prior_y, W_X_B)
}

Rcpp_log_objective_mnhmm <- function(obs, Ti, M, X_pi, X_A, X_B, X_omega, icpt_only_pi, icpt_only_A, icpt_only_B, icpt_only_omega, iv_A, iv_B, tv_A, tv_B, eta_pi, eta_A, eta_B, eta_omega) {
    .Call(`_seqHMM_Rcpp_log_objective_mnhmm`, obs, Ti, M, X_pi, X_A, X_B, X_omega, icpt_only_pi, icpt_only_A, icpt_only_B, icpt_only_omega, iv_A, iv_B, tv_A, tv_B, eta_pi, eta_A, eta_B, eta_omega)
}

Rcpp_log_objective_nhmm <- function(obs, Ti, M, X_pi, X_A, X_B, icpt_only_pi, icpt_only_A, icpt_only_B, iv_A, iv_B, tv_A, tv_B, eta_pi, eta_A, eta_B) {
    .Call(`_seqHMM_Rcpp_log_objective_nhmm`, obs, Ti, M, X_pi, X_A, X_B, icpt_only_pi, icpt_only_A, icpt_only_B, iv_A, iv_B, tv_A, tv_B, eta_pi, eta_A, eta_B)
}

Rcpp_loglik_fanhmm <- function(obs, Ti, M, X_pi, X_A, X_B, icpt_only_pi, icpt_only_A, icpt_only_B, iv_A, iv_B, tv_A, tv_B, eta_pi, eta_A, eta_B, prior_y, W_X_B) {
    .Call(`_seqHMM_Rcpp_loglik_fanhmm`, obs, Ti, M, X_pi, X_A, X_B, icpt_only_pi, icpt_only_A, icpt_only_B, iv_A, iv_B, tv_A, tv_B, eta_pi, eta_A, eta_B, prior_y, W_X_B)
}

Rcpp_loglik_mfanhmm <- function(obs, Ti, M, X_pi, X_A, X_B, X_omega, icpt_only_pi, icpt_only_A, icpt_only_B, icpt_only_omega, iv_A, iv_B, tv_A, tv_B, eta_pi, eta_A, eta_B, eta_omega, prior_y, W_X_B) {
    .Call(`_seqHMM_Rcpp_loglik_mfanhmm`, obs, Ti, M, X_pi, X_A, X_B, X_omega, icpt_only_pi, icpt_only_A, icpt_only_B, icpt_only_omega, iv_A, iv_B, tv_A, tv_B, eta_pi, eta_A, eta_B, eta_omega, prior_y, W_X_B)
}

Rcpp_loglik_mnhmm <- function(obs, Ti, M, X_pi, X_A, X_B, X_omega, icpt_only_pi, icpt_only_A, icpt_only_B, icpt_only_omega, iv_A, iv_B, tv_A, tv_B, eta_pi, eta_A, eta_B, eta_omega) {
    .Call(`_seqHMM_Rcpp_loglik_mnhmm`, obs, Ti, M, X_pi, X_A, X_B, X_omega, icpt_only_pi, icpt_only_A, icpt_only_B, icpt_only_omega, iv_A, iv_B, tv_A, tv_B, eta_pi, eta_A, eta_B, eta_omega)
}

Rcpp_loglik_nhmm <- function(obs, Ti, M, X_pi, X_A, X_B, icpt_only_pi, icpt_only_A, icpt_only_B, iv_A, iv_B, tv_A, tv_B, eta_pi, eta_A, eta_B) {
    .Call(`_seqHMM_Rcpp_loglik_nhmm`, obs, Ti, M, X_pi, X_A, X_B, icpt_only_pi, icpt_only_A, icpt_only_B, iv_A, iv_B, tv_A, tv_B, eta_pi, eta_A, eta_B)
}

Rcpp_predict_fanhmm <- function(obs, Ti, M, X_pi, X_A, X_B, icpt_only_pi, icpt_only_A, icpt_only_B, iv_A, iv_B, tv_A, tv_B, gamma_pi, gamma_A, gamma_B, prior_y, W_X_B, W_A, W_B) {
    .Call(`_seqHMM_Rcpp_predict_fanhmm`, obs, Ti, M, X_pi, X_A, X_B, icpt_only_pi, icpt_only_A, icpt_only_B, iv_A, iv_B, tv_A, tv_B, gamma_pi, gamma_A, gamma_B, prior_y, W_X_B, W_A, W_B)
}

Rcpp_predict_mfanhmm <- function(obs, Ti, M, X_pi, X_A, X_B, X_omega, icpt_only_pi, icpt_only_A, icpt_only_B, icpt_only_omega, iv_A, iv_B, tv_A, tv_B, gamma_pi, gamma_A, gamma_B, gamma_omega, prior_y, W_X_B, W_A, W_B) {
    .Call(`_seqHMM_Rcpp_predict_mfanhmm`, obs, Ti, M, X_pi, X_A, X_B, X_omega, icpt_only_pi, icpt_only_A, icpt_only_B, icpt_only_omega, iv_A, iv_B, tv_A, tv_B, gamma_pi, gamma_A, gamma_B, gamma_omega, prior_y, W_X_B, W_A, W_B)
}

Rcpp_predict_mnhmm <- function(obs, Ti, M, X_pi, X_A, X_B, X_omega, icpt_only_pi, icpt_only_A, icpt_only_B, icpt_only_omega, iv_A, iv_B, tv_A, tv_B, gamma_pi, gamma_A, gamma_B, gamma_omega) {
    .Call(`_seqHMM_Rcpp_predict_mnhmm`, obs, Ti, M, X_pi, X_A, X_B, X_omega, icpt_only_pi, icpt_only_A, icpt_only_B, icpt_only_omega, iv_A, iv_B, tv_A, tv_B, gamma_pi, gamma_A, gamma_B, gamma_omega)
}

Rcpp_predict_nhmm <- function(obs, Ti, M, X_pi, X_A, X_B, icpt_only_pi, icpt_only_A, icpt_only_B, iv_A, iv_B, tv_A, tv_B, gamma_pi, gamma_A, gamma_B) {
    .Call(`_seqHMM_Rcpp_predict_nhmm`, obs, Ti, M, X_pi, X_A, X_B, icpt_only_pi, icpt_only_A, icpt_only_B, iv_A, iv_B, tv_A, tv_B, gamma_pi, gamma_A, gamma_B)
}

Rcpp_simulate_fanhmm <- function(obs, Ti, M, X_pi, X_A, X_B, icpt_only_pi, icpt_only_A, icpt_only_B, iv_A, iv_B, tv_A, tv_B, gamma_pi, gamma_A, gamma_B, prior_y, W_X_B, W_A, W_B) {
    .Call(`_seqHMM_Rcpp_simulate_fanhmm`, obs, Ti, M, X_pi, X_A, X_B, icpt_only_pi, icpt_only_A, icpt_only_B, iv_A, iv_B, tv_A, tv_B, gamma_pi, gamma_A, gamma_B, prior_y, W_X_B, W_A, W_B)
}

Rcpp_simulate_mfanhmm <- function(obs, Ti, M, X_pi, X_A, X_B, X_omega, icpt_only_pi, icpt_only_A, icpt_only_B, icpt_only_omega, iv_A, iv_B, tv_A, tv_B, gamma_pi, gamma_A, gamma_B, gamma_omega, prior_y, W_X_B, W_A, W_B) {
    .Call(`_seqHMM_Rcpp_simulate_mfanhmm`, obs, Ti, M, X_pi, X_A, X_B, X_omega, icpt_only_pi, icpt_only_A, icpt_only_B, icpt_only_omega, iv_A, iv_B, tv_A, tv_B, gamma_pi, gamma_A, gamma_B, gamma_omega, prior_y, W_X_B, W_A, W_B)
}

Rcpp_simulate_mnhmm <- function(obs, Ti, M, X_pi, X_A, X_B, X_omega, icpt_only_pi, icpt_only_A, icpt_only_B, icpt_only_omega, iv_A, iv_B, tv_A, tv_B, gamma_pi, gamma_A, gamma_B, gamma_omega) {
    .Call(`_seqHMM_Rcpp_simulate_mnhmm`, obs, Ti, M, X_pi, X_A, X_B, X_omega, icpt_only_pi, icpt_only_A, icpt_only_B, icpt_only_omega, iv_A, iv_B, tv_A, tv_B, gamma_pi, gamma_A, gamma_B, gamma_omega)
}

Rcpp_simulate_nhmm <- function(obs, Ti, M, X_pi, X_A, X_B, icpt_only_pi, icpt_only_A, icpt_only_B, iv_A, iv_B, tv_A, tv_B, gamma_pi, gamma_A, gamma_B) {
    .Call(`_seqHMM_Rcpp_simulate_nhmm`, obs, Ti, M, X_pi, X_A, X_B, icpt_only_pi, icpt_only_A, icpt_only_B, iv_A, iv_B, tv_A, tv_B, gamma_pi, gamma_A, gamma_B)
}

Rcpp_viterbi_fanhmm <- function(obs, Ti, M, X_pi, X_A, X_B, icpt_only_pi, icpt_only_A, icpt_only_B, iv_A, iv_B, tv_A, tv_B, gamma_pi, gamma_A, gamma_B, prior_y, W_X_B) {
    .Call(`_seqHMM_Rcpp_viterbi_fanhmm`, obs, Ti, M, X_pi, X_A, X_B, icpt_only_pi, icpt_only_A, icpt_only_B, iv_A, iv_B, tv_A, tv_B, gamma_pi, gamma_A, gamma_B, prior_y, W_X_B)
}

Rcpp_viterbi_mfanhmm <- function(obs, Ti, M, X_pi, X_A, X_B, X_omega, icpt_only_pi, icpt_only_A, icpt_only_B, icpt_only_omega, iv_A, iv_B, tv_A, tv_B, gamma_pi, gamma_A, gamma_B, gamma_omega, prior_y, W_X_B) {
    .Call(`_seqHMM_Rcpp_viterbi_mfanhmm`, obs, Ti, M, X_pi, X_A, X_B, X_omega, icpt_only_pi, icpt_only_A, icpt_only_B, icpt_only_omega, iv_A, iv_B, tv_A, tv_B, gamma_pi, gamma_A, gamma_B, gamma_omega, prior_y, W_X_B)
}

Rcpp_viterbi_mnhmm <- function(obs, Ti, M, X_pi, X_A, X_B, X_omega, icpt_only_pi, icpt_only_A, icpt_only_B, icpt_only_omega, iv_A, iv_B, tv_A, tv_B, gamma_pi, gamma_A, gamma_B, gamma_omega) {
    .Call(`_seqHMM_Rcpp_viterbi_mnhmm`, obs, Ti, M, X_pi, X_A, X_B, X_omega, icpt_only_pi, icpt_only_A, icpt_only_B, icpt_only_omega, iv_A, iv_B, tv_A, tv_B, gamma_pi, gamma_A, gamma_B, gamma_omega)
}

Rcpp_viterbi_nhmm <- function(obs, Ti, M, X_pi, X_A, X_B, icpt_only_pi, icpt_only_A, icpt_only_B, iv_A, iv_B, tv_A, tv_B, gamma_pi, gamma_A, gamma_B) {
    .Call(`_seqHMM_Rcpp_viterbi_nhmm`, obs, Ti, M, X_pi, X_A, X_B, icpt_only_pi, icpt_only_A, icpt_only_B, iv_A, iv_B, tv_A, tv_B, gamma_pi, gamma_A, gamma_B)
}

cost_matrix <- function(gamma_pi_est, gamma_pi_ref, gamma_A_est, gamma_A_ref, gamma_B_est, gamma_B_ref) {
    .Call(`_seqHMM_cost_matrix`, gamma_pi_est, gamma_pi_ref, gamma_A_est, gamma_A_ref, gamma_B_est, gamma_B_ref)
}

cost_matrix_clusters <- function(pcp_est, pcp_mle) {
    .Call(`_seqHMM_cost_matrix_clusters`, pcp_est, pcp_mle)
}

create_Q <- function(n) {
    .Call(`_seqHMM_create_Q`, n)
}

eta_to_gamma_mat <- function(eta) {
    .Call(`_seqHMM_eta_to_gamma_mat`, eta)
}

eta_to_gamma_mat_field <- function(eta) {
    .Call(`_seqHMM_eta_to_gamma_mat_field`, eta)
}

eta_to_gamma_cube <- function(eta) {
    .Call(`_seqHMM_eta_to_gamma_cube`, eta)
}

eta_to_gamma_cube_field <- function(eta) {
    .Call(`_seqHMM_eta_to_gamma_cube_field`, eta)
}

eta_to_gamma_cube_2d_field <- function(eta) {
    .Call(`_seqHMM_eta_to_gamma_cube_2d_field`, eta)
}

fast_quantiles <- function(X, probs) {
    .Call(`_seqHMM_fast_quantiles`, X, probs)
}

get_omega_all <- function(gamma, X) {
    .Call(`_seqHMM_get_omega_all`, gamma, X)
}

get_pi_all <- function(gamma, X) {
    .Call(`_seqHMM_get_pi_all`, gamma, X)
}

get_A_all <- function(gamma, X, tv) {
    .Call(`_seqHMM_get_A_all`, gamma, X, tv)
}

get_B_all <- function(gamma, X, tv) {
    .Call(`_seqHMM_get_B_all`, gamma, X, tv)
}

get_B1 <- function(gamma, M, W_X_B, prior_y) {
    .Call(`_seqHMM_get_B1`, gamma, M, W_X_B, prior_y)
}

joint_probability <- function(prob) {
    .Call(`_seqHMM_joint_probability`, prob)
}

logSumExp <- function(x) {
    .Call(`_seqHMM_logSumExp`, x)
}

EM <- function(transition_, emission_, init_, obs, nSymbols, itermax, tol, trace, threads) {
    .Call(`_seqHMM_EM`, transition_, emission_, init_, obs, nSymbols, itermax, tol, trace, threads)
}

EMx <- function(transition_, emission_, init_, obs, nSymbols, coef_, X, numberOfStates, itermax, tol, trace, threads) {
    .Call(`_seqHMM_EMx`, transition_, emission_, init_, obs, nSymbols, coef_, X, numberOfStates, itermax, tol, trace, threads)
}

log_EM <- function(transition_, emission_, init_, obs, nSymbols, itermax, tol, trace, threads) {
    .Call(`_seqHMM_log_EM`, transition_, emission_, init_, obs, nSymbols, itermax, tol, trace, threads)
}

log_EMx <- function(transition_, emission_, init_, obs, nSymbols, coef_, X, numberOfStates, itermax, tol, trace, threads) {
    .Call(`_seqHMM_log_EMx`, transition_, emission_, init_, obs, nSymbols, coef_, X, numberOfStates, itermax, tol, trace, threads)
}

log_forwardbackward <- function(transition_, emission_, init_, obs, forwardonly, threads) {
    .Call(`_seqHMM_log_forwardbackward`, transition_, emission_, init_, obs, forwardonly, threads)
}

log_forwardbackwardx <- function(transition_, emission_, init_, obs, coef, X, numberOfStates, forwardonly, threads) {
    .Call(`_seqHMM_log_forwardbackwardx`, transition_, emission_, init_, obs, coef, X, numberOfStates, forwardonly, threads)
}

log_objective <- function(transition, emission, init, obs, ANZ, BNZ, INZ, nSymbols, threads) {
    .Call(`_seqHMM_log_objective`, transition, emission, init, obs, ANZ, BNZ, INZ, nSymbols, threads)
}

log_objectivex <- function(transition, emission, init, obs, ANZ, BNZ, INZ, nSymbols, coef, X, numberOfStates, threads) {
    .Call(`_seqHMM_log_objectivex`, transition, emission, init, obs, ANZ, BNZ, INZ, nSymbols, coef, X, numberOfStates, threads)
}

logLikHMM <- function(transition, emission, init, obs, threads) {
    .Call(`_seqHMM_logLikHMM`, transition, emission, init, obs, threads)
}

logLikMixHMM <- function(transition, emission, init, obs, coef, X, numberOfStates, threads) {
    .Call(`_seqHMM_logLikMixHMM`, transition, emission, init, obs, coef, X, numberOfStates, threads)
}

log_logLikHMM <- function(transition_, emission_, init_, obs, threads) {
    .Call(`_seqHMM_log_logLikHMM`, transition_, emission_, init_, obs, threads)
}

log_logLikMixHMM <- function(transition, emission, init, obs, coef, X, numberOfStates, threads) {
    .Call(`_seqHMM_log_logLikMixHMM`, transition, emission, init, obs, coef, X, numberOfStates, threads)
}

objective <- function(transition, emission, init, obs, ANZ, BNZ, INZ, nSymbols, threads) {
    .Call(`_seqHMM_objective`, transition, emission, init, obs, ANZ, BNZ, INZ, nSymbols, threads)
}

objectivex <- function(transition, emission, init, obs, ANZ, BNZ, INZ, nSymbols, coef, X, numberOfStates, threads) {
    .Call(`_seqHMM_objectivex`, transition, emission, init, obs, ANZ, BNZ, INZ, nSymbols, coef, X, numberOfStates, threads)
}

varcoef <- function(coef, X) {
    .Call(`_seqHMM_varcoef`, coef, X)
}

viterbi <- function(transition, emission, init, obs) {
    .Call(`_seqHMM_viterbi`, transition, emission, init, obs)
}

viterbix <- function(transition, emission, init, obs, coef, X, numberOfStates) {
    .Call(`_seqHMM_viterbix`, transition, emission, init, obs, coef, X, numberOfStates)
}

softmax <- function(x) {
    .Call(`_seqHMM_softmax`, x)
}