R/cpp11.R

In epiworldR: Fast Agent-Based Epi Models

# Generated by cpp11: do not edit by hand

globalevent_tool_logit_cpp <- function(tool, vars, coefs, name, day) {
  .Call(`_epiworldR_globalevent_tool_logit_cpp`, tool, vars, coefs, name, day)
}

globalevent_tool_cpp <- function(tool, prob, name, day) {
  .Call(`_epiworldR_globalevent_tool_cpp`, tool, prob, name, day)
}

globalevent_set_param_cpp <- function(param, value, name, day) {
  .Call(`_epiworldR_globalevent_set_param_cpp`, param, value, name, day)
}

print_global_action_cpp <- function(action) {
  .Call(`_epiworldR_print_global_action_cpp`, action)
}

add_globalevent_cpp <- function(model, action) {
  .Call(`_epiworldR_add_globalevent_cpp`, model, action)
}

rm_globalevent_cpp <- function(model, name) {
  .Call(`_epiworldR_rm_globalevent_cpp`, model, name)
}

globalevent_fun_cpp <- function(fun, name, day) {
  .Call(`_epiworldR_globalevent_fun_cpp`, fun, name, day)
}

get_agents_cpp <- function(model) {
  .Call(`_epiworldR_get_agents_cpp`, model)
}

get_agent_cpp <- function(agents, i) {
  .Call(`_epiworldR_get_agent_cpp`, agents, i)
}

print_agent_cpp <- function(agent, model, compressed) {
  .Call(`_epiworldR_print_agent_cpp`, agent, model, compressed)
}

get_state_agent_cpp <- function(agent) {
  .Call(`_epiworldR_get_state_agent_cpp`, agent)
}

get_agents_states_cpp <- function(model) {
  .Call(`_epiworldR_get_agents_states_cpp`, model)
}

add_virus_agent_cpp <- function(agent, model, virus, state_new, queue) {
  .Call(`_epiworldR_add_virus_agent_cpp`, agent, model, virus, state_new, queue)
}

add_tool_agent_cpp <- function(agent, model, tool, state_new, queue) {
  .Call(`_epiworldR_add_tool_agent_cpp`, agent, model, tool, state_new, queue)
}

has_virus_cpp <- function(agent, virus) {
  .Call(`_epiworldR_has_virus_cpp`, agent, virus)
}

has_tool_cpp <- function(agent, tool) {
  .Call(`_epiworldR_has_tool_cpp`, agent, tool)
}

change_state_cpp <- function(agent, model, new_state, queue) {
  .Call(`_epiworldR_change_state_cpp`, agent, model, new_state, queue)
}

get_hist_total_cpp <- function(model) {
  .Call(`_epiworldR_get_hist_total_cpp`, model)
}

get_hist_virus_cpp <- function(model) {
  .Call(`_epiworldR_get_hist_virus_cpp`, model)
}

get_hist_tool_cpp <- function(model) {
  .Call(`_epiworldR_get_hist_tool_cpp`, model)
}

get_transition_probability_cpp <- function(model) {
  .Call(`_epiworldR_get_transition_probability_cpp`, model)
}

get_hist_transition_matrix_cpp <- function(model, skip_zeros) {
  .Call(`_epiworldR_get_hist_transition_matrix_cpp`, model, skip_zeros)
}

get_reproductive_number_cpp <- function(model) {
  .Call(`_epiworldR_get_reproductive_number_cpp`, model)
}

get_transmissions_cpp <- function(model) {
  .Call(`_epiworldR_get_transmissions_cpp`, model)
}

get_generation_time_cpp <- function(model) {
  .Call(`_epiworldR_get_generation_time_cpp`, model)
}

get_today_total_cpp <- function(model) {
  .Call(`_epiworldR_get_today_total_cpp`, model)
}

get_entities_cpp <- function(model) {
  .Call(`_epiworldR_get_entities_cpp`, model)
}

get_entity_cpp <- function(entities, idx) {
  .Call(`_epiworldR_get_entity_cpp`, entities, idx)
}

entity_cpp <- function(name, preval, as_proportion, to_unassigned) {
  .Call(`_epiworldR_entity_cpp`, name, preval, as_proportion, to_unassigned)
}

