covback: Back-calculate from confirmations

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

calculate_onset_probs_weibull <- function(tmax, weibull_alpha, weibull_sigma) {
    .Call('_covback_calculate_onset_probs_weibull', PACKAGE = 'covback', tmax, weibull_alpha, weibull_sigma)
}

calculate_probs_presymptomatic_weibull <- function(tmax, weibull_alpha, weibull_sigma) {
    .Call('_covback_calculate_probs_presymptomatic_weibull', PACKAGE = 'covback', tmax, weibull_alpha, weibull_sigma)
}

calculate_onset_probs_lnorm <- function(tmax, par1, par2) {
    .Call('_covback_calculate_onset_probs_lnorm', PACKAGE = 'covback', tmax, par1, par2)
}

calculate_probs_presymptomatic_lnorm <- function(tmax, par1, par2) {
    .Call('_covback_calculate_probs_presymptomatic_lnorm', PACKAGE = 'covback', tmax, par1, par2)
}

calculate_probs_preconfirmation <- function(tmax, alpha, scale) {
    .Call('_covback_calculate_probs_preconfirmation', PACKAGE = 'covback', tmax, alpha, scale)
}

calculate_probs_notrecovered <- function(tmax, alpha, scale) {
    .Call('_covback_calculate_probs_notrecovered', PACKAGE = 'covback', tmax, alpha, scale)
}

calculate_serial_interval_probs <- function(tmax, alpha, scale) {
    .Call('_covback_calculate_serial_interval_probs', PACKAGE = 'covback', tmax, alpha, scale)
}

prob_not_left_per_day <- function(probs) {
    .Call('_covback_prob_not_left_per_day', PACKAGE = 'covback', probs)
}

prob_leave_on_day <- function(probs, tmax) {
    .Call('_covback_prob_leave_on_day', PACKAGE = 'covback', probs, tmax)
}

probs_not_left_by_day <- function(probs, tmax) {
    .Call('_covback_probs_not_left_by_day', PACKAGE = 'covback', probs, tmax)
}

prob_leave_pre_symptoms <- function(leave_matrix, presymptom_probs) {
    .Call('_covback_prob_leave_pre_symptoms', PACKAGE = 'covback', leave_matrix, presymptom_probs)
}

prob_leave_pre_symptoms_vector <- function(leave_matrix, presymptom_probs) {
    .Call('_covback_prob_leave_pre_symptoms_vector', PACKAGE = 'covback', leave_matrix, presymptom_probs)
}

prob_daily_arrival <- function(export_probs, import_probs, tmax) {
    .Call('_covback_prob_daily_arrival', PACKAGE = 'covback', export_probs, import_probs, tmax)
}

prob_arrive_pre_symptoms <- function(arrive_matrix, presymptom_probs) {
    .Call('_covback_prob_arrive_pre_symptoms', PACKAGE = 'covback', arrive_matrix, presymptom_probs)
}

prob_arrive_pre_symptoms_vector <- function(arrive_matrix, presymptom_probs) {
    .Call('_covback_prob_arrive_pre_symptoms_vector', PACKAGE = 'covback', arrive_matrix, presymptom_probs)
}

local_travel_matrix_precalc <- function(prob_arrival_mat) {
    .Call('_covback_local_travel_matrix_precalc', PACKAGE = 'covback', prob_arrival_mat)
}

calculate_local_infections <- function(precalc_local, infections, serial_probs, r_local) {
    .Call('_covback_calculate_local_infections', PACKAGE = 'covback', precalc_local, infections, serial_probs, r_local)
}

calculate_infection_prevalence_local <- function(incidence, prob_presymptomatic) {
    .Call('_covback_calculate_infection_prevalence_local', PACKAGE = 'covback', incidence, prob_presymptomatic)
}

calculate_infection_prevalence_imported <- function(incidence, prob_presymptomatic, prob_have_arrived) {
    .Call('_covback_calculate_infection_prevalence_imported', PACKAGE = 'covback', incidence, prob_presymptomatic, prob_have_arrived)
}

