R/RcppExports.R

Defines functions execute_process infection_age_process_internal multi_probability_bernoulli_process_internal multi_probability_multinomial_process_internal fixed_probability_multinomial_process_internal integer_variable_update integer_variable_queue_update_bitset integer_variable_queue_update integer_variable_queue_fill integer_variable_get_size_of_range integer_variable_get_size_of_set_scalar integer_variable_get_size_of_set_vector integer_variable_get_index_of_range integer_variable_get_index_of_set_scalar integer_variable_get_index_of_set_vector integer_variable_get_values_at_index_vector integer_variable_get_values_at_index integer_variable_get_values create_integer_variable process_targeted_listener process_listener targeted_event_get_target event_should_trigger event_get_timestep targeted_event_schedule_multi_delay_vector targeted_event_schedule_multi_delay targeted_event_schedule_vector targeted_event_schedule targeted_event_get_scheduled targeted_event_clear_schedule targeted_event_clear_schedule_vector event_clear_schedule event_schedule event_tick create_targeted_event create_event double_variable_update double_variable_queue_update_bitset double_variable_queue_update double_variable_queue_fill double_variable_get_size_of_range double_variable_get_index_of_range double_variable_get_values_at_index_vector double_variable_get_values_at_index double_variable_get_values create_double_variable categorical_variable_update categorical_variable_queue_update_vector categorical_variable_get_categories categorical_variable_get_size_of categorical_variable_get_index_of categorical_variable_queue_update create_categorical_variable bitset_choose filter_bitset_bitset filter_bitset_vector bitset_to_vector bitset_sample_vector bitset_sample bitset_set_difference bitset_xor bitset_or bitset_not bitset_and bitset_max_size bitset_size bitset_remove bitset_insert bitset_copy create_bitset

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

create_bitset <- function(size) {
    .Call(`_individual_create_bitset`, size)
}

bitset_copy <- function(b) {
    .Call(`_individual_bitset_copy`, b)
}

bitset_insert <- function(b, v) {
    invisible(.Call(`_individual_bitset_insert`, b, v))
}

bitset_remove <- function(b, v) {
    invisible(.Call(`_individual_bitset_remove`, b, v))
}

bitset_size <- function(b) {
    .Call(`_individual_bitset_size`, b)
}

bitset_max_size <- function(b) {
    .Call(`_individual_bitset_max_size`, b)
}

bitset_and <- function(a, b) {
    invisible(.Call(`_individual_bitset_and`, a, b))
}

bitset_not <- function(b, inplace) {
    .Call(`_individual_bitset_not`, b, inplace)
}

bitset_or <- function(a, b) {
    invisible(.Call(`_individual_bitset_or`, a, b))
}

bitset_xor <- function(a, b) {
    invisible(.Call(`_individual_bitset_xor`, a, b))
}

bitset_set_difference <- function(a, b) {
    invisible(.Call(`_individual_bitset_set_difference`, a, b))
}

bitset_sample <- function(b, rate) {
    invisible(.Call(`_individual_bitset_sample`, b, rate))
}

bitset_sample_vector <- function(b, rate) {
    invisible(.Call(`_individual_bitset_sample_vector`, b, rate))
}

bitset_to_vector <- function(b) {
    .Call(`_individual_bitset_to_vector`, b)
}

filter_bitset_vector <- function(b, other) {
    .Call(`_individual_filter_bitset_vector`, b, other)
}

filter_bitset_bitset <- function(b, other) {
    .Call(`_individual_filter_bitset_bitset`, b, other)
}

bitset_choose <- function(b, k) {
    invisible(.Call(`_individual_bitset_choose`, b, k))
}

create_categorical_variable <- function(categories, values) {
    .Call(`_individual_create_categorical_variable`, categories, values)
}

categorical_variable_queue_update <- function(variable, value, index) {
    invisible(.Call(`_individual_categorical_variable_queue_update`, variable, value, index))
}

categorical_variable_get_index_of <- function(variable, values) {
    .Call(`_individual_categorical_variable_get_index_of`, variable, values)
}

categorical_variable_get_size_of <- function(variable, values) {
    .Call(`_individual_categorical_variable_get_size_of`, variable, values)
}

categorical_variable_get_categories <- function(variable) {
    .Call(`_individual_categorical_variable_get_categories`, variable)
}

categorical_variable_queue_update_vector <- function(variable, value, index) {
    invisible(.Call(`_individual_categorical_variable_queue_update_vector`, variable, value, index))
}

categorical_variable_update <- function(variable) {
    invisible(.Call(`_individual_categorical_variable_update`, variable))
}

create_double_variable <- function(values) {
    .Call(`_individual_create_double_variable`, values)
}

double_variable_get_values <- function(variable) {
    .Call(`_individual_double_variable_get_values`, variable)
}

double_variable_get_values_at_index <- function(variable, index) {
    .Call(`_individual_double_variable_get_values_at_index`, variable, index)
}

double_variable_get_values_at_index_vector <- function(variable, index) {
    .Call(`_individual_double_variable_get_values_at_index_vector`, variable, index)
}

double_variable_get_index_of_range <- function(variable, a, b) {
    .Call(`_individual_double_variable_get_index_of_range`, variable, a, b)
}

double_variable_get_size_of_range <- function(variable, a, b) {
    .Call(`_individual_double_variable_get_size_of_range`, variable, a, b)
}

double_variable_queue_fill <- function(variable, value) {
    invisible(.Call(`_individual_double_variable_queue_fill`, variable, value))
}

double_variable_queue_update <- function(variable, value, index) {
    invisible(.Call(`_individual_double_variable_queue_update`, variable, value, index))
}

double_variable_queue_update_bitset <- function(variable, value, index) {
    invisible(.Call(`_individual_double_variable_queue_update_bitset`, variable, value, index))
}