get_entity_size_cpp <- function(entity) {
  .Call(`_epiworldR_get_entity_size_cpp`, entity)
}

entity_add_agent_cpp <- function(entity, agent, model) {
  .Call(`_epiworldR_entity_add_agent_cpp`, entity, agent, model)
}

get_entity_name_cpp <- function(entity) {
  .Call(`_epiworldR_get_entity_name_cpp`, entity)
}

add_entity_cpp <- function(model, entity) {
  .Call(`_epiworldR_add_entity_cpp`, model, entity)
}

rm_entity_cpp <- function(model, entity_pos) {
  .Call(`_epiworldR_rm_entity_cpp`, model, entity_pos)
}

load_agents_entities_ties_cpp <- function(model, agents_ids, entities_ids) {
  .Call(`_epiworldR_load_agents_entities_ties_cpp`, model, agents_ids, entities_ids)
}

entity_get_agents_cpp <- function(entity) {
  .Call(`_epiworldR_entity_get_agents_cpp`, entity)
}

print_entity_cpp <- function(entity) {
  .Call(`_epiworldR_print_entity_cpp`, entity)
}

set_distribution_entity_cpp <- function(entity, fun) {
  .Call(`_epiworldR_set_distribution_entity_cpp`, entity, fun)
}

distribute_entity_randomly_cpp <- function(prevalence, as_proportion, to_unassigned) {
  .Call(`_epiworldR_distribute_entity_randomly_cpp`, prevalence, as_proportion, to_unassigned)
}

distribute_entity_to_set_cpp <- function(agents_ids) {
  .Call(`_epiworldR_distribute_entity_to_set_cpp`, agents_ids)
}

ModelSURV_cpp <- function(name, prevalence, efficacy_vax, latent_period, prob_symptoms, prop_vaccinated, prop_vax_redux_transm, infect_period, prop_vax_redux_infect, surveillance_prob, transmission_rate, prob_death, prob_noreinfect) {
  .Call(`_epiworldR_ModelSURV_cpp`, name, prevalence, efficacy_vax, latent_period, prob_symptoms, prop_vaccinated, prop_vax_redux_transm, infect_period, prop_vax_redux_infect, surveillance_prob, transmission_rate, prob_death, prob_noreinfect)
}

ModelSEIR_cpp <- function(name, prevalence, transmission_rate, incubation_days, recovery_rate) {
  .Call(`_epiworldR_ModelSEIR_cpp`, name, prevalence, transmission_rate, incubation_days, recovery_rate)
}

ModelSIS_cpp <- function(name, prevalence, transmission_rate, recovery_rate) {
  .Call(`_epiworldR_ModelSIS_cpp`, name, prevalence, transmission_rate, recovery_rate)
}

ModelSIRCONN_cpp <- function(name, n, prevalence, contact_rate, transmission_rate, recovery_rate) {
  .Call(`_epiworldR_ModelSIRCONN_cpp`, name, n, prevalence, contact_rate, transmission_rate, recovery_rate)
}

ModelSIR_cpp <- function(name, prevalence, transmission_rate, recovery_rate) {
  .Call(`_epiworldR_ModelSIR_cpp`, name, prevalence, transmission_rate, recovery_rate)
}

ModelSIRD_cpp <- function(name, prevalence, transmission_rate, recovery_rate, death_rate) {
  .Call(`_epiworldR_ModelSIRD_cpp`, name, prevalence, transmission_rate, recovery_rate, death_rate)
}

ModelSEIRD_cpp <- function(name, prevalence, transmission_rate, incubation_days, recovery_rate, death_rate) {
  .Call(`_epiworldR_ModelSEIRD_cpp`, name, prevalence, transmission_rate, incubation_days, recovery_rate, death_rate)
}

ModelSISD_cpp <- function(name, prevalence, transmission_rate, recovery_rate, death_rate) {
  .Call(`_epiworldR_ModelSISD_cpp`, name, prevalence, transmission_rate, recovery_rate, death_rate)
}

