# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
find_delta_v <- function(v, dist_mat) {
.Call('_morevac_find_delta_v', PACKAGE = 'morevac', v, dist_mat)
}
infect_cpp_2 <- function(inf_history, years_since_last_vac, vac_history, suscept_mat, x, ages_mat, delta_v, dist_mat, gammas, foi, wane_rate, epsilon) {
.Call('_morevac_infect_cpp_2', PACKAGE = 'morevac', inf_history, years_since_last_vac, vac_history, suscept_mat, x, ages_mat, delta_v, dist_mat, gammas, foi, wane_rate, epsilon)
}
initialize_pop_cpp <- function(n, nyears, init_ages, max_age) {
.Call('_morevac_initialize_pop_cpp', PACKAGE = 'morevac', n, nyears, init_ages, max_age)
}
lifetime_infections_cpp <- function(a, lifetime_inf, inf_stat) {
.Call('_morevac_lifetime_infections_cpp', PACKAGE = 'morevac', a, lifetime_inf, inf_stat)
}
vaccinate_cpp_2 <- function(vac_hist_mat, v, ages_mat, vac_this_year, vac_cov, take, rho, vac_strategy) {
.Call('_morevac_vaccinate_cpp_2', PACKAGE = 'morevac', vac_hist_mat, v, ages_mat, vac_this_year, vac_cov, take, rho, vac_strategy)
}
vaccine_update_cpp <- function(drift, threshold, vac_protect) {
.Call('_morevac_vaccine_update_cpp', PACKAGE = 'morevac', drift, threshold, vac_protect)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.