R/RcppExports.R

In pierrejacob/CoupledCPF: Coupling of Conditional Particle Filters

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

ar_rinit_rcpp <- function(nparticles, theta, rand, dimension) {
    .Call('_CoupledCPF_ar_rinit_rcpp', PACKAGE = 'CoupledCPF', nparticles, theta, rand, dimension)
}

ar_rtransition_rcpp <- function(xparticles, theta, time, rand, dimension, A) {
    .Call('_CoupledCPF_ar_rtransition_rcpp', PACKAGE = 'CoupledCPF', xparticles, theta, time, rand, dimension, A)
}

create_A_ <- function(alpha, d) {
    .Call('_CoupledCPF_create_A_', PACKAGE = 'CoupledCPF', alpha, d)
}

levydriven_rtransition_rand_cpp <- function(nparticles, theta) {
    .Call('_CoupledCPF_levydriven_rtransition_rand_cpp', PACKAGE = 'CoupledCPF', nparticles, theta)
}

levydrivenmultifactor_rtransition_rand_cpp <- function(nparticles, theta) {
    .Call('_CoupledCPF_levydrivenmultifactor_rtransition_rand_cpp', PACKAGE = 'CoupledCPF', nparticles, theta)
}

one_step_lorenz_vector <- function(xparticles, tstart, tend, h, parameters) {
    .Call('_CoupledCPF_one_step_lorenz_vector', PACKAGE = 'CoupledCPF', xparticles, tstart, tend, h, parameters)
}

lorenz_generate_randomness_cpp <- function(nparticles, datalength) {
    .Call('_CoupledCPF_lorenz_generate_randomness_cpp', PACKAGE = 'CoupledCPF', nparticles, datalength)
}

lorenz_perturb_randomness_cpp <- function(randomness, rho) {
    .Call('_CoupledCPF_lorenz_perturb_randomness_cpp', PACKAGE = 'CoupledCPF', randomness, rho)
}

median_rcpp <- function(x) {
    .Call('_CoupledCPF_median_rcpp', PACKAGE = 'CoupledCPF', x)
}

multinomial_resampling_n_ <- function(weights, ndraws) {
    .Call('_CoupledCPF_multinomial_resampling_n_', PACKAGE = 'CoupledCPF', weights, ndraws)
}

coupled_multinomial_resampling_n_ <- function(weights1, weights2, ndraws) {
    .Call('_CoupledCPF_coupled_multinomial_resampling_n_', PACKAGE = 'CoupledCPF', weights1, weights2, ndraws)
}

rmvnorm <- function(nsamples, mean, covariance) {
    .Call('_CoupledCPF_rmvnorm', PACKAGE = 'CoupledCPF', nsamples, mean, covariance)
}

rmvnorm_transpose <- function(nsamples, mean, covariance) {
    .Call('_CoupledCPF_rmvnorm_transpose', PACKAGE = 'CoupledCPF', nsamples, mean, covariance)
}

rmvnorm_transpose_cholesky <- function(nsamples, mean, cholesky_covariance) {
    .Call('_CoupledCPF_rmvnorm_transpose_cholesky', PACKAGE = 'CoupledCPF', nsamples, mean, cholesky_covariance)
}

dmvnorm <- function(x, mean, covariance) {
    .Call('_CoupledCPF_dmvnorm', PACKAGE = 'CoupledCPF', x, mean, covariance)
}

dmvnorm_transpose <- function(x, mean, covariance) {
    .Call('_CoupledCPF_dmvnorm_transpose', PACKAGE = 'CoupledCPF', x, mean, covariance)
}

dmvnorm_transpose_cholesky <- function(x, mean, cholesky_covariance) {
    .Call('_CoupledCPF_dmvnorm_transpose_cholesky', PACKAGE = 'CoupledCPF', x, mean, cholesky_covariance)
}

one_step_pz_vector <- function(xparticles, alphas, t, parameters) {
    .Call('_CoupledCPF_one_step_pz_vector', PACKAGE = 'CoupledCPF', xparticles, alphas, t, parameters)
}

stochvol_dmeas_ <- function(xparticles, theta, observation, dimension) {
    .Call('_CoupledCPF_stochvol_dmeas_', PACKAGE = 'CoupledCPF', xparticles, theta, observation, dimension)
}

systematic_resampling_n_ <- function(weights, ndraws, u) {
    .Call('_CoupledCPF_systematic_resampling_n_', PACKAGE = 'CoupledCPF', weights, ndraws, u)
}