ModelSIRDCONN_cpp <- function(name, n, prevalence, contact_rate, transmission_rate, recovery_rate, death_rate) {
  .Call(`_epiworldR_ModelSIRDCONN_cpp`, name, n, prevalence, contact_rate, transmission_rate, recovery_rate, death_rate)
}

ModelSEIRDCONN_cpp <- function(name, n, prevalence, contact_rate, transmission_rate, incubation_days, recovery_rate, death_rate) {
  .Call(`_epiworldR_ModelSEIRDCONN_cpp`, name, n, prevalence, contact_rate, transmission_rate, incubation_days, recovery_rate, death_rate)
}

ModelSEIRCONN_cpp <- function(name, n, prevalence, contact_rate, transmission_rate, incubation_days, recovery_rate) {
  .Call(`_epiworldR_ModelSEIRCONN_cpp`, name, n, prevalence, contact_rate, transmission_rate, incubation_days, recovery_rate)
}

ModelSIRLogit_cpp <- function(vname, data, ncols, coefs_infect, coefs_recover, coef_infect_cols, coef_recover_cols, prob_infection, recovery_rate, prevalence) {
  .Call(`_epiworldR_ModelSIRLogit_cpp`, vname, data, ncols, coefs_infect, coefs_recover, coef_infect_cols, coef_recover_cols, prob_infection, recovery_rate, prevalence)
}

ModelDiffNet_cpp <- function(name, prevalence, prob_adopt, normalize_exposure, data, data_ncols, data_cols, params) {
  .Call(`_epiworldR_ModelDiffNet_cpp`, name, prevalence, prob_adopt, normalize_exposure, data, data_ncols, data_cols, params)
}

ModelSIRMixing_cpp <- function(name, n, prevalence, contact_rate, transmission_rate, recovery_rate, contact_matrix) {
  .Call(`_epiworldR_ModelSIRMixing_cpp`, name, n, prevalence, contact_rate, transmission_rate, recovery_rate, contact_matrix)
}

ModelSEIRMixing_cpp <- function(name, n, prevalence, contact_rate, transmission_rate, incubation_days, recovery_rate, contact_matrix) {
  .Call(`_epiworldR_ModelSEIRMixing_cpp`, name, n, prevalence, contact_rate, transmission_rate, incubation_days, recovery_rate, contact_matrix)
}

ModelMeaslesQuarantine_cpp <- function(n, prevalence, contact_rate, transmission_rate, vax_efficacy, vax_reduction_recovery_rate, incubation_period, prodromal_period, rash_period, days_undetected, hospitalization_rate, hospitalization_period, prop_vaccinated, quarantine_period, quarantine_willingness, isolation_period) {
  .Call(`_epiworldR_ModelMeaslesQuarantine_cpp`, n, prevalence, contact_rate, transmission_rate, vax_efficacy, vax_reduction_recovery_rate, incubation_period, prodromal_period, rash_period, days_undetected, hospitalization_rate, hospitalization_period, prop_vaccinated, quarantine_period, quarantine_willingness, isolation_period)
}

LFMCMC_cpp <- function(model) {
  .Call(`_epiworldR_LFMCMC_cpp`, model)
}

run_lfmcmc_cpp <- function(lfmcmc, params_init_, n_samples_, epsilon_, seed) {
  .Call(`_epiworldR_run_lfmcmc_cpp`, lfmcmc, params_init_, n_samples_, epsilon_, seed)
}

set_observed_data_cpp <- function(lfmcmc, observed_data_) {
  .Call(`_epiworldR_set_observed_data_cpp`, lfmcmc, observed_data_)
}

set_proposal_fun_cpp <- function(lfmcmc, fun) {
  .Call(`_epiworldR_set_proposal_fun_cpp`, lfmcmc, fun)
}

use_proposal_norm_reflective_cpp <- function(lfmcmc) {
  .Call(`_epiworldR_use_proposal_norm_reflective_cpp`, lfmcmc)
}

set_simulation_fun_cpp <- function(lfmcmc, fun) {
  .Call(`_epiworldR_set_simulation_fun_cpp`, lfmcmc, fun)
}

set_summary_fun_cpp <- function(lfmcmc, fun) {
  .Call(`_epiworldR_set_summary_fun_cpp`, lfmcmc, fun)
}