double_variable_update <- function(variable) {
    invisible(.Call(`_individual_double_variable_update`, variable))
}

create_event <- function() {
    .Call(`_individual_create_event`)
}

create_targeted_event <- function(size) {
    .Call(`_individual_create_targeted_event`, size)
}

event_tick <- function(event) {
    invisible(.Call(`_individual_event_tick`, event))
}

event_schedule <- function(event, delays) {
    invisible(.Call(`_individual_event_schedule`, event, delays))
}

event_clear_schedule <- function(event) {
    invisible(.Call(`_individual_event_clear_schedule`, event))
}

targeted_event_clear_schedule_vector <- function(event, target) {
    invisible(.Call(`_individual_targeted_event_clear_schedule_vector`, event, target))
}

targeted_event_clear_schedule <- function(event, target) {
    invisible(.Call(`_individual_targeted_event_clear_schedule`, event, target))
}

targeted_event_get_scheduled <- function(event) {
    .Call(`_individual_targeted_event_get_scheduled`, event)
}

targeted_event_schedule <- function(event, target, delay) {
    invisible(.Call(`_individual_targeted_event_schedule`, event, target, delay))
}

targeted_event_schedule_vector <- function(event, target, delay) {
    invisible(.Call(`_individual_targeted_event_schedule_vector`, event, target, delay))
}

targeted_event_schedule_multi_delay <- function(event, target, delay) {
    invisible(.Call(`_individual_targeted_event_schedule_multi_delay`, event, target, delay))
}

targeted_event_schedule_multi_delay_vector <- function(event, target, delay) {
    invisible(.Call(`_individual_targeted_event_schedule_multi_delay_vector`, event, target, delay))
}

event_get_timestep <- function(event) {
    .Call(`_individual_event_get_timestep`, event)
}

event_should_trigger <- function(event) {
    .Call(`_individual_event_should_trigger`, event)
}

targeted_event_get_target <- function(event) {
    .Call(`_individual_targeted_event_get_target`, event)
}

process_listener <- function(event, listener) {
    invisible(.Call(`_individual_process_listener`, event, listener))
}

process_targeted_listener <- function(event, listener, target) {
    invisible(.Call(`_individual_process_targeted_listener`, event, listener, target))
}

create_integer_variable <- function(values) {
    .Call(`_individual_create_integer_variable`, values)
}

integer_variable_get_values <- function(variable) {
    .Call(`_individual_integer_variable_get_values`, variable)
}

integer_variable_get_values_at_index <- function(variable, index) {
    .Call(`_individual_integer_variable_get_values_at_index`, variable, index)
}

integer_variable_get_values_at_index_vector <- function(variable, index) {
    .Call(`_individual_integer_variable_get_values_at_index_vector`, variable, index)
}

integer_variable_get_index_of_set_vector <- function(variable, values_set) {
    .Call(`_individual_integer_variable_get_index_of_set_vector`, variable, values_set)
}

integer_variable_get_index_of_set_scalar <- function(variable, values_set) {
    .Call(`_individual_integer_variable_get_index_of_set_scalar`, variable, values_set)
}

integer_variable_get_index_of_range <- function(variable, a, b) {
    .Call(`_individual_integer_variable_get_index_of_range`, variable, a, b)
}

integer_variable_get_size_of_set_vector <- function(variable, values_set) {
    .Call(`_individual_integer_variable_get_size_of_set_vector`, variable, values_set)
}

integer_variable_get_size_of_set_scalar <- function(variable, value) {
    .Call(`_individual_integer_variable_get_size_of_set_scalar`, variable, value)
}

integer_variable_get_size_of_range <- function(variable, a, b) {
    .Call(`_individual_integer_variable_get_size_of_range`, variable, a, b)
}

integer_variable_queue_fill <- function(variable, value) {
    invisible(.Call(`_individual_integer_variable_queue_fill`, variable, value))
}

integer_variable_queue_update <- function(variable, value, index) {
    invisible(.Call(`_individual_integer_variable_queue_update`, variable, value, index))
}

integer_variable_queue_update_bitset <- function(variable, value, index) {
    invisible(.Call(`_individual_integer_variable_queue_update_bitset`, variable, value, index))
}

integer_variable_update <- function(variable) {
    invisible(.Call(`_individual_integer_variable_update`, variable))
}

fixed_probability_multinomial_process_internal <- function(variable, source_state, destination_states, rate, destination_probabilities) {
    .Call(`_individual_fixed_probability_multinomial_process_internal`, variable, source_state, destination_states, rate, destination_probabilities)
}

multi_probability_multinomial_process_internal <- function(variable, source_state, destination_states, rate_variable, destination_probabilities) {
    .Call(`_individual_multi_probability_multinomial_process_internal`, variable, source_state, destination_states, rate_variable, destination_probabilities)
}

multi_probability_bernoulli_process_internal <- function(variable, from, to, rate_variable) {
    .Call(`_individual_multi_probability_bernoulli_process_internal`, variable, from, to, rate_variable)
}

infection_age_process_internal <- function(state, susceptible, exposed, infectious, age, age_bins, p, dt, mixing) {
    .Call(`_individual_infection_age_process_internal`, state, susceptible, exposed, infectious, age, age_bins, p, dt, mixing)
}

execute_process <- function(process, timestep) {
    invisible(.Call(`_individual_execute_process`, process, timestep))
}

# Register entry points for exported C++ functions
methods::setLoadAction(function(ns) {
    .Call('_individual_RcppExport_registerCCallable', PACKAGE = 'individual')
})

Try the individual package in your browser

Any scripts or data that you put into this service are public.

individual documentation built on Oct. 25, 2021, 9:09 a.m.