calculate_infection_prevalence_hubei <- function(incidence, prob_presymptomatic, probs_not_left_by_day) {
    .Call('_covback_calculate_infection_prevalence_hubei', PACKAGE = 'covback', incidence, prob_presymptomatic, probs_not_left_by_day)
}

calculate_preconfirmation_prevalence_vector <- function(onsets, alphas, scales) {
    .Call('_covback_calculate_preconfirmation_prevalence_vector', PACKAGE = 'covback', onsets, alphas, scales)
}

calculate_preconfirmation_prevalence <- function(onsets, prob_not_confirmed) {
    .Call('_covback_calculate_preconfirmation_prevalence', PACKAGE = 'covback', onsets, prob_not_confirmed)
}

calculate_unrecovered_prevalence <- function(onsets, prob_not_recovered) {
    .Call('_covback_calculate_unrecovered_prevalence', PACKAGE = 'covback', onsets, prob_not_recovered)
}

calculate_preconfirmation_prevalence_from_infections <- function(infections, incu_par1, incu_par2, alphas, scales) {
    .Call('_covback_calculate_preconfirmation_prevalence_from_infections', PACKAGE = 'covback', infections, incu_par1, incu_par2, alphas, scales)
}

#' @export
daily_sigmoid_interval_cpp <- function(growth, i_max, tmax, t0) {
    .Call('_covback_daily_sigmoid_interval_cpp', PACKAGE = 'covback', growth, i_max, tmax, t0)
}

#' @export
daily_exp_interval_cpp <- function(growth, tmax, t0) {
    .Call('_covback_daily_exp_interval_cpp', PACKAGE = 'covback', growth, tmax, t0)
}

calculate_infection_incidence_time <- function(growth_rate, growth_rate_imports, tmax, t0, t0_import, i0, import_propns) {
    .Call('_covback_calculate_infection_incidence_time', PACKAGE = 'covback', growth_rate, growth_rate_imports, tmax, t0, t0_import, i0, import_propns)
}

calculate_local_from_import_infections <- function(imported_infections, serial_probs, tmax) {
    .Call('_covback_calculate_local_from_import_infections', PACKAGE = 'covback', imported_infections, serial_probs, tmax)
}

calculate_onset_incidence <- function(infections, onset_probs, tmax) {
    .Call('_covback_calculate_onset_incidence', PACKAGE = 'covback', infections, onset_probs, tmax)
}

calculate_reporting_delay_matrix <- function(shapes, scales) {
    .Call('_covback_calculate_reporting_delay_matrix', PACKAGE = 'covback', shapes, scales)
}

calculate_confirmation_incidence <- function(onsets, tmax, report_delay_mat) {
    .Call('_covback_calculate_confirmation_incidence', PACKAGE = 'covback', onsets, tmax, report_delay_mat)
}

calculate_all_incidences <- function(growth_rate, t0, i0, import_infections, onset_probs, report_delay_mat, tmax) {
    .Call('_covback_calculate_all_incidences', PACKAGE = 'covback', growth_rate, t0, i0, import_infections, onset_probs, report_delay_mat, tmax)
}

calculate_all_incidences_logistic <- function(growth_rate, t0, i0, K, import_infections, onset_probs, report_delay_mat, tmax) {
    .Call('_covback_calculate_all_incidences_logistic', PACKAGE = 'covback', growth_rate, t0, i0, K, import_infections, onset_probs, report_delay_mat, tmax)
}

calculate_all_incidences_logistic_scale_reporting <- function(growth_rate, t0, i0, K, import_infections, onset_probs, report_delay_mat, tmax, reporting_switch, report_rate_1, report_rate_2) {
    .Call('_covback_calculate_all_incidences_logistic_scale_reporting', PACKAGE = 'covback', growth_rate, t0, i0, K, import_infections, onset_probs, report_delay_mat, tmax, reporting_switch, report_rate_1, report_rate_2)
}