set_kernel_fun_cpp <- function(lfmcmc, fun) {
  .Call(`_epiworldR_set_kernel_fun_cpp`, lfmcmc, fun)
}

use_kernel_fun_gaussian_cpp <- function(lfmcmc) {
  .Call(`_epiworldR_use_kernel_fun_gaussian_cpp`, lfmcmc)
}

get_mean_params_cpp <- function(lfmcmc) {
  .Call(`_epiworldR_get_mean_params_cpp`, lfmcmc)
}

get_mean_stats_cpp <- function(lfmcmc) {
  .Call(`_epiworldR_get_mean_stats_cpp`, lfmcmc)
}

get_initial_params_cpp <- function(lfmcmc) {
  .Call(`_epiworldR_get_initial_params_cpp`, lfmcmc)
}

get_current_proposed_params_cpp <- function(lfmcmc) {
  .Call(`_epiworldR_get_current_proposed_params_cpp`, lfmcmc)
}

get_current_accepted_params_cpp <- function(lfmcmc) {
  .Call(`_epiworldR_get_current_accepted_params_cpp`, lfmcmc)
}

get_current_proposed_stats_cpp <- function(lfmcmc) {
  .Call(`_epiworldR_get_current_proposed_stats_cpp`, lfmcmc)
}

get_current_accepted_stats_cpp <- function(lfmcmc) {
  .Call(`_epiworldR_get_current_accepted_stats_cpp`, lfmcmc)
}

get_observed_stats_cpp <- function(lfmcmc) {
  .Call(`_epiworldR_get_observed_stats_cpp`, lfmcmc)
}

get_all_sample_params_cpp <- function(lfmcmc) {
  .Call(`_epiworldR_get_all_sample_params_cpp`, lfmcmc)
}

get_all_sample_stats_cpp <- function(lfmcmc) {
  .Call(`_epiworldR_get_all_sample_stats_cpp`, lfmcmc)
}

get_all_sample_acceptance_cpp <- function(lfmcmc) {
  .Call(`_epiworldR_get_all_sample_acceptance_cpp`, lfmcmc)
}

get_all_sample_drawn_prob_cpp <- function(lfmcmc) {
  .Call(`_epiworldR_get_all_sample_drawn_prob_cpp`, lfmcmc)
}

get_all_sample_kernel_scores_cpp <- function(lfmcmc) {
  .Call(`_epiworldR_get_all_sample_kernel_scores_cpp`, lfmcmc)
}

get_all_accepted_params_cpp <- function(lfmcmc) {
  .Call(`_epiworldR_get_all_accepted_params_cpp`, lfmcmc)
}

get_all_accepted_stats_cpp <- function(lfmcmc) {
  .Call(`_epiworldR_get_all_accepted_stats_cpp`, lfmcmc)
}

get_all_accepted_kernel_scores_cpp <- function(lfmcmc) {
  .Call(`_epiworldR_get_all_accepted_kernel_scores_cpp`, lfmcmc)
}

get_n_samples_cpp <- function(lfmcmc) {
  .Call(`_epiworldR_get_n_samples_cpp`, lfmcmc)
}

get_n_stats_cpp <- function(lfmcmc) {
  .Call(`_epiworldR_get_n_stats_cpp`, lfmcmc)
}

get_n_params_cpp <- function(lfmcmc) {
  .Call(`_epiworldR_get_n_params_cpp`, lfmcmc)
}

verbose_off_lfmcmc_cpp <- function(lfmcmc) {
  .Call(`_epiworldR_verbose_off_lfmcmc_cpp`, lfmcmc)
}

verbose_on_lfmcmc_cpp <- function(lfmcmc) {
  .Call(`_epiworldR_verbose_on_lfmcmc_cpp`, lfmcmc)
}

set_params_names_cpp <- function(lfmcmc, names) {
  .Call(`_epiworldR_set_params_names_cpp`, lfmcmc, names)
}

set_stats_names_cpp <- function(lfmcmc, names) {
  .Call(`_epiworldR_set_stats_names_cpp`, lfmcmc, names)
}

print_lfmcmc_cpp <- function(lfmcmc, burnin) {
  .Call(`_epiworldR_print_lfmcmc_cpp`, lfmcmc, burnin)
}

