R/RcppExports.R

In bsplinePsd: Bayesian Nonparametric Spectral Density Estimation Using B-Spline Priors

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

#' @keywords internal
AnIn1 <- function(knot) {
    .Call(`_bsplinePsd_AnIn1`, knot)
}

#' @keywords internal
AnIn2 <- function(knot) {
    .Call(`_bsplinePsd_AnIn2`, knot)
}

#' @keywords internal
AnIn3 <- function(knot) {
    .Call(`_bsplinePsd_AnIn3`, knot)
}

#' @keywords internal
AnIn4 <- function(knot) {
    .Call(`_bsplinePsd_AnIn4`, knot)
}

#' @keywords internal
AnIn5 <- function(knot) {
    .Call(`_bsplinePsd_AnIn5`, knot)
}

#' @keywords internal
AnIn6 <- function(knot) {
    .Call(`_bsplinePsd_AnIn6`, knot)
}

#' @keywords internal
AnIn7 <- function(knot) {
    .Call(`_bsplinePsd_AnIn7`, knot)
}

#' @keywords internal
AnIn8 <- function(knot) {
    .Call(`_bsplinePsd_AnIn8`, knot)
}

#' @keywords internal
AnInQ1 <- function(knot) {
    .Call(`_bsplinePsd_AnInQ1`, knot)
}

#' @keywords internal
AnInQ2 <- function(knot) {
    .Call(`_bsplinePsd_AnInQ2`, knot)
}

#' @keywords internal
AnInQ3 <- function(knot) {
    .Call(`_bsplinePsd_AnInQ3`, knot)
}

#' @keywords internal
AnInQ4 <- function(knot) {
    .Call(`_bsplinePsd_AnInQ4`, knot)
}

#' C++ function for generating  p from v in Stick Breaking DP representation
#' @keywords internal
pFromV <- function(v) {
    .Call(`_bsplinePsd_pFromV`, v)
}

vFromP <- function(p, eps = 1e-8) {
    .Call(`_bsplinePsd_vFromP`, p, eps)
}

#' C++ function for computing mixture weights of Bernstein-Mixtures given the probabilities p, values w, and degree k.
#' @keywords internal
mixtureWeight <- function(p, w, k) {
    .Call(`_bsplinePsd_mixtureWeight`, p, w, k)
}

#' C++ function for building a density mixture, given mixture weights and functions.
#' @keywords internal
densityMixture <- function(weights, densities) {
    .Call(`_bsplinePsd_densityMixture`, weights, densities)
}

#' C++ help function to redundantly roll out a PSD to length n
#' @keywords internal
unrollPsd <- function(qPsd, n) {
    .Call(`_bsplinePsd_unrollPsd`, qPsd, n)
}