R/cpp11.R

In carbondate: Calibration and Summarisation of Radiocarbon Dates

# Generated by cpp11: do not edit by hand

FindHPD <- function(calendar_ages, density, probability) {
  .Call(`_carbondate_FindHPD`, calendar_ages, density, probability)
}

FindPredictiveDensityAndCIWalker <- function(calendar_ages, weights, phis, taus, mu_phis, lambda, nu1, nu2, n_posterior_samples, quantile_edge_width, n_burn, n_end) {
  .Call(`_carbondate_FindPredictiveDensityAndCIWalker`, calendar_ages, weights, phis, taus, mu_phis, lambda, nu1, nu2, n_posterior_samples, quantile_edge_width, n_burn, n_end)
}

FindPredictiveDensityandCIPolyaUrn <- function(calendar_ages, observations_per_clusters, phis, taus, alphas, mu_phis, n_obs, lambda, nu1, nu2, n_posterior_samples, quantile_edge_width, n_burn, n_end) {
  .Call(`_carbondate_FindPredictiveDensityandCIPolyaUrn`, calendar_ages, observations_per_clusters, phis, taus, alphas, mu_phis, n_obs, lambda, nu1, nu2, n_posterior_samples, quantile_edge_width, n_burn, n_end)
}

FindInstantPredictiveDensityWalker <- function(calendar_ages, weight, phi, tau, mu_phi, lambda, nu1, nu2) {
  .Call(`_carbondate_FindInstantPredictiveDensityWalker`, calendar_ages, weight, phi, tau, mu_phi, lambda, nu1, nu2)
}

FindInstantPredictiveDensityPolyaUrn <- function(calendar_ages, observations_per_cluster, phi, tau, alpha, mu_phi, n_obs, lambda, nu1, nu2) {
  .Call(`_carbondate_FindInstantPredictiveDensityPolyaUrn`, calendar_ages, observations_per_cluster, phi, tau, alpha, mu_phi, n_obs, lambda, nu1, nu2)
}

FindPredictiveDensityWalker <- function(calendar_ages, weights, phis, taus, mu_phis, lambda, nu1, nu2) {
  .Call(`_carbondate_FindPredictiveDensityWalker`, calendar_ages, weights, phis, taus, mu_phis, lambda, nu1, nu2)
}

PolyaUrnUpdateStep <- function(current_calendar_ages, current_cluster_ids, current_phi, current_tau, current_alpha, current_mu_phi, alpha_shape, alpha_rate, lambda, nu1, nu2, A, B, w, m, c14_determinations, c14_sigmas, calcurve_yr_index_offset, mucalallyr, sigcalallyr) {
  .Call(`_carbondate_PolyaUrnUpdateStep`, current_calendar_ages, current_cluster_ids, current_phi, current_tau, current_alpha, current_mu_phi, alpha_shape, alpha_rate, lambda, nu1, nu2, A, B, w, m, c14_determinations, c14_sigmas, calcurve_yr_index_offset, mucalallyr, sigcalallyr)
}

UpdateCalendarAgesGibbsCpp <- function(prior_calendar_ages, calendar_age_grid, likelihood_calendar_ages_from_calibration_curve, likelihood_offset) {
  .Call(`_carbondate_UpdateCalendarAgesGibbsCpp`, prior_calendar_ages, calendar_age_grid, likelihood_calendar_ages_from_calibration_curve, likelihood_offset)
}

WalkerUpdateStep <- function(current_calendar_ages, current_weight, current_v, current_cluster_ids, current_alpha, current_mu_phi, alpha_shape, alpha_rate, lambda, nu1, nu2, A, B, w, m, c14_determinations, c14_sigmas, calcurve_yr_index_offset, mucalallyr, sigcalallyr) {
  .Call(`_carbondate_WalkerUpdateStep`, current_calendar_ages, current_weight, current_v, current_cluster_ids, current_alpha, current_mu_phi, alpha_shape, alpha_rate, lambda, nu1, nu2, A, B, w, m, c14_determinations, c14_sigmas, calcurve_yr_index_offset, mucalallyr, sigcalallyr)
}