draw_from_data_cpp <- function(states, tprob, fn_output, self) {
  invisible(.Call(`_epiworldR_draw_from_data_cpp`, states, tprob, fn_output, self))
}

draw_from_file_cpp <- function(fn_transition, fn_output, self) {
  invisible(.Call(`_epiworldR_draw_from_file_cpp`, fn_transition, fn_output, self))
}

draw_from_files_cpp <- function(fns_transition, fn_output, self) {
  invisible(.Call(`_epiworldR_draw_from_files_cpp`, fns_transition, fn_output, self))
}

print_cpp <- function(m, lite) {
  .Call(`_epiworldR_print_cpp`, m, lite)
}

agents_smallworld_cpp <- function(m, n, k, d, p) {
  .Call(`_epiworldR_agents_smallworld_cpp`, m, n, k, d, p)
}

agents_from_edgelist_cpp <- function(m, source, target, size, directed) {
  .Call(`_epiworldR_agents_from_edgelist_cpp`, m, source, target, size, directed)
}

run_cpp <- function(m, ndays, seed) {
  .Call(`_epiworldR_run_cpp`, m, ndays, seed)
}

make_saver_cpp <- function(fn, total_hist, virus_info, virus_hist, tool_info, tool_hist, transmission, transition, reproductive, generation) {
  .Call(`_epiworldR_make_saver_cpp`, fn, total_hist, virus_info, virus_hist, tool_info, tool_hist, transmission, transition, reproductive, generation)
}

run_multiple_cpp <- function(m, ndays, nsims, seed, saver, reset, verbose, nthreads) {
  .Call(`_epiworldR_run_multiple_cpp`, m, ndays, nsims, seed, saver, reset, verbose, nthreads)
}

queuing_on_cpp <- function(model) {
  .Call(`_epiworldR_queuing_on_cpp`, model)
}

queuing_off_cpp <- function(model) {
  .Call(`_epiworldR_queuing_off_cpp`, model)
}

get_param_cpp <- function(model, pname) {
  .Call(`_epiworldR_get_param_cpp`, model, pname)
}

set_param_cpp <- function(model, pname, val) {
  .Call(`_epiworldR_set_param_cpp`, model, pname, val)
}

add_param_cpp <- function(model, pname, val) {
  .Call(`_epiworldR_add_param_cpp`, model, pname, val)
}

set_name_cpp <- function(model, mname) {
  .Call(`_epiworldR_set_name_cpp`, model, mname)
}

get_name_cpp <- function(model) {
  .Call(`_epiworldR_get_name_cpp`, model)
}

get_states_cpp <- function(model) {
  .Call(`_epiworldR_get_states_cpp`, model)
}

verbose_on_cpp <- function(model) {
  .Call(`_epiworldR_verbose_on_cpp`, model)
}

verbose_off_cpp <- function(model) {
  .Call(`_epiworldR_verbose_off_cpp`, model)
}

get_n_viruses_cpp <- function(model) {
  .Call(`_epiworldR_get_n_viruses_cpp`, model)
}

get_n_tools_cpp <- function(model) {
  .Call(`_epiworldR_get_n_tools_cpp`, model)
}

get_ndays_cpp <- function(model) {
  .Call(`_epiworldR_get_ndays_cpp`, model)
}

today_cpp <- function(model) {
  .Call(`_epiworldR_today_cpp`, model)
}

get_n_replicates_cpp <- function(model) {
  .Call(`_epiworldR_get_n_replicates_cpp`, model)
}

size_cpp <- function(model) {
  .Call(`_epiworldR_size_cpp`, model)
}

set_agents_data_cpp <- function(model, data, ncols) {
  .Call(`_epiworldR_set_agents_data_cpp`, model, data, ncols)
}

get_agents_data_ncols_cpp <- function(model) {
  .Call(`_epiworldR_get_agents_data_ncols_cpp`, model)
}

get_virus_model_cpp <- function(model, virus_pos) {
  .Call(`_epiworldR_get_virus_model_cpp`, model, virus_pos)
}

get_tool_model_cpp <- function(model, tool_pos) {
  .Call(`_epiworldR_get_tool_model_cpp`, model, tool_pos)
}

