# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
ll_pen_nb <- function(beta, X, y, offset, theta, lambda, S, ll_factor, lambda_factor, n) {
.Call('_fastGenoGAM_ll_pen_nb', PACKAGE = 'fastGenoGAM', beta, X, y, offset, theta, lambda, S, ll_factor, lambda_factor, n)
}
gr_ll_pen_nb <- function(beta, X, XT, y, offset, theta, lambda, S) {
.Call('_fastGenoGAM_gr_ll_pen_nb', PACKAGE = 'fastGenoGAM', beta, X, XT, y, offset, theta, lambda, S)
}
negbin_hessian <- function(y, mu, theta) {
.Call('_fastGenoGAM_negbin_hessian', PACKAGE = 'fastGenoGAM', y, mu, theta)
}
ll_pen_qbd <- function(beta, X, y, offset, theta, lambda, S, ll_factor, lambda_factor, n) {
.Call('_fastGenoGAM_ll_pen_qbd', PACKAGE = 'fastGenoGAM', beta, X, y, offset, theta, lambda, S, ll_factor, lambda_factor, n)
}
compute_pen_hessian <- function(beta, X, XT, offset, y, S, lambda, theta, hessid) {
.Call('_fastGenoGAM_compute_pen_hessian', PACKAGE = 'fastGenoGAM', beta, X, XT, offset, y, S, lambda, theta, hessid)
}
compute_stdError <- function(X, H) {
.Call('_fastGenoGAM_compute_stdError', PACKAGE = 'fastGenoGAM', X, H)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.