R/RcppExports.R

In texmex: Statistical Modelling of Extreme Values

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

.dgpd <- function(x, sigma, xi, u, log_d = FALSE) {
    .Call(`_texmex_wrap_dgpd`, x, sigma, xi, u, log_d)
}

#' Accurately compute (exp(x) - 1) / x
#' @param x numeric vector
#' @return numeric vector
.exprel <- function(x) {
    .Call(`_texmex_warp_dexprl`, x)
}

#' Accurately compute log(1 + x) / x
#' @param x numeric vector
#' @return numeric vector
.log1prel <- function(x) {
    .Call(`_texmex_wrap_log1prel`, x)
}

#' Accurately compute log(1-exp(x))
#' @param x numeric vector
#' @return a numeric vector
.log1mexp <- function(x) {
    .Call(`_texmex_wrap_log1mexp`, x)
}

#' Compute pmax(x y, -1) in such a way that zeros in x beat
#' infinities in y.
#'
#' This is a common pattern in much of the distribution code, so it's
#' worth factoring out.
#' @param x a numeric vector
#' @param y a numeric vector
#' @return an appropriate numeric vector
.specfun.safe.product <- function(x, y) {
    .Call(`_texmex_wrap_safe_product`, x, y)
}