get_network_cpp <- function(model) {
  .Call(`_epiworldR_get_network_cpp`, model)
}

initial_states_cpp <- function(model, proportions) {
  .Call(`_epiworldR_initial_states_cpp`, model, proportions)
}

clone_model_cpp <- function(model) {
  .Call(`_epiworldR_clone_model_cpp`, model)
}

draw_mermaid_cpp <- function(model, fn_output, self) {
  invisible(.Call(`_epiworldR_draw_mermaid_cpp`, model, fn_output, self))
}

tool_cpp <- function(name, prevalence, as_proportion, susceptibility_reduction, transmission_reduction, recovery_enhancer, death_reduction) {
  .Call(`_epiworldR_tool_cpp`, name, prevalence, as_proportion, susceptibility_reduction, transmission_reduction, recovery_enhancer, death_reduction)
}

add_tool_cpp <- function(m, t) {
  .Call(`_epiworldR_add_tool_cpp`, m, t)
}

rm_tool_cpp <- function(m, tool_pos) {
  .Call(`_epiworldR_rm_tool_cpp`, m, tool_pos)
}

tool_fun_logit_cpp <- function(vars, coefs, model) {
  .Call(`_epiworldR_tool_fun_logit_cpp`, vars, coefs, model)
}

set_transmission_reduction_cpp <- function(tool, prob) {
  .Call(`_epiworldR_set_transmission_reduction_cpp`, tool, prob)
}

set_transmission_reduction_ptr_cpp <- function(tool, model, param) {
  .Call(`_epiworldR_set_transmission_reduction_ptr_cpp`, tool, model, param)
}

set_transmission_reduction_fun_cpp <- function(tool, model, tfun) {
  .Call(`_epiworldR_set_transmission_reduction_fun_cpp`, tool, model, tfun)
}

set_susceptibility_reduction_cpp <- function(tool, prob) {
  .Call(`_epiworldR_set_susceptibility_reduction_cpp`, tool, prob)
}

set_susceptibility_reduction_ptr_cpp <- function(tool, model, param) {
  .Call(`_epiworldR_set_susceptibility_reduction_ptr_cpp`, tool, model, param)
}

set_susceptibility_reduction_fun_cpp <- function(tool, model, tfun) {
  .Call(`_epiworldR_set_susceptibility_reduction_fun_cpp`, tool, model, tfun)
}

set_recovery_enhancer_cpp <- function(tool, prob) {
  .Call(`_epiworldR_set_recovery_enhancer_cpp`, tool, prob)
}

set_recovery_enhancer_ptr_cpp <- function(tool, model, param) {
  .Call(`_epiworldR_set_recovery_enhancer_ptr_cpp`, tool, model, param)
}

set_recovery_enhancer_fun_cpp <- function(tool, model, tfun) {
  .Call(`_epiworldR_set_recovery_enhancer_fun_cpp`, tool, model, tfun)
}

set_death_reduction_cpp <- function(tool, prob) {
  .Call(`_epiworldR_set_death_reduction_cpp`, tool, prob)
}

set_death_reduction_ptr_cpp <- function(tool, model, param) {
  .Call(`_epiworldR_set_death_reduction_ptr_cpp`, tool, model, param)
}

set_death_reduction_fun_cpp <- function(tool, model, tfun) {
  .Call(`_epiworldR_set_death_reduction_fun_cpp`, tool, model, tfun)
}

get_name_tool_cpp <- function(tool) {
  .Call(`_epiworldR_get_name_tool_cpp`, tool)
}

set_name_tool_cpp <- function(tool, name) {
  .Call(`_epiworldR_set_name_tool_cpp`, tool, name)
}

print_tool_cpp <- function(t) {
  .Call(`_epiworldR_print_tool_cpp`, t)
}

get_agents_tools_cpp <- function(model) {
  .Call(`_epiworldR_get_agents_tools_cpp`, model)
}

print_agent_tools_cpp <- function(tools) {
  .Call(`_epiworldR_print_agent_tools_cpp`, tools)
}

set_distribution_tool_cpp <- function(tool, distfun) {
  .Call(`_epiworldR_set_distribution_tool_cpp`, tool, distfun)
}

