R/RcppExports.R

In BayesianLasso: Bayesian Lasso Regression and Tools for the Lasso Distribution

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

Modified_Hans_Gibbs <- function(X, y, a1, b1, u1, v1, nsamples, beta_init, lambda_init, sigma2_init, verbose) {
    .Call(`_BayesianLasso_Modified_Hans_Gibbs`, X, y, a1, b1, u1, v1, nsamples, beta_init, lambda_init, sigma2_init, verbose)
}

Modified_PC_Gibbs <- function(X, y, a1, b1, u1, v1, nsamples, lambda_init, sigma2_init, verbose) {
    .Call(`_BayesianLasso_Modified_PC_Gibbs`, X, y, a1, b1, u1, v1, nsamples, lambda_init, sigma2_init, verbose)
}

MillsRatio <- function(d) {
    .Call(`_BayesianLasso_MillsRatio`, d)
}

zlasso <- function(a, b, c, logarithm) {
    .Call(`_BayesianLasso_zlasso`, a, b, c, logarithm)
}

dlasso <- function(x, a, b, c, logarithm) {
    .Call(`_BayesianLasso_dlasso`, x, a, b, c, logarithm)
}

plasso <- function(q, a, b, c) {
    .Call(`_BayesianLasso_plasso`, q, a, b, c)
}

qlasso <- function(p, a, b, c) {
    .Call(`_BayesianLasso_qlasso`, p, a, b, c)
}

rlasso <- function(n, a, b, c) {
    .Call(`_BayesianLasso_rlasso`, n, a, b, c)
}

elasso <- function(a, b, c) {
    .Call(`_BayesianLasso_elasso`, a, b, c)
}

vlasso <- function(a, b, c) {
    .Call(`_BayesianLasso_vlasso`, a, b, c)
}

mlasso <- function(a, b, c) {
    .Call(`_BayesianLasso_mlasso`, a, b, c)
}