R/RcppExports.R

In jbracher/hhh4underreporting: Fitting endemic-epidemic models to underreported data

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

compute_sop_cov_cpp <- function(m1, vl1, nu, phi, kappa, psi, q) {
    .Call('_hhh4underreporting_compute_sop_cov_cpp', PACKAGE = 'hhh4underreporting', m1, vl1, nu, phi, kappa, psi, q)
}

reparam_cov_cpp <- function(m1, vl1, nu, phi, kappa, psi, q) {
    .Call('_hhh4underreporting_reparam_cov_cpp', PACKAGE = 'hhh4underreporting', m1, vl1, nu, phi, kappa, psi, q)
}

get_weight_matrix_cov_cpp <- function(phi, kappa, max_lag) {
    .Call('_hhh4underreporting_get_weight_matrix_cov_cpp', PACKAGE = 'hhh4underreporting', phi, kappa, max_lag)
}

nu_to_nu_star_cov_cpp <- function(nu, kappa) {
    .Call('_hhh4underreporting_nu_to_nu_star_cov_cpp', PACKAGE = 'hhh4underreporting', nu, kappa)
}

nllik_cov_cpp <- function(Y, m1, vl1, nu, phi, kappa, psi, q, max_lag = 5L) {
    .Call('_hhh4underreporting_nllik_cov_cpp', PACKAGE = 'hhh4underreporting', Y, m1, vl1, nu, phi, kappa, psi, q, max_lag)
}

compute_sop_tv_cpp <- function(lambda1, nu, phi, kappa, psi, q) {
    .Call('_hhh4underreporting_compute_sop_tv_cpp', PACKAGE = 'hhh4underreporting', lambda1, nu, phi, kappa, psi, q)
}

coarsen_vector_sum_cpp <- function(vect) {
    .Call('_hhh4underreporting_coarsen_vector_sum_cpp', PACKAGE = 'hhh4underreporting', vect)
}

coarsen_vector_prod_cpp <- function(vect) {
    .Call('_hhh4underreporting_coarsen_vector_prod_cpp', PACKAGE = 'hhh4underreporting', vect)
}

coarsen_vector_only_first_cpp <- function(vect) {
    .Call('_hhh4underreporting_coarsen_vector_only_first_cpp', PACKAGE = 'hhh4underreporting', vect)
}

coarsen_vector_only_sec_cpp <- function(vect) {
    .Call('_hhh4underreporting_coarsen_vector_only_sec_cpp', PACKAGE = 'hhh4underreporting', vect)
}

shift_add_zero <- function(vect) {
    .Call('_hhh4underreporting_shift_add_zero', PACKAGE = 'hhh4underreporting', vect)
}

coarsen_sop_tv_cpp <- function(sop) {
    .Call('_hhh4underreporting_coarsen_sop_tv_cpp', PACKAGE = 'hhh4underreporting', sop)
}

reparam_tv_cpp <- function(lambda1, nu, phi, kappa, psi, q, decoarsen) {
    .Call('_hhh4underreporting_reparam_tv_cpp', PACKAGE = 'hhh4underreporting', lambda1, nu, phi, kappa, psi, q, decoarsen)
}

nllik_tv_cpp <- function(observed, lambda1, nu, phi, kappa, psi, q, decoarsen) {
    .Call('_hhh4underreporting_nllik_tv_cpp', PACKAGE = 'hhh4underreporting', observed, lambda1, nu, phi, kappa, psi, q, decoarsen)
}

back_seas_cpp <- function(vect, to, lgt) {
    .Call('_hhh4underreporting_back_seas_cpp', PACKAGE = 'hhh4underreporting', vect, to, lgt)
}

get_weight_matrix_seas_cpp <- function(phi, kappa, max_lag) {
    .Call('_hhh4underreporting_get_weight_matrix_seas_cpp', PACKAGE = 'hhh4underreporting', phi, kappa, max_lag)
}

prod <- function(vect) {
    .Call('_hhh4underreporting_prod', PACKAGE = 'hhh4underreporting', vect)
}

order_back_in_time <- function(vect, from) {
    .Call('_hhh4underreporting_order_back_in_time', PACKAGE = 'hhh4underreporting', vect, from)
}

stat_mean_seas_cpp <- function(nu, phi, kappa) {
    .Call('_hhh4underreporting_stat_mean_seas_cpp', PACKAGE = 'hhh4underreporting', nu, phi, kappa)
}

stat_var_seas_cpp <- function(nu, phi, kappa, psi) {
    .Call('_hhh4underreporting_stat_var_seas_cpp', PACKAGE = 'hhh4underreporting', nu, phi, kappa, psi)
}

nu_to_nu_star_seas_cpp <- function(nu, kappa, max_lag) {
    .Call('_hhh4underreporting_nu_to_nu_star_seas_cpp', PACKAGE = 'hhh4underreporting', nu, kappa, max_lag)
}

compute_sop_seas_cpp <- function(nu, phi, kappa, psi, q) {
    .Call('_hhh4underreporting_compute_sop_seas_cpp', PACKAGE = 'hhh4underreporting', nu, phi, kappa, psi, q)
}

reparam_seas_cpp <- function(nu, phi, kappa, psi, q) {
    .Call('_hhh4underreporting_reparam_seas_cpp', PACKAGE = 'hhh4underreporting', nu, phi, kappa, psi, q)
}

get_mod_matr_cpp <- function(observed, max_lag) {
    .Call('_hhh4underreporting_get_mod_matr_cpp', PACKAGE = 'hhh4underreporting', observed, max_lag)
}