distribute_tool_randomly_cpp <- function(prevalence, as_proportion, agents_ids) {
  .Call(`_epiworldR_distribute_tool_randomly_cpp`, prevalence, as_proportion, agents_ids)
}

distribute_tool_to_set_cpp <- function(agents_ids) {
  .Call(`_epiworldR_distribute_tool_to_set_cpp`, agents_ids)
}

virus_cpp <- function(name, prevalence, as_proportion, prob_infecting, prob_recovery, prob_death, post_immunity, incubation) {
  .Call(`_epiworldR_virus_cpp`, name, prevalence, as_proportion, prob_infecting, prob_recovery, prob_death, post_immunity, incubation)
}

virus_set_state_cpp <- function(v, init, end, removed) {
  .Call(`_epiworldR_virus_set_state_cpp`, v, init, end, removed)
}

add_virus_cpp <- function(m, v) {
  .Call(`_epiworldR_add_virus_cpp`, m, v)
}

rm_virus_cpp <- function(m, virus_pos) {
  .Call(`_epiworldR_rm_virus_cpp`, m, virus_pos)
}

print_virus_cpp <- function(v) {
  .Call(`_epiworldR_print_virus_cpp`, v)
}

virus_fun_logit_cpp <- function(vars, coefs, model) {
  .Call(`_epiworldR_virus_fun_logit_cpp`, vars, coefs, model)
}

set_prob_infecting_cpp <- function(virus, prob) {
  .Call(`_epiworldR_set_prob_infecting_cpp`, virus, prob)
}

set_prob_infecting_ptr_cpp <- function(virus, model, param) {
  .Call(`_epiworldR_set_prob_infecting_ptr_cpp`, virus, model, param)
}

set_prob_infecting_fun_cpp <- function(virus, model, vfun) {
  .Call(`_epiworldR_set_prob_infecting_fun_cpp`, virus, model, vfun)
}

set_prob_recovery_cpp <- function(virus, prob) {
  .Call(`_epiworldR_set_prob_recovery_cpp`, virus, prob)
}

set_prob_recovery_ptr_cpp <- function(virus, model, param) {
  .Call(`_epiworldR_set_prob_recovery_ptr_cpp`, virus, model, param)
}

set_prob_recovery_fun_cpp <- function(virus, model, vfun) {
  .Call(`_epiworldR_set_prob_recovery_fun_cpp`, virus, model, vfun)
}

set_prob_death_cpp <- function(virus, prob) {
  .Call(`_epiworldR_set_prob_death_cpp`, virus, prob)
}

set_prob_death_ptr_cpp <- function(virus, model, param) {
  .Call(`_epiworldR_set_prob_death_ptr_cpp`, virus, model, param)
}

set_prob_death_fun_cpp <- function(virus, model, vfun) {
  .Call(`_epiworldR_set_prob_death_fun_cpp`, virus, model, vfun)
}

set_incubation_cpp <- function(virus, prob) {
  .Call(`_epiworldR_set_incubation_cpp`, virus, prob)
}

set_incubation_ptr_cpp <- function(virus, model, param) {
  .Call(`_epiworldR_set_incubation_ptr_cpp`, virus, model, param)
}

set_incubation_fun_cpp <- function(virus, model, vfun) {
  .Call(`_epiworldR_set_incubation_fun_cpp`, virus, model, vfun)
}

get_name_virus_cpp <- function(virus) {
  .Call(`_epiworldR_get_name_virus_cpp`, virus)
}

set_name_virus_cpp <- function(virus, name) {
  .Call(`_epiworldR_set_name_virus_cpp`, virus, name)
}

set_distribution_virus_cpp <- function(virus, dist) {
  .Call(`_epiworldR_set_distribution_virus_cpp`, virus, dist)
}

distribute_virus_randomly_cpp <- function(prevalence, as_proportion, agents_ids) {
  .Call(`_epiworldR_distribute_virus_randomly_cpp`, prevalence, as_proportion, agents_ids)
}

distribute_virus_to_set_cpp <- function(agents_ids) {
  .Call(`_epiworldR_distribute_virus_to_set_cpp`, agents_ids)
}