R/RcppExports.R

In Don-Li/CAB: The Computational Analysis of Behaviour

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

#'@export EBD_BR
#'@rdname EBD.reproduction
EBD_BR <- function(fathers, mothers) {
    .Call('_CAB_EBD_BR', PACKAGE = 'CAB', fathers, mothers)
}

#'@export EBD_RS_BR
#'@rdname EBD.reproduction
EBD_RS_BR <- function(parents) {
    .Call('_CAB_EBD_RS_BR', PACKAGE = 'CAB', parents)
}

CAB_cpp_clean_short_ixyi <- function(data, x_name, y_name, gap) {
    .Call('_CAB_CAB_cpp_clean_short_ixyi', PACKAGE = 'CAB', data, x_name, y_name, gap)
}

CAB_cpp_clean_short_ixxi <- function(data, x_name, gap) {
    .Call('_CAB_CAB_cpp_clean_short_ixxi', PACKAGE = 'CAB', data, x_name, gap)
}

CAB_cpp_compute__I_xy_I__formal_event_record <- function(data, x_event, y_event, break_event) {
    .Call('_CAB_CAB_cpp_compute__I_xy_I__formal_event_record', PACKAGE = 'CAB', data, x_event, y_event, break_event)
}

CAB_cpp_diff <- function(x) {
    .Call('_CAB_CAB_cpp_diff', PACKAGE = 'CAB', x)
}

CAB_cpp_geometric_fitness_selection <- function(fitness, pop_size, p) {
    .Call('_CAB_CAB_cpp_geometric_fitness_selection', PACKAGE = 'CAB', fitness, pop_size, p)
}

CAB_cpp_indicator_matrix <- function(x) {
    .Call('_CAB_CAB_cpp_indicator_matrix', PACKAGE = 'CAB', x)
}

CAB_cpp_int2bin <- function(bits, n) {
    .Call('_CAB_CAB_cpp_int2bin', PACKAGE = 'CAB', bits, n)
}

compute_ixyi_FER <- function(data, x_event, y_event, x_offset) {
    .Call('_CAB_compute_ixyi_FER', PACKAGE = 'CAB', data, x_event, y_event, x_offset)
}

compute_ixyi_FER_breaks <- function(data, x_event, y_event, break_events, x_offset) {
    .Call('_CAB_compute_ixyi_FER_breaks', PACKAGE = 'CAB', data, x_event, y_event, break_events, x_offset)
}

compute_ixxi_FER <- function(data, x_event, x_offset) {
    .Call('_CAB_compute_ixxi_FER', PACKAGE = 'CAB', data, x_event, x_offset)
}

compute_ixxi_FER_breaks <- function(data, x_event, break_events, x_offset) {
    .Call('_CAB_compute_ixxi_FER_breaks', PACKAGE = 'CAB', data, x_event, break_events, x_offset)
}

#'@export ks
#'@rdname ks
ks <- function(sample_1, sample_2) {
    .Call('_CAB_ks', PACKAGE = 'CAB', sample_1, sample_2)
}

CAB_cpp_local_times_formal_event_record <- function(data, event, marker, event_offset, n_markers) {
    .Call('_CAB_CAB_cpp_local_times_formal_event_record', PACKAGE = 'CAB', data, event, marker, event_offset, n_markers)
}

CAB_cpp_local_binning <- function(local_times, visit_lengths, max_bin, bin_resolution) {
    .Call('_CAB_CAB_cpp_local_binning', PACKAGE = 'CAB', local_times, visit_lengths, max_bin, bin_resolution)
}

CAB_cpp_local_times_ragged_event_record <- function(event_times, marker_times, event_offset) {
    .Call('_CAB_CAB_cpp_local_times_ragged_event_record', PACKAGE = 'CAB', event_times, marker_times, event_offset)
}

CAB_cpp_not_duplicated <- function(x) {
    .Call('_CAB_CAB_cpp_not_duplicated', PACKAGE = 'CAB', x)
}

#'@export mcdowell_sampling
#'@rdname CAB_samplers
mcdowell_sampling <- function(fitness, fitness_weights) {
    .Call('_CAB_mcdowell_sampling', PACKAGE = 'CAB', fitness, fitness_weights)
}

#'@export srswo
#'@rdname CAB_samplers
srswo <- function(choose, repeats, sample_size) {
    .Call('_CAB_srswo', PACKAGE = 'CAB', choose, repeats, sample_size)
}

#'@export srs
#'@rdname CAB_samplers
srs <- function(choose_max, repeats, sample_size) {
    .Call('_CAB_srs', PACKAGE = 'CAB', choose_max, repeats, sample_size)
}

CAB_cpp_unique <- function(x) {
    .Call('_CAB_CAB_cpp_unique', PACKAGE = 'CAB', x)
}

#'@rdname EBD_utilities
#'@export EBD_B_premutate
EBD_B_premutate <- function(mutation_rate, pop_size, total_ticks, n_bits) {
    .Call('_CAB_EBD_B_premutate', PACKAGE = 'CAB', mutation_rate, pop_size, total_ticks, n_bits)
}

#'@export EBD_prp_race
#'@rdname EBD_prp_race
EBD_prp_race <- function(phenotypes, oc_lower, prp_size) {
    .Call('_CAB_EBD_prp_race', PACKAGE = 'CAB', phenotypes, oc_lower, prp_size)
}

#'@export preference_pulse_2A
preference_pulse_2A <- function(event, time, rft_labels, component_label, response_labels, max_iri, bin_resolution, offset = 0) {
    .Call('_CAB_preference_pulse_2A', PACKAGE = 'CAB', event, time, rft_labels, component_label, response_labels, max_iri, bin_resolution, offset)
}

#'@export simple_factorial_counts
#'@rdname tabulation
simple_factorial_counts <- function(event, time, rft_labels, component_label, response_labels, max_rfts) {
    .Call('_CAB_simple_factorial_counts', PACKAGE = 'CAB', event, time, rft_labels, component_label, response_labels, max_rfts)
}

#'@export simple_ixyi
#'@rdname ixyi
simple_ixyi <- function(event, time, x_events, y_events, break_events) {
    .Call('_CAB_simple_ixyi', PACKAGE = 'CAB', event, time, x_events, y_events, break_events)
}

timesTwo <- function(x) {
    .Call('_CAB_timesTwo', PACKAGE = 'CAB', x)
}