# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
.setPseudoCount <- function(pseudoCount) {
.Call('_FRASER_setPseudoCount', PACKAGE = 'FRASER', pseudoCount)
}
predictYCpp <- function(H, D, b) {
.Call('_FRASER_predictYCpp', PACKAGE = 'FRASER', H, D, b)
}
predictMuCpp <- function(y) {
.Call('_FRASER_predictMuCpp', PACKAGE = 'FRASER', y)
}
estLgammaAlpha <- function(y, pos, ar) {
.Call('_FRASER_estLgammaAlpha', PACKAGE = 'FRASER', y, pos, ar)
}
estLgammaBeta <- function(y, pos, br) {
.Call('_FRASER_estLgammaBeta', PACKAGE = 'FRASER', y, pos, br)
}
truncNLL_db <- function(par, H, k, n, rho, lambda) {
.Call('_FRASER_truncNLL_db', PACKAGE = 'FRASER', par, H, k, n, rho, lambda)
}
truncGrad_db <- function(par, H, k, n, rho, lambda) {
.Call('_FRASER_truncGrad_db', PACKAGE = 'FRASER', par, H, k, n, rho, lambda)
}
truncNLL_e <- function(par, x, D, b, k, n, rho) {
.Call('_FRASER_truncNLL_e', PACKAGE = 'FRASER', par, x, D, b, k, n, rho)
}
truncGrad_e <- function(par, x, D, b, k, n, rho) {
.Call('_FRASER_truncGrad_e', PACKAGE = 'FRASER', par, x, D, b, k, n, rho)
}
truncNLL_rho <- function(rho, yi, ki, ni) {
.Call('_FRASER_truncNLL_rho', PACKAGE = 'FRASER', rho, yi, ki, ni)
}
truncNLL_rho_penalized <- function(logit_rho, yi, ki, ni, lambda) {
.Call('_FRASER_truncNLL_rho_penalized', PACKAGE = 'FRASER', logit_rho, yi, ki, ni, lambda)
}
fullNLL <- function(y, rho, k, n, D, lambda, byRows = FALSE) {
.Call('_FRASER_fullNLL', PACKAGE = 'FRASER', y, rho, k, n, D, lambda, byRows)
}
truncWeightedNLL_db <- function(par, H, k, n, rho, lambda, w) {
.Call('_FRASER_truncWeightedNLL_db', PACKAGE = 'FRASER', par, H, k, n, rho, lambda, w)
}
truncWeightedGrad_db <- function(par, H, k, n, rho, lambda, w) {
.Call('_FRASER_truncWeightedGrad_db', PACKAGE = 'FRASER', par, H, k, n, rho, lambda, w)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.