R/RcppExports.R

In adeba: Adaptive Density Estimation by Bayesian Averaging

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

#' Check for columns with constant values
#'
#' @param x A numeric matrix.
#' @return A logical vector containing \code{TRUE} if all elements of a column
#'   are identical.
#' @noRd
find_constants <- function(x) {
    .Call(`_adeba_find_constants`, x)
}

#' Check if a vector contains only one unique value
#'
#' @param x A numeric vector with no missing values.
#' @return A logical that is \code{TRUE} if all elements were identical,
#'   otherwise \code{FALSE}.
#' @noRd
is_constant <- function(x) {
    .Call(`_adeba_is_constant`, x)
}

#' Calculate bandwithds from parameters
#' 
#' @param object ADEBA estimate.
#' @return A matrix of dimension D x A*B where D is the number of
#'   observations in the data set, A is the number of alpha values, and B is the
#'   number of beta values.
#' @author Christofer \enc{Bäcklin}{Backlin}
#' @noRd
get_bandwidths <- function(pilot, alpha, beta) {
    .Call(`_adeba_get_bandwidths`, pilot, alpha, beta)
}