R/RcppExports.R

In pahanc/malariasimulation_Ace_params: An individual based model for malaria

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

create_adult_mosquito_model <- function(growth_model, mu, tau, mosq_suppression, mosq_seasonality, use_Ace_mosq, susceptible, foim) {
    .Call(`_malariasimulation_create_adult_mosquito_model`, growth_model, mu, tau, mosq_suppression, mosq_seasonality, use_Ace_mosq, susceptible, foim)
}

adult_mosquito_model_update <- function(model, mu, foim, mosq_suppression, mosq_seasonality, use_Ace_mosq, susceptible, f) {
    invisible(.Call(`_malariasimulation_adult_mosquito_model_update`, model, mu, foim, mosq_suppression, mosq_seasonality, use_Ace_mosq, susceptible, f))
}

create_adult_solver <- function(model, init, r_tol, a_tol, max_steps) {
    .Call(`_malariasimulation_create_adult_solver`, model, init, r_tol, a_tol, max_steps)
}

create_aquatic_mosquito_model <- function(beta, de, mue, K0, gamma, dl, mul, dp, mup, use_Ace_mosq, total_M, model_seasonality, g0, g, h, R_bar, mum, f, rainfall_floor) {
    .Call(`_malariasimulation_create_aquatic_mosquito_model`, beta, de, mue, K0, gamma, dl, mul, dp, mup, use_Ace_mosq, total_M, model_seasonality, g0, g, h, R_bar, mum, f, rainfall_floor)
}

aquatic_mosquito_model_update <- function(model, total_M, f, mum) {
    invisible(.Call(`_malariasimulation_aquatic_mosquito_model_update`, model, total_M, f, mum))
}

create_aquatic_solver <- function(model, init, r_tol, a_tol, max_steps) {
    .Call(`_malariasimulation_create_aquatic_solver`, model, init, r_tol, a_tol, max_steps)
}

create_history <- function(size, default_value) {
    .Call(`_malariasimulation_create_history`, size, default_value)
}

history_at <- function(history, timestep) {
    .Call(`_malariasimulation_history_at`, history, timestep)
}

history_push <- function(history, value, timestep) {
    invisible(.Call(`_malariasimulation_history_push`, history, value, timestep))
}

carrying_capacity <- function(timestep, model_seasonality, g0, g, h, K0, R_bar, rainfall_floor) {
    .Call(`_malariasimulation_carrying_capacity`, timestep, model_seasonality, g0, g, h, K0, R_bar, rainfall_floor)
}

eggs_laid <- function(beta, mu, f) {
    .Call(`_malariasimulation_eggs_laid`, beta, mu, f)
}

rainfall <- function(t, g0, g, h, floor) {
    .Call(`_malariasimulation_rainfall`, t, g0, g, h, floor)
}

solver_get_states <- function(solver) {
    .Call(`_malariasimulation_solver_get_states`, solver)
}

solver_step <- function(solver) {
    invisible(.Call(`_malariasimulation_solver_step`, solver))
}

random_seed <- function(seed) {
    invisible(.Call(`_malariasimulation_random_seed`, seed))
}

bernoulli_multi_p_cpp <- function(p) {
    .Call(`_malariasimulation_bernoulli_multi_p_cpp`, p)
}

bitset_index_cpp <- function(a, b) {
    .Call(`_malariasimulation_bitset_index_cpp`, a, b)
}

fast_weighted_sample <- function(size, probs) {
    .Call(`_malariasimulation_fast_weighted_sample`, size